VB笔记

Option explicit 声明必须先定义后使用

Unload me 关闭程序

Debug.Print s   '将结果输出到立即窗口

Form2.show  显示另一个窗口

Chr(13) 换行符 vbCrLf

Text1.Setfocus 设置光标的位置

固定窗口大小，能最小化的方法：BorderStyle = 1, MaxButton = true,MinButton = true

FormatNumber(drv1.TotalSize / 1024, 0)格式化数字的函数，类似12,345,678，0表示小数位

Round(expression, num) Round(表达式，要显示的小数位默认为0)，进行4舍5入

静态变量的定义：

与Dim变量名 As数据类型类似：Static变量名 As数据类型

全局变量的定义：

Public变量名As数据类型

Val函数：

NumVal = val(“1233”) 类似 NumVal = 1233

NumVal = val(“12 22”) 类似 NumVal = 1222

NumVal = val(“12 and 22”) 类似 NumVal = 12

Str = Right(“abcde”, 2) 类似 str = de

选择语句：

Private Sub Command1_Click()

   Static j As Integer '定义静态变量

   j = j + 1   '计数

   If j > 3 Then

       MsgBox "只能运行3次"   '提示信息

       Exit Sub       '跳出过程

   End If

   Dim i As Integer    '记录输入数字

   i = Val(InputBox("请输入数字"))

   Select Case i

   Case 1

       MsgBox "一"

   Case 2

       MsgBox "二"

   Case 3

       MsgBox "三"

   Case Else

       MsgBox "我只会数到3"

   End Select

End Sub

判断语句：

 

Private Sub Command1_Click()

   Dim a As String, b As String

   a = "xiaodong"  '用户变量名赋值

   b = "password"  '密码变量赋值

   If Text1.Text = b And Text2.Text = a Then   '如果用户名和密码都输入正确

       user = Text2.Text

       Form2.Show

   Else

       MsgBox "用户名或密码输入错误"

   End If

End Sub