数据类型(简写):
Integer:整型 %
Single:单精度 !
Double:双精度 #
Long:长整型 &
String:字符 $
Currency:货币型 @
Sub test()
Dim pass$
0:
pass = InputBox("请输入密码")
Select Case pass
Case "999"
MsgBox "登陆成功"
Case Else
MsgBox "密码输入失败"
GoTo 0 --从0这个数字开始重新运行程序
End Select
End Sub