Private Sub Command1_Click()
Dim exam As Integer
exam = Text1.Text
Select Case----------------
Case Is < 60
Label1.Caption = "该学生的成绩等级为:D"
Case 60 To 69
Label1.Caption = "该学生的成绩等级为:C"
Case 70 To 84
Label1.Caption = "该学生的成绩等级为:B"
Case 85 To 100
Label1.Caption = "该学生的成绩等级为:A"
Case Else
Label1.Caption = "输入的数据不合法"
End If
End Sub
划横线呢填啥
Dim exam As Integer
exam = Text1.Text
Select Case----------------
Case Is < 60
Label1.Caption = "该学生的成绩等级为:D"
Case 60 To 69
Label1.Caption = "该学生的成绩等级为:C"
Case 70 To 84
Label1.Caption = "该学生的成绩等级为:B"
Case 85 To 100
Label1.Caption = "该学生的成绩等级为:A"
Case Else
Label1.Caption = "输入的数据不合法"
End If
End Sub
划横线呢填啥