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