更多"在窗体中添加了一个文本框和一个命令按钮(名称分别为Text1和Comm"的相关试题:
[单项选择]在窗体上画两个名称分别为 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、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、Command1和Label1，文本框的Text1属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click（ ）
x=Int(Val(Text1.Text)+0.5)
Label1.Caption=Str(x)
End Sub
程序运行后，在文本框中输入28.653，单击命令按钮，标签中显示的内容是______。
A. 27
B. 28
C. 29
D. 30
[单项选择]在窗体上画两个名称分别为Text1、Texte2的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程： Private SubCommand1_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
[单项选择]在窗体中添加了一个文本框和一个命令按钮(名称分别为tText和bCommand)，并编写了相应的事件过程。运行此窗体后，在文本框中输入一个字符，则命令按钮上的标题变为“计算机等级考试”。以下能实现上述操作的事件过程是______。
A. Private Sub bCommand_Click( )
B. Private Sub tText_Click( )
C. Private Sub bCommand_Change( )
D. Private Sub tText_Change( )
[单项选择]在窗体上画—个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：
PrivateSubCommand1_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 l0
x=40
End Select
Text2.Text=x
End Sub
程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，则在Text2中显示的内容是 _________。
A. 10
B. 20
C. 30
D. 40
[单项选择]窗体上有Text1、Text2两个文本框及一个命令按钮Command1，编写下列程序： Dim y As Integer Private Sub Command1_Click（ ） Dim x As Integer x=2 Text1.Text=Fun2(Funl(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内的值分别是
A. 2 4 2 4
B. 2 4 4 8
C. 10 10 58 58
D. 4 4 8 8
[填空题]在窗体上画一个命令按钮Command1和一个文本框Text1，然后编写如下代码：
Private Sub Command1_Click（ ）
x=Val(Text1.Text)
Select Case x
Case 1，3
y=x*x
Case Is＞=10，Is＜=-10
y=x
Case -10 To 10
y=-x
End Select
End Sub
程序运行后，在文本框中输入3，然后单击命令按钮，则y的值变为______。
[单项选择]在窗体上画—个命令按钮和—个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1_Click（ ） a=InputBox("请输入日期(1～31)") t="旅游景点："&IIf(a＞0 And a＜=10，"长城"，"")&_ IIf(a＞10 And a＜=20，"故宫"，"")&IIf(a＞20 And a＜=31，"颐和园"，"") Text1.Text=t End Sub 程序运行后，如果从键盘上输入16，则在文本框中显示的内容是
A. 旅游景点：长城故宫
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[单项选择]窗体上有一个名为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
Next j
text1=str(n)
End Sub
程序运行时单击命令按钮，文本框中显示的值是______。
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体中添加名称为Command1和名称为Command2的命令按钮以及文本框Text1，然后编写如下代码： Private Sub Command1_Click( ) Text1.Text="AB" End Sub Private Sub Command2_Cliek( ) Text1.Text="CD" End Sub 首先单击Command1按钮，然后再单击Command2按钮，在文本框中显示
A. AB
B. CD
C. ABED
D. CDAB
[单项选择]在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写
如下事件过程：
Private Sub Command1_Click（ ）
Text1.Text ="Visual"
Me.Text1 = "Basic"
Text1 = "Program"
End Sub
程序运行后，如果单击命令按钮，则在文本框中显示的是
A. Visual
B. Basic
C. Program
D. 出错
[单项选择]在窗体中添加一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下代码： Private Sub Command1_Click( ) Dimaarray1(10，10)As Integer Dim i，j As Integer For i=1 To 3 For j=2 T0 4 Array1(i，j)=i+j Next j Next i Text1.Text=array1 (2，3)+array1(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是
A. 12
B. 13
C. 14
D. 15
[填空题]在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命令按钮Command1变为可用。请填空。
Private Sub Form_Load（ ）
Command1.Enabled=False
End Sub
Private Sub Text1_ ______
Command1.Enabled=True
End Sub
[单项选择]在窗体上画一个名称为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
[单项选择]设Label1、Command1、Text1、Check1分别为标签、命令按钮、文本框、复选框的名称，则以下属性设置语句中，运行时不会出错的是______。
A. Label1.BackStyle=2
B. Command1.Style=1
C. Text1.ScrollBars=4
D. Check1.Value=2
[单项选择]在窗体中添加一个命令按钮(名为Command1)和一个文本框(名为Text1)，并在命令按钮中编写如下事例代码：
Private Sub Command1_Click( )
m=2.17
n=Len(Str$(m)+Space(5))
Me.Text1=n
End Sub
窗体打开运行后，单击命令按钮，在文本框中显示______。
A. 5
B. 8
C. 9
D. 10
