Vb11.11

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