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