更多"窗体上有两个名称分别为Text1、Text2的文本框，一个名称为Com"的相关试题:
[单项选择]窗体上有一个名为text1的文本框和一个名为command1的命令按钮，事件过程如下：
Private Sub command1_click（ ）
Dim i As Integer，n As Integer
For j=0 to 50
i=i+3
n=n+1
If i＞10 Then Exit For
Nextj
text1=str(n)
End Sub
程序运行时单击命令按钮，文本框中显示的值是（）。
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体上画一个命令按钮Command1和两个文本框，名称分别为Text 1和 Text 2 Text 2。编写如下两个事件过程：
Dim str As String, strl As String
Private Sub form_load（ ）
Text1. Text = " "
Text2. Text = " "
Text1. Enabled = False
Text2. Enabled = False
End Sub
Private Sub Form KeyPress(KeyAscii As Integer)
str= str&Chr(KeyAscii)
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
str1 = strl&Chr(KeyCode)
End Sub
Private Sub Command1_Click（ ）
Text1. Text =str
Text2. Text = str1
str= " "
str1= " "
End Sub
当在设计阶段把窗体KeyPreview属性设置为True时，程序运行过程中，在键盘上输入小写字母abc，然后单击命令按钮，则文本框Text1中显示的内容为 ______ 。
A. abc
B. 不显示任何信息
C. ABC
D. 出错
[单项选择]在窗体上有一个名为Text1的文本框和一个名为Command1的命令按钮，并编写有如下事件过程：
Private Sub Command1_Click（ ）
Dim i As Integer,n As Integer
For i=0 To 50
i=j+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
[单项选择]在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
a=InputBox("Enter an integer")
b=InputBox("Enter an integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是
A. 108
B. 18
C. 810
D. 出错
[单项选择]在启动窗体Form1上画一个名为Command1的命令按钮和两个文本框(其名称分别为Text1和Text2)，新建一个窗体Form2。然后编写如下程序： Private Sub Command1_ Click（ ） msg$ = "Retry" Title$ = "Error!" If Text1. Text = "a" And Text2. Text = "1" Then Unload Me Form 2. Show Else MsgBox msg$, vbOKOnly + vbCritical, Title$ End If End Sub运行该程序，要实现单击Command1命令按钮后卸载当前窗体，再弹出名为Form 2的窗体，则在两个文本框中应分别输入______ 。
A. a 1
B. a a
C. 1 a
D. 1 1
[单项选择]在窗体有两个名为text1、text2的文本框和一个名为Command1的命令按钮，事件过程：
Private sub command1_dick（ ）
Dim x as Integer,n as Integer
x=1
n=0
Do While x＜20
x=x*3
n=n+1
Loop
text1=str(x)text2=str(n)
End Sub
程序运行后，单击命令按钮，在两个文本框text1和text2中显示的值分别是______。
A. 15和1
B. 27和3
C. 195和3
D. 600和4
[单项选择]在窗体上画两个名称分别为 Text1、Text2的文本框和一个名称为 Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim x As Integer， n As Integer
x = 1
n = 0
DoW hilex ＜ 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
[单项选择]在窗体上画一个名为Command1的命令按钮和一个名为Text1的文本框，并把窗体的 KeyPreview 属性设置为True，然后编写如下代码： Dim SaveAll As String Private Sub Form_ Load （ ） Show Text1.Text = " " Text1. SetFocus End Sub Private Sub Command1 Click（ ） Text1. Text= LCase(SaveAll) End Sub Private Sub Form_ KeyPress (KeyAscii As Integer) SaveAll = SaveAll + Chr(KeyAscii) End Sub程序运行后，在键盘上输入ABCDEFG，单击命令按钮，则文本框中显示的内容为 ______ 。
A. abodefg
B. 不显示任何信息
C. ABCDEFG
D. 出错
[单项选择]在窗体上有两个命令按钮Command1和Commnd2，三个文本框Text1，Text2和Text3，有如下事件过程： Private Sub Comuand1_Click（ ） Text3.Text= Text1.Text+Text2.Text End Sub Private Sub Command2_Click（ ） Text3.Text= Text3.Text+Str(Val(Text1.Text)+Val (Text2.Text)) End Sub程序运行后，在Text1和Text2中分别输入123、456，然后依次单击Command1和Command2，则在Text3中显示的内容依次是______ 。
A. 123456 579
B. 123456 123456
C. 579 579
D. 579 123456
[单项选择]窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序
Dim y As Integer
Private Sub Command1_Click（ ）
Dim x As Integer
X=2
Text1.Text=Fun2(Fun1(x)，y)
Text2.Text=Fun1(x)
End Sub
Private Function Fun1(x As Integer)As Integer
x=x+y:y=x+y
Fun1=x+y
End Function
Private Function Fun2(x As Integer，y As Integer)As Integer
Fun2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Textl和Text2内的值分别是
A. 2 4
B. 2 4
C. 10 10
D. 4 4
[单项选择]窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序：
Dim y As Integer
Private Sub Command1_Click（ ）
Dim x As Integer
x=2
Text1.Text=Fun2(Fun1(x),y)
Text2.Text=Fun1(x)
End Sub
Private Function Fun1(x As Integer) As Integer
x=x+y:y=x+y
Fun1=x+y
End Function
Private Function Fun2(x As Integer，y As Integer) As Integer
Fun2=2*x+y
End Function
当单击1次和单击2次命令按钮后，文本框Text1和Text2内的值分别是
Ａ) 2 4
2 4
Ｂ) 2 4
4 8
Ｃ) 10 10
58 58
Ｄ) 4 4
8 8
[单项选择]在窗体中添加一个命令按钮，名称为Command1，两个文本框名称分别为Text1和．Text2，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim x As String，y As String， C As String，d As String
x = Text1．Text ： y = Text2．Text
c = LCase(x)：d = UCase(y)
Print c； d
End Sub
程序运行后，在文本框Texn、Text2中分别输入AbC和efG，结果是
A. abcEFG
B. abcefg
C. ABCefg
D. ABCEFG
[单项选择]在窗体上画两个名称分别为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) EndSub 程序运行后，单击命令按钮，在两个文本框中显示的值分别是 ______。
A. 15和1
B. 27和3
C. 195和3
D. 600和4
