Private Sub Command1_Click()
If Text1.Text = "" Then
MsgBox "请输入成绩", vbInformation, "提示"
Text1.SetFocus
Exit Sub
End If
If IsNumeric(Text1.Text) = False Then
MsgBox "你输入的不是数字,请重新输入", vbInformation, "提示"
Text1.SetFocus
SendKeys "{Home}+{End}"
Exit Sub
Else
End If
Select Case Trim(Text1.Text)
Case Is >= 90: Text1.Text = Text1.Text & "分为:优"
Case 80 To 89: Text1.Text = Text1.Text & "分为:好"
Case 70 To 79: Text1.Text = Text1.Text & "分为:良"
Case 60 To 69: Text1.Text = Text1.Text & "分为:及格"
Case Is <= 60: Text1.Text = Text1.Text & "分为:不及格"
End Select
End Sub
温馨提示:内容为网友见解,仅供参考