更多"在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件"的相关试题:
[单项选择]设窗体上有一个文本框Text1和一个命令按钮Command1，并有以下事件过程：
Private Sub Command1_Click（ ）
Dim s As String，ch As String
s = " "
For k = 1 To Len(Text1)
ch = Mid(Text1, k, 1)
s = ch + s
Next k
Text1. Text = s
End Sub
程序执行时，在文本框中输入“Basic”，然后单击命令按钮，则Text1中显示的是( )。
A. Basic
B. cisaB
C. BASIC D) CISAB
[单项选择]在窗体上有一个命令按钮Command1和一个文本框Text1，编写事件代码如下： Private Sub Command1_Click（ ） Dim i，j，x For i=1 To 20 Step 2 x=0 For j-i To 20 Step 3 x=x+1 Next j Next i Text1.Value=Str(x) End Sub打开窗体运行后，单击命令按钮，文本框中显示的结果是
A. 1
B. 7
C. 17
D. 400
[单项选择]窗体上有名称为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和命令按钮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
[填空题]在窗体上画一个命令按钮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="旅游景点："_
&Ⅱf(A＞0 And A＜=10,"长城","")_
&Ⅱf(A＞10 And A＜=20,"故宫","")_
&Ⅱf(A＞20 And A＜=30,"颐和园","")
Text1.Text=t
End Sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
A. 旅游景点：长城
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[单项选择]在窗体中有一个命令按钮Command1和一个文本框Text1，编写事件代码如下：
Private Sub Command1_Click（ ）
For i=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1.value=Str(x)
End Sub
打开窗体运行后，单击命令按钮，文本框Text1输出的结果是（）。
A. 6
B. 12
C. 18
D. 21
[单项选择]在窗体上画一个命令按钮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＜=30,"颐和园","") Text1.Text=t End Sub 程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
A. 旅游景点：长城
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[单项选择]在窗体上画一个命令按钮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＜=30，"颐和园"，"")
Text1.Text=t
End Sub
程序运行后，如果从键盘输入5，则在文本框中显示的内容是( )。
A. 旅游景点：长城
B. 旅游景点：长城颐和园
C. 旅游景点：颐和园
D. 旅游景点：故宫
[单项选择]窗体有命令按钮Command1和文本框Text1，对应的事件代码如下：
Private Sub Command1_Click（ ）
For i=1 To 4
x=3
For j=1 To 3
For k=1 To 2
x=x+3
Next k
Next j
Next i
Text1.Value=Str(x)
End Sub
运行以上事件过程，文本框中的输出是______。
A. 6
B. 12
C. 18
D. 21
[单项选择]在窗体中有一个命令按钮Command1和一个文本框Test1，编写事件代码如下： Private Sub Command1_Click（ ） For I=1 To 4 x=3 For j=1 To 3 For k=1 To 2 x=x+3 Next k Next j Next I Text1.Value=Str(x) End Sub 打开窗体运行后，单击命令按钮，文本框Text1中输出的结果是
A. 6
B. 12
C. 18
D. 21
[单项选择]窗体上有名称为Command1的命令按钮和名称为Textl的文本框
Private Sub Command1 Click（ ）
Text1．Text="程序设计"
Text1．SeFocus
End Sub
Private Sub Text1 GotFocus（ ）
Text1．Text="等级考试"
End Sub
运行以下程序，单击命令按钮后( )。
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
Nextj
text1=str(n)
End Sub
程序运行时单击命令按钮，文本框中显示的值是（）。
A. 2
B. 3
C. 4
D. 5
[单项选择]在窗体上有一个名为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
