[单项选择]在窗体上画两个名称为Tcxt1、Text2的文本框和一个名称为Command1的命令按钮，然后编写如 下事件过程：
Private Sub Command1 Click（　）
Dim x As Integer，n As Integer
x=1
n=0
Do While x＜20
x=x*3
n=n +l
Loop
Text1.Text=Str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A. 9和2
B. 27和3
C. 195和3
D. 600和4

[单项选择]

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序： Dim S1 As String,S2 As String
Private Sub Form_Load（　）
Text1.Text＝""
Text2.Text＝""
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2 & Chr(Keycode)
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
S1=S1 & Chr(KeyAscii)
End Sub
Private Sub Command1_Click（　）
Text1.Text=S2
Text2.Text=S1
S1＝""
S2＝""
End Sub
程序运行后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为（）。

A. abc和ABC
B. abc和abe
C. ABC和abc
D. ABC和ABC

[单项选择]在窗体上画两个名称为Text l、Text 2的文本框和一个名称为Command l的命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click（　）
Dim x As Integer，n As Integer
x=1
n=0
Do While x＜20
x＝x*3
n=n＋l
Loop
Textl．Text=Str(x)
Text2．Text-Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A. 9和2
B. 27和3
C. 195和3
D. 600和4

[单项选择]在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
Private Sub Command1_Click（　）
n=Text1.Text
Select Case n
Case 1 To 20
x=10
Case 2, 4, 6
x=20
Case Is＜10
x=30
Case 10
x=40
End Select
Text2. Text=x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是______。
A. 10
B. 20
C. 30
D. 40

[单项选择]在窗体上画两个名称分别为Text1，Text2的文本框和一个名称为Command1命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（　）
Dim x As Integer,n As Integer
x=1
n=0
Do While x＜20
　x=x*3
　n=n+1
Loop
Text1.Text=str(x)
Text2.Text=Str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别是( )。
A. 15和1
B. 27和3
C. 195和3
D. 600和4

[单项选择]

窗体上有名称分别为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，然后编写如下程序：
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

[单项选择]

在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text I和Text2,在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
　　Dim S I As String, S2 As String
　　Private Sub Form Load（）
　　Text 1 .Text=""
　　Text2.Text=""
　　Text 1．Enabled=False
　　Text2．Enabled=False
　　End Sub
　　Private Sub Form_ KeyDown（KeyCode As Integer, Shift As Integer）
　　S2=S2＆Chr（KeyCode）
　　End Sub
　　
　　Private Sub Forin_ KeyPress（KeyAscii As Integer）
　　S1=S1＆Chr（KeyAscii）
　　End Sub
　　Private Sub Command l Click
　　Text l .Text=Sl
　　Text2.Text=S2
　　S1=""
　　S2=""
　　End Sub
　　程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Textl和Text2中显示的内容分别为（）

A. abc和ABC
B. 空白
C. ABC和abc
D. 出错

[单项选择]在窗体上画一个命令按钮和两个文本框，其名称分别为Command1、Text1和Text2，在属性窗口中把窗体的KeyPreview属性设置为True，然后编写如下程序：
Dim S1 As String,S2 As String
Private Sub Form_Load（　）
Text1.Text=" "
Text2.Text=" "
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
S2=S2&Chr(KeyCode)
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
S1=S1&Chr(KeyAscii)
End Sub
Private Sub Command1_Click（　）
Text1.Text=S1
Text2.Text=S2
S1=" "
S2=" "
End Sub
程序运行后，先后按“a”、“b”、“c”键，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别为( )
A. abc和ABC
B. 空白
C. ABC和abc
D. 出错

[单项选择]在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text1和Text2。编写如下两个事件过程：
Dim Str1 As String, str2 As String
Private Sub form_load（　）
Text1.Text=“”
Text2.Text=“”
Text1.Enabled=False
Text2.Enabled=False
End Sub
Private Sub Form_KeyPress(KeyAsai As Integer)
str1=str1&Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
str2=str2＆Chr(KeyCodel
End Sub
Private Sub Command1_Clickt)
Text1.Text=str1
Text2.Text=str2
str1=“”
str2:“”
End Sub
当在设计阶段的窗体的KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc,然后单击命令按钮，则文本框Text1中显示的内容为( )。
A. abc
B. 不显示任何信息
C. ABC
D. 出错

[单项选择]在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1)，然后编写下列事件过程：
Private Sub Command1_Click（　）
x=0
DO While x＜50
x=(x+2)*(x+3)
n=n+1
Loop
Text1.Text=Str(n)
Text2.Text=Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为( )
A. 1和0
B. 2和72
C. 3和50
D. 4和168

[单项选择]在窗体上画两个文本框(其Name属性分别为Text1和Text2)和一个命令按钮(其Name属性为Command1)，然后编写如下事件过程：
Private Sub Command1_Click( )
　　x = 0: n = 0
　　Do Until x >= 30
　　　　x = (n + 2)* (n + 3)
　　　　n = n + 1
　　Loop
　　Text1.Text = Str(n)
　　Text2.Text = Str(x)
End Sub
程序运行后，单击命令按钮，在两个文本框中显示的值分别为________。
(A) 2 和 30
(B) 2 和240
(C) 3 和 50
(D) 4 和30