求助VB题目~!

来源：百度知道 编辑：UC知道 时间：2024/05/24 01:00:41
若用txtGrade控件（文本框）输入学生成绩，试利用焦点控制事件编写事件过程，限制学生成绩在0到100之间。

Private Sub txtGrade_LostFocus()
Dim f As Single
If IsNumeric(txtGrade.Text) = False Then
MsgBox "成绩必须为一个数字!"
txtGrade.Text = ""
txtGrade.SetFocus
Else
f = Val(txtGrade.Text)
If f < 0 Or f > 100 Then
MsgBox "成绩必须在0~100之间"
txtGrade.Text = ""
txtGrade.SetFocus
End If
End If
End Sub