The funeral of Azeroth
Herose
Vb11.11
1.数据类型转换函数
Private
Sub
command1_Click()
Dim
a
As
String
a
=
Val(text1.text)
Msgbox
"
转换后的结果是:
"
&
CDbl
(a) 双晶度数据
Msgbox
"
转换后的结果是:
"
&
CLng
(a) 长整型的
Msgbox
"
转换后的结果是:
"
&
CSng
(a) 单晶度型的
Msgbox
"
转换后的结果是:
"
&
VCar(a) 转换成变体的(免声明)
Msgbox
"
转换后的结果是:
"
&
CStr
(a) 字符串的
Msgbox
"
转换后的结果是:
"
&
Cdate
(a) 日期的
Msgbox
"
转换后的结果是:
"
&
CDbl
(a)
2.日期和时间函数
Private
Sub
command1_Click()
MsgBox
"
当前日期时间为:
"
&
Now
()
Msgbox "当前日期为:" &date()
End sub
Private
Sub
command1_Click()
Dim
a
As
String
a
=
CDate
(Text1.text)
Msgbox
"
当前日期年份为:
"
&
Year
(a)
Msgbox
"
当前日期月份为:
"
&
Month
(a)
Msgbox
"
当前日期日子为:
"
&
Day
(a)
Msgbox
"
当前日期星期为:
"
&
Weekday
(a)
Msgbox
"
当前为:
"
&
Hour
(a)
MsgBox
"
当前为:
"
&
Minute
(a)
Msgbox
"
当前为:
"
&
Second
(a)
End Sub
3.
Private
Sub
form_Click()
Print
"
姓名
"
;tab(
10
) ;
"
籍贯
"
指定的第十行
Print
"
姓名
"
;Spc(
20
) ;
"
籍贯
"
产生20空格
Print
"
姓名
"
;
Space
(
30
);
"
籍贯
"
"
可用在字符串中
"
End Sub
Private
Sub
form_Click()
Print format(
123456.365
,
"
######.##
"
)
End sub
Private
Sub
Form_Click()
Dim
a
As
String
a
=
InputBox
(
"
请输入内容
"
,
"
输入框
"
,
"
Herose
"
)
Print a
End Sub
Private
Sub
Form_Click()
MsgBox
"
你好,你吃饭了吗?
"
End Sub
posted on 2010-11-11 17:46
Herose
阅读(71)
评论(0)
编辑
收藏
新用户注册
刷新评论列表
只有注册用户
登录
后才能发表评论。
网站导航:
博客园
IT新闻
知识库
C++博客
博问
管理
导航
BlogJava
首页
新随笔
联系
聚合
管理
统计
随笔 - 10
文章 - 1
评论 - 0
引用 - 0
常用链接
我的随笔
我的评论
我的参与
留言簿
(3)
给我留言
查看公开留言
查看私人留言
随笔档案
2010年11月 (10)
文章档案
2010年11月 (1)
相册
Myself
Old friends
vb 11.9
http://www.enet.com.cn/eschool/video/vb/
搜索
最新评论
阅读排行榜
1. Vb11.9(121)
2. Vb11.12 VB 中基本语句(96)
3. vb.11.9(89)
4. vb.11.10 帅哥成长器(88)
5. vb11.10 声明(88)
评论排行榜
1. Vb11.12 VB 中基本语句(0)
2. Vb11.11 (0)
3. Vb11.11 "函数"(0)
4. vb11.10 声明(0)
5. vb 11.10 else(0)
Powered by:
BlogJava
Copyright © Herose