幸虧以前自學研究過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
展開
|
承擔因您的行為而導致的法律責任,
本站有權保留或刪除有爭議評論。
參與本評論即表明您已經閱讀并接受
上述條款。