VB 用inputbox輸入壹個成績，並將成績等分：100為滿分，90-99為優秀，80-90為良好，70-79為中等，60-69及格

Dim x As Single

x = Val(InputBox("請輸入壹個分數", , 100))

Select Case x

Case Is < 60

Print x & "不及格"

Case Is < 70

Print x & "及格"

Case Is < 80

Print x & "中等"

Case Is < 90

Print x & "良好"

Case Is < 100

Print x & "優秀"

Case Else

Print x & "滿分"

End Select

End Sub