Question

输入两个数（由用户输入），VB编程实现输出两个数中最大的数

Answer 1

Private Sub Command1_Click()
a = Val(InputBox("输入第1个数"))
b = Val(InputBox("输入第2个数"))
MsgBox "最大的数是:" & IIf(a > b, a, b)
End Sub

追问

任意输入1个百分制成绩，输出该分数对应的级别：90≦分数≦100,输出“优”；80≦分数＜90，输出“良”；70≦分数＜80，输出“中”；60≦分数＜70，输出“差”；分数＜60，输出“不及格”；分数＜0或分数＞100，则输出“输入有误”。
麻烦这个也回答一下下

追答

Private Sub Command1_Click()
Dim score As Single
score = Val(InputBox("输入成绩"))
If score < 60 Then
MsgBox "不及格"
ElseIf score < 70 Then
MsgBox "差"
ElseIf score < 80 Then
MsgBox "中"
ElseIf score < 90 Then
MsgBox "良"
ElseIf score <= 100 Then
MsgBox "优"
Else
MsgBox "输入有误"
End If
End Sub