网友您好， 请在下方输入框内输入要搜索的题目：
题目内容
（请给出正确答案）
窗体上有名称分别为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
参考答案
更多 “ 窗体上有名称分别为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 SubA．TextB．SelTextC．ControlD．Form ” 相关考题
考题
（ 28 ） 窗体上有名称分别为 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 SubA ） TextB ） SelTextC ） ControlD ） Form
考题
窗体上有名称分别为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 SubA．TextB．SelTextC．ControlD．Form
考题
窗体上有名称分别为Textl、Text2的2个文本框，要求文本框Textl中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在下 划线处应填入的内容是( )。 Private Sub Textl_ostFocus() Call Checklnput(Textl,500) End Sub Private Sub Text2_LostFocus() Call Checklnput(Text2,1000)A．TextB．SelTextC．ControlD．Form
考题
在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：Private Sub Form_Load（）ShowText1.Text = ""Text2.Text = ""Text1.SetFocusEnd SubPrivate Sub Text1_Change（）Text2.Text = Mid（Text1.Text, 8）End Sub程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是（ ）。A．BeijingChinaB．ChinaC．BeijingD．BeijingC
考题
在窗体上画两个名称分别为Text1、Text2的文本框。Text 1的Text的属性为“DataBase”，如图所示。 现有如下事件过程 Private Sub Text1_Change（ ） Text 2．Text=Mid(Text1，1，5) End Sub 运行程序，在文本框Text1中原有字符之前输入a，Text2中显示的是（ ）。A.DataAB.DataBC.aDataD.aBase
考题
在名为“Form1”的窗体上添加3个文本框和一个命令按钮，其名称分别为“Text1”、“Text2”、“Text3”和“Command1”，然后编写如下两个事件过程：Private Sub Commandl Click()Text3=Text1+Text2End SubPrivate Sub Form1 Load()Text1=" "Text2=" "Text3=" "End Sub打开窗体Form1后，在第一个文本框(Text1)和第二个文本框(Text2)中分别输入5和7，然后单击命令按钮Command1，则文本框(Text3)中显示的内容为【 】。
考题
窗体上有两个名称分别为Text1、Text2的文本框。Text1的KeyUp事件过程如下： Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Dim c As String c=UCase(Chr(KeyCode)) Text2.Text=Chr(Asc(C+2) ) End Sub 当向文本框Text1中输入小写字母a时，文本框Text2中显示的是( )。A．AB．aC．CD．c
考题
在窗体上有两个文本框控件，名称分别为Text1和Text2，以下程序实现的功能是希望在文本框Text1中输入字符时，输入的字符也将出现在Text2文本框中。运行时的程序界面如图20-1所示，下划线处应填( )。Private Sub Text1_ _________() TextText=Text1.Text End SubA．SetFocusB．ChangeC．GetFocusD．Click
考题
在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load0 Show Text1.Text="" Text2.Text="" Text1.SetFocus End Sub Private Sub Text1 Change() Text2.Text=Mid(Text1.Text,8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是( )。A．BeijingChinaB．ChinaC．BeijingD．BeijingC
热门标签
最新试卷
