Question

vb程序根据输入的成绩转化为成绩等级

vb程序根据输入的成绩转化为成绩等级

Answer 1

Private Sub Command1_Click()
x = CInt(InputBox("成绩＝"))
Select Case x
Case x <= 100 And x >= 85
dd = "A"
Case x >= 75 And x < 85
dd = "B"
Case x >= 60 And x < 75
dd = "C"
Case x >= 0 And x < 60
dd = "D"
Case Else
dd = "输入错误！"
End Select
Print x; "==>"; dd
End Sub

Answer 2

用select case 语句