更多"在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程"的相关试题:
[单项选择]在窗体上绘制一个命令按钮，其名称为Command1，然后编写如下事件过程：
Private Sub Command1_Click（ ）
Dim i As Integer,x As Integer
For i_1 T0 6
If i=1 Then x=i
If i＜=4 Then
x=x+1
Else
x=x+2
End If
Next i
Print x
End Sub
程序运行后，单击命令按钮，其输出结果为( )。
A. 9
B. 6
C. 12
D. 15
[单项选择]在窗体上绘制一个命令按钮和一个文本框，名称分别为Command1和Text1，然后编写如下程序： Private Sub Command1+Click（ ） a=InputBox(“请输入日期(1～31)”) t=“旅游景点：” &If(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. 旅游景点：故宫
[单项选择]在窗体上绘制一个名称为Command1的命令按钮，然后编写如下通用过程和命令按钮的事件过程：
Private Function fun(ByVal m As Integer)
If m Mod 2=0 Then
fun=2
Else
fun=1
End If
End Function
Private Sub Command1_Click（ ）
Dim i As Integer,s As Integer
s=0
For i=1 To 5
s=s+fun(i)
Next
Print s
End Sub
程序运行后，单击命令按钮，在窗体上显示的是( )。
A. 6
B. 7
C. 8
D. 9
[填空题]设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。
Private Sub Command1_Click（ ）
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[单项选择]在窗体上绘制一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Commandl_Click（ ）
Dim c As Integer，d As Integer
d=0
c=6
x=Array(2，4，6，8，10，12)
For i=1 To 6
If x(i)＞c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Next i
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为
A. 10
B. 16
C. 12
D. 20
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写如下程序： Option Base 1 Private Sub Command1_Click（ ） Dim Arr Arr=Array(1，2，3，4，5) j = 1 For i=5 To 1 Step-1 S=S+Arr(i)*j j=j*10 Next Print S End Sub 程序运行后，单击命令按钮，输出结果为( )。
A. 54321
B. 123
C. 12345
D. 345
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写下列程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim Arr
Arr=Array(1,2,3,4,5)
j=1
For i=5 To 1 Step-1
S=S+Arr(i)*j
j=j*10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果是( )。
A. 54321
B. 123
C. 12345
D. 345
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click（ ）
Dim a
a=Array(1,2,3,4)
j=1
For j=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，其输出结果是
A. 1234
B. 12
C. 34
D. 4321
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1_Click（ ）
Dim a
a=Array(1，2，3，4)
j=1
For i=3 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，其输出结果是
A. 1234
B. 12
C. 34
D. 4321
[填空题]在窗体上画一个名为Command1的命令按钮，然后编写如下程序：
Private Sub Command1_Click（ ）
Dim i As Integer
Sum=0
n=InputBox("Enter a number")
n=Val(n)
For i=1 To n
Sum= (9)
Next i
Print Sum
End Sub
Function fun(t As Integer) As Long
p=1
For i=1 To t
p=p*i
Next i
(10)
End Function
以上程序的功能是：计算11 +2! +3!+…+n!，其中n从键盘输入，请填空。
[单项选择]在窗体上画一个名为Command1的命令按钮，然后编写以下程序：
Private Sub Command1_Click（ ）
Dim M(10) As Integer
For k = 1 To 10
M(k) = 12 - k
Next k
x=8
Print M(2 + M(x))
End Sub
运行程序，单击命令按钮，在窗体上显示的是( )。
A. 6
B. 5
C. 7 D) 8
