完整的代碼及說(shuō)明為：
Sub 為成績(jī)?cè)u(píng)定等次() '過(guò)程開始，聲明過(guò)程名稱
Dim cj As Variant '聲明一個(gè)Variant型變量cj
cj = InputBox("輸入考試成績(jī)：") '將輸入的數(shù)據(jù)存儲(chǔ)到變量cj中
Select Case cj 'Select Case 語(yǔ)句開始，變量cj是用來(lái)判斷和比較的數(shù)據(jù)
Case 0 To 59 '當(dāng)cj的值為0到59的時(shí)候
MsgBox "等級(jí)：D" '消息框顯示“等級(jí)：D”
Case 60 To 69 '當(dāng)cj的值為60到69的時(shí)候
MsgBox "等級(jí)：C" '消息框顯示“等級(jí)：C”
Case 70 To 79 '當(dāng)cj的值為70到79的時(shí)候
MsgBox "等級(jí)：B" '消息框顯示“等級(jí)：B”
Case 80 To 100 '當(dāng)cj的值為80到100的時(shí)候
MsgBox "等級(jí)：A" '消息框顯示“等級(jí)：A”
Case Else '其他情況
MsgBox "輸入錯(cuò)誤!" '消息框顯示“輸入錯(cuò)誤！”
End Select 'Select Case語(yǔ)句結(jié)束
End Sub '過(guò)程結(jié)束
代碼窗口中內(nèi)容的截圖如下，其中：綠色文字為代碼說(shuō)明。
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任，
本站有權(quán)保留或刪除有爭(zhēng)議評(píng)論。
參與本評(píng)論即表明您已經(jīng)閱讀并接受
上述條款。