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

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!