幸亏以前自学研究过ACCESS的VBA代码，自己当年研究还是比较艰难的，没人教，全部靠自己摸索。有了那个基础，看这个稍微顺利点，不过还是感觉到这样的语句有点怪。慢慢学学看。
 |
an_ju
展开
|
|
|
dreamhuang
展开
|
|
|
T756132yu
展开
|
|
|
田坤加油
展开
Sub 条件判断语句select（）
Dim account$
0:
account = InputBox（"请输入账号："）
Select Case account
Case "tiankun"
Case Else
MsgBox （"账户不存在"）
GoTo 0:
End Select
Dim pad$
1:
pad = InputBox（"请输入密码"）
Select Case pad
Case "123456"
MsgBox （"welcome back"）
Case Else
MsgBox （"密码不正确，请重新输入密码"）
GoTo 1:
End Select
End Sub |
|
|
csy1688
展开
|
|
|
yuming4436
展开
|
承担因您的行为而导致的法律责任，
本站有权保留或删除有争议评论。
参与本评论即表明您已经阅读并接受
上述条款。