ΪʲôÎÒÁ·Ï°Õâ¸ö°¸ÀýµÄʱºò£¬ÊäÈëÕýÈ·£¬Ëû»¹ÊÇÔÚÈÃÎÒÒ»Ö±ÊäÈëÃÜÂë

ÓиöÒÉÎÊ£¬ºÜ¶à±à³Ì¶¼²»½¨ÒéÓÃGOTOÓï¾äµÄ¡£ÏÖÔڽ̺ÏÊÊÂð£¿

ÀÏʦÕæµÄºÃÀ÷º¦ ѽ

ÐÒ¿÷ÒÔÇ°×ÔѧÑо¿¹ýACCESSµÄVBA´úÂ룬×Ô¼ºµ±ÄêÑо¿»¹ÊDZȽϼèÄѵģ¬Ã»È˽̣¬È«²¿¿¿×Ô¼ºÃþË÷¡£ÓÐÁËÄǸö»ù´¡£¬¿´Õâ¸öÉÔ΢˳Àûµã£¬²»¹ý»¹ÊǸоõµ½ÕâÑùµÄÓï¾äÓеã¹Ö¡£ÂýÂýѧѧ¿´¡£

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

Sub test£¨£©
Dim pad$
0:
pad = InputBox£¨"ÇëÊäÈëÃÜÂë!"£©
If pad = 888 Then
MsgBox "ÃÜÂëÕýÈ·£¬µÇ¼³É¹¦£¡"
Else
MsgBox "ÃÜÂë²»ÕýÈ·£¬ÖØÐÂÊäÈë"
GoTo 0
End If
End Sub