ÀÏʦ×îºó˵£¬´ÓСµ½´óÅÅÁпÉÄܳöÎÊÌ⣬´ÓСµ½´óÅÅÁÐÓ¦¸ÃҲûÓÐÎÊÌâ°É£¡

option









option explicitÕâ¸öÔõôµ÷³öÀ´ÄØ£¿ÎÒн¨Ä£¿éÒÔºóÔõôûÓÐÕâ¸öÏÔʾ£¿

×÷Òµ£º
Sub test£¨£©
1:
dm = InputBox£¨"ÇëÊäÈëÒ»¸ö¼¾½Ú£¬±ÈÈç´º¡¢ÏÄ¡¢Çï¡¢¶¬"£©
Select Case dm 'ÅжÏÓï¾ä
Case "´º"
MsgBox "´ºÌìºÜÃÀ!"
Case "ÏÄ"
MsgBox "ÏÄÌìºÜÈÈ!"
Case "Çï"
MsgBox "ÇïÌìºÜ¸É!"
Case "¶¬"
MsgBox "¶¬ÌìºÜÀä!"
Case Else
MsgBox "ÄãÊäÈëµÄ¼¾½Ú²»¶Ô£¬ÇëÖØÐÂÊäÈ룡"
GoTo 1
End Select

End Sub

{²¹14}±êÌ⣺
goto ±êÌâ
end select
**************************
dim a $
a=inputbox£¨"·ÖÊý"£©
select case a
case 0 to 60
msgbox "²»¼°¸ñ"
@Íõ´óÎ÷

Êý¾Ý·¶Î§²»È«£¬È磺59.2Ôõô°ì£¿

¿ÉÒÔ²»´í