问题
单项选择题
窗体上有名称分别为Text1、Text2的2个文本框,要求文卒框Text1中输入的数据小于500,文本框Text2中输入的数据小于1000,否则重新输入。为了实现上述功能,在以下程序中问号()处应填入的内容是()。
Private Sub Text1 LostFocus()
Call CheckInput(Text1,500)
End Sub
Private Sub Text2 LostFocus()
Call CheCkInput(Text2,1000)
End Sub
Sub CheckInput(t AS ,x As Integer)
If Val(t.Text)>X Then
MsgBox "请重新输入!"
End If
End Sub
A.Text
B.SelText
C.Control
D.Form
答案
参考答案:C
解析:
[评析] 由过程Text1_LostFocus及过程Text2_LostFocus中对过程CheckInput的调有可知,CheckInput的第一个参数应为TextBox类型或其父类型,在所有选项中C符合要求。Contro1为所有控件的基类型。