问题 单项选择题

窗体上有名称分别为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为所有控件的基类型。

单项选择题
填空题