幸虧以前自學研究過ACCESS的VBA代碼，自己當年研究還是比較艱難的，沒人教，全部靠自己摸索。有了那個基礎，看這個稍微順利點，不過還是感覺到這樣的語句有點怪。慢慢學學看。
  學習達人
|
an_ju
展開
|
 學習標兵
|
alang198526
展開
|
|
|
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
展開
|
承擔因您的行為而導致的法律責任，
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。