题目内容
（请给出正确答案）
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
安装简答题APP，拍照搜题省时又省心！
更多“窗体上有名称分别为Text1、Text2的2个文本框，要求文…”相关的问题
A.A
B.a
C.C
D.c
窗体上有两个名称分别为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．A
B．a
C．C
D．c
窗体上有一个名为List1的列表框，其中已经输入了若干个项目(如图所示)；
.jpg)
还有两个文本框，名称分别为Text1、Text2，一个名称为Command1的命令按钮，并有以下程序： Private Sub Command1_Click() Dim str As String,s As String,k As Integer s=Text1 str="" For k=List1.ListCount-1 To 0 Step-1 IfInStr(List1.List(k),s)＞0 Then str=str&List1.List(k)&" " End If Next k If str="" Then Text2="没有匹配项目" Else Text2=str End If End Sub 程序运行时，在Text1中输入“京”，单击命令按钮，则在Text2中显示的内容是______。
A．京
B．北京 南京
C．南京 北京
D．没有匹配的项目
框 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
当单击“保存”按钮时．将两个文本框中的内容写入一个随机文件Test29.dat中设文本框中的数据已正确地赋值给Person类型的变量p。则能够正确地把数据写入文件的程序段是
在窗体上画两个文本框，其名称分别为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．BeijingChina
B．China
C．Beijing
D．BeijingC
在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1、Text2，然后编写如下程序： Private Sub Command1_Click() a=Text1.Text b=Text2.Text c=LCase (A)d=UCase (B)Print c；d End Sub程序运行后，在文本框Text1、Text2中分别输入AbC和Efg，结果是______ 。
A．abcEFG
B．abcefg
C．ABCefg
D．ABCEFG
在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序：
Private Sub Form_Load（）
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．BeijingChina
B．China
C．Beijing
D．BeijingC
在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form. Load() Show Text1. Text="" TextText="" Text1. SetFocus End Sub Private Sub Text1_Change() TextText=Mid(Text1. Text, 8) End Sub 程序运行后，如果在文本框Text1中输入BeijingChina，则在文本框Text2中显示的内容是______。
A．Beijing
B．China
C．Beijing
D．BeijingC
在窗体上画两个文本框，其名称分别为Text1和Text2，然后编写如下程序： Private Sub Form_Load() 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．BeijingChina
B．Chima
C．Beijing
D．BeijingC
为了保护您的账号安全，请在“简答题”公众号进行验证，点击“官网服务”-“账号验证”后输入验证码“”完成验证，验证成功后方可继续查看答案！
微信搜一搜
简答题
微信搜一搜
简答题
如搜索结果不匹配，请 
