Dim A As Double
A = InputBox("DDDDDDD")
If A < 60 Then
MsgBox "不及格"
ElseIf A < 70 Then
MsgBox "及格"
ElseIf A < 80 Then
MsgBox "中等"
ElseIf A < 90 Then
MsgBox "良好"
ElseIf A < 100 Then
MsgBox "優秀"
Else
MsgBox "值輸入錯誤"
End If
End Sub