幸虧以前自學(xué)研究過(guò)ACCESS的VBA代碼，自己當(dāng)年研究還是比較艱難的，沒(méi)人教，全部靠自己摸索。有了那個(gè)基礎(chǔ)，看這個(gè)稍微順利點(diǎn)，不過(guò)還是感覺(jué)到這樣的語(yǔ)句有點(diǎn)怪。慢慢學(xué)學(xué)看。
  學(xué)習(xí)達(dá)人
|
an_ju
展開(kāi)
|
 學(xué)習(xí)標(biāo)兵
|
alang198526
展開(kāi)
|
|
|
dreamhuang
展開(kāi)
|
|
|
T756132yu
展開(kāi)
|
|
|
田坤加油
展開(kāi)
Sub 條件判斷語(yǔ)句select（）
Dim account$
0:
account = InputBox（"請(qǐng)輸入賬號(hào)："）
Select Case account
Case "tiankun"
Case Else
MsgBox （"賬戶(hù)不存在"）
GoTo 0:
End Select
Dim pad$
1:
pad = InputBox（"請(qǐng)輸入密碼"）
Select Case pad
Case "123456"
MsgBox （"welcome back"）
Case Else
MsgBox （"密碼不正確，請(qǐng)重新輸入密碼"）
GoTo 1:
End Select
End Sub |
 |
csy1688
展開(kāi)
|
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。