[单项选择]在窗体中有一个命令按钮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和一个文本框Test1，编写事件"的相关试题:

[单项选择]在窗体中有一个命令按钮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和一个文本框Text1，编写如下代码：
Private Sub Command1_Click（　）
Dim x As Integer，y As Integer，z As Integer
a=5，b=10，c=0
Me!Text1=" "
Call p1(a,b,c)
Me!Text1=12
End Sub
Sub pl(XxAs Integer，y As Integer，z As Integer)
z=x+y
End Sub
程序运行后，文本框中应显示的内容为______。

查看答案

[单项选择]在窗体上画一个命令按钮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（　）
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（　）
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. 旅游景点：故宫

查看答案

[单项选择]设窗体上有一个文本框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

查看答案

[单项选择]设窗体上有一个文本框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（　）
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. 旅游景点：故宫

查看答案

[单项选择]

设窗体上有一个文本框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

查看答案

[填空题]在窗体上有一个命令按钮和一个文本框。编写如下事件过程： Private Sub Command1_Click（　） a=InputBox("请输入一个整数") Text1．Text=a If a ＞ 0 Then If a Mod 3 = 0 Then MsgBox "True" Else MsgBox "error" End If End If End Sub 程序运行后，单击命令按钮，在输入对话框里输入12，则弹出的提示内容是______。

查看答案

[单项选择]窗体有命令按钮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，编写事件代码如下：
Private Sub Command1_Click（　）
Dim s As Integer
s=P(1)+P(2)+P(3)+P(4)
Debug.Print s
End Sub
Public Function P(N As Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+1
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出的结果是
A. 15
B. 20
C. 25
D. 35

查看答案

[单项选择]在窗体中有一个命令按钮Command1，编写事件代码如下：
Private Sub Command1_Click（　）
Dim s As Integer
8=P(1)+P(2)+P(3)+P(4)
debug.Print s
End Sub
Public Function P(N As Integer)
Dim Sum As Integer
Sum=0
For i=1 To N
Sum=Sum+i
Next i
P=Sum
End Function
打开窗体运行后，单击命令按钮，输出结果是______。
A. 15
B. 20
C. 25
D. 35

查看答案

我来回答:

提交