Private Sub Form_Load()
Dim a As String
a = InputBox("输入等级")
If a = "A" Then
Print "大于等于90分"
ElseIf a = "B" Then
Print "80到90分之间"
ElseIf a = "C" Then
Print "70到80分之间"
ElseIf a = "D" Then
Print "60到70分之间"
ElseIf a = "E" Then
Print "小于60分"
End If
End Sub
你要把窗体的AutoRedraw属性设置为True才能看到效果