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