窗体上有名称分别为Text1、Text2的两个文本框,要求文本框Text1中输入的数
问题:
窗体上有名称分别为Text1、Text2的两个文本框,要求文本框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中间号()处应填入的内容是
Private Sub Text1_LostFocus()
Call CheekInput(Text1,500)
End Sub
Private Sub Text2_LostFocus()
Call CheekInput(Text2,1000)
End Sub
Sub Cheeklnput(t As , x As Integer)
If Val(t.Text)>x Then
MsgBox "请重新输入!"
End If
End Sub
A.Text
B.SelText
C.Control
D.Form