更多"窗体上有2个名称分别为Text1和Text2的文本框。编写如下程序： "的相关试题:
[单项选择]窗体上有名称为Command1的命令按钮和名称为Text1的文本框
Private Sub Command1_Click（ ）
Text1. Text = "程序设计"
Text1. SetFocus
End Sub
Private Sub Text1_GotFocus（ ）
Text1. Text = "等级考试"
End Sub
运行以上程序，单击命令按钮后( )。
A. 文本框中显示的是“程序设计”，且焦点在文本框中
B. 文本框中显示的是“等级考试”，且焦点在文本框中
C. 文本框中显示的是“程序设计”，且焦点在命令按钮上
D. 文本框中显示的是“等级考试”，且焦点在命令按钮上
[单项选择]在窗体上有两个文本框：Text1和Text2，然后编写如下事件过程：
Private Sub Form_Load（ ）
Show
Text1.Text="":Text2.Text="":Text2.SetFocus
End Sub
Private Sub Text2_KeyDown(KeyCode As Integer,Shift As Integer)
Text1.Text=Text1.Text+Chr(KeyCode-4)
End Sub
程序运行后，如果在Text2文本框中输入“ertyu”，则Text1文本框中的内容为( )。
A. anpuq
B. ANPUQ
C. ERTYU
D. ertyu
[单项选择]在窗体上有一个文本框，其名称为Text1，编写下列事件过程：
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim str As String
str=Chr(KeyAscii)
KeyAscii=Asc(UCase(str))
Text1.Text=Stririg(2,KeyAscii)
End Sub
程序运行后，如果在键盘上输入字母“a”，则在文本框Text3中显示的内容为( )。
A. aaa
B. AAA
C. AA
D. aa
[单项选择]在窗体上有文本框Text1和命令按钮Command1，并有下列事件过程：
Private Sub Command1_Click（ ）
Dim i As Integer,n As Integer
For i=0 To 50
i=i+3
n=n+1
If i>10 Then Exit For
Next
Text1.Text=Str(n)
End Sub
单击命令按钮，程序运行后，在文本框中显示的值是( )。
A. 2
B. 3
C. 4
D. 5
[单项选择]窗体上有名称分别为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，Text属性值为空，然后编写下列事件过程：
Private Sub Text1 KeyPress(KeyAscii As Integer)
Dim str As String,n As Integer
str=UCase(Chr(KeyAscii))
n=Len(str)
Text1.Text=String(n,str)
End Sub
程序运行后，若在文本框中输入单字母“p”，则在文本框Text1中显示的内容为( )。
A. pp
B. pP
C. PP
D. Pp
[单项选择]设在窗体上有一个文本框，然后编写如下的事件过程： Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Intcger) Const Alt=4 Const Key_f2=&H71 altdown%=(Shift And Alt) ＞ 0 f2down% And f2down% Then If altdown% And f2down% Then Text ="abl" End If Ead Sub 程序运行后，清除文本框中原有内容，如果按Shift+F2键，则在文本框中显示的是
A. Alt+F2
B. abl
C. 随机出儿个数
D. 不发生变化
[单项选择]设在窗体上有个文本框，然后编写如下的事件过程：
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Const Alt=4
Const Key_F2=&H71
altdown%=(Shift And Alt)>0
f2down%=(KeyCode=Key_F2)
If altdown% And f2down% Then
Text1．Text="BBBBB"
End If
End Sub
上述程序运行后，如果按【Shift+F2】，则在文本框中显示的是（ ）。
A. Alt+F2
B. BBBBB
C. 随机出几个数
D. 文本框平均内容无变化
[单项选择]设在窗体上有个文本框，然后编写如下的事件过程。 Private Sub Text1_KeyDown(KeyCode As Integef，Shift As Integer) Const Alt=4 ConstKey_F2=&H71 altdown%=(Shift And Alt)＞0 f2down%=(KeyCode=Key_F2) If altdown% And f2down% Then Text1.Text= "BBBBB" End If End Sub 上述程序运行后，如果按[Shift+F12]，则在文本框中显示得是
A. Alt+n
B. BBBBB
C. 随机出几个数
D. 文本框平均内容无变化
[单项选择]窗体上有名称分别为Text1、Text2的两个文本框，要求文本框Text1中输入的数据小于500，文本框Text2中输入的数据小于1000，否则重新输入。为了实现上述功能，在以下程序中间号（ ）处应填入的内容是
Private Sub Text1_LostFocus（ ）
Call CheekInput(Text1,500)
End Sub
Private Sub Text2_LostFocus（ ）
Call CheekInput(Text2,1000)
End Sub
Sub Cheeklnput(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的文本框，并编写如下程序：
Private Sub Form_Load（ ）
Show
Text1.Text=" "
Text1.SetFocus
End Sub
Private Sub Form_MouseUp(Button As Integer，
Shift As Integer，X As Single，Y As Single)
Print“程序设计”
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer，Shift As Integer)
Print "Visual Basic"；
End Sub
程序运行后，如果在文本框中输入字母“a”，然后单击窗体，则在窗本上显示的内容是
A. Visual Basic
B. 程序设计
C. Visual Basic程序设计
D. a程序设计
