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 阅读(104) 评论(0)  编辑  收藏


只有注册用户登录后才能发表评论。
网站导航:
 

导航

统计

常用链接

留言簿(3)

随笔档案

文章档案

相册

http://www.enet.com.cn/eschool/video/vb/

搜索

最新评论

阅读排行榜

评论排行榜