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
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。