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
框 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
A、复制出来的文本输入框与原文本输入框的各种属性的设置完全相同
B、若原文本输入框的名称为TextBox1,则复制出的第1个文本输入框的名称自动为TextBox11
C、复制出的文本输入框可以重新命名
D、在复制时可以创建文本输入框控件数组
为了保护您的账号安全,请在“简答题”公众号进行验证,点击“官网服务”-“账号验证”后输入验证码“”完成验证,验证成功后方可继续查看答案!