更多"在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序： O"的相关试题:
[单项选择]在窗体上画一个名称为Commandl的命令按钮。有下列程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim a
a=Array(45，27，34，24，91，37，11，67，82，63)
For i = 1 To 9
For i = i + 1 To 10
If a(i)＞ a(j)Then
a1 = a(i)
a(i) = a(j)
a(j) = a1
End If
Next j
Next i
For i = 1 To 10
Print a(i)
Next i
End Sub
程序运行后，单击命令按钮，则窗体上第2行和第3行显示的内容是
A. 27和34
B. 34和24
C. 45和63
D. 24和27
[单项选择]在窗体上画一个名称为Commandl的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim a(3，3)
For i=1 To 3
For j=1 To 3
If i=j Then a(i，j)=1
If i＜j Then a(i，j)=2
If i＞i Then a(i，j)=3
Next j
Next i
For i=1 To 3
For j=1 To 3
Print a(i，j)；
Next j
Print
Next i
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。
A. 1 3 3
B. 1 2 2
C. 2 3 3
D. 2 1 1
[单项选择]在窗体上绘制一个名称为Commandl的命令按钮，然后编写如下程序：
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)
Fori=1 To 6
1fx(i)＞c Then
d=d+x(i)
c=x(i)
Else
d=d-c
End If
Nexti
Print d
End Sub
程序运行后，如果单击命令按钮，则在窗体上输出的内容为( )。
A. 10
B. 16
C. 12
D. 20
[单项选择]在窗体上画一个命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click( )
Dim Arr1(12)As Integer，Arr2(3)As Integer
Dim Smm As Integer
Sum=2
For i=1 To 12
A. 程序运行后，单击命令按钮，在窗体上的输出结果是______。 16
B. 24
C. 32
D. 36
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_click（ ）
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行一面的程序，单击命令按钮，其输出结果是 【15】 。
[填空题]设计一个窗体，窗体上画一个名为Command1的命令按钮、一个名为CommonDialogl的通用对话框控件、一个名为Text1的文本框，利用“颜色”对话框将文本框中的字体颜色设置成用户所选择的颜色，为此编写以下程序代码，井按要求将程序补充完整。
Private Sub Command1_Click（ ）
CommonDialogl.Flags=cdlCCRGBInit
CommonDialogl.Color=Text1.ForeColor
【9】
Text1.ForeColor=CommonDialog1.Color
End Sub
[填空题]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base1
Private Sub Command1_Click（ ）
Dim a
s=Array(1,2,3,4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
运行上面的程序，单击命令按钮，其输出结果是 【15】 。
[单项选择]在窗体上画一个命令按钮，然后编写如下事件过程：
Option Base 1
Private Sub Command1_Click( )
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step -1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是______。
A. 4321
B. 12
C. 34
D. 1234
[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写下列代码：
Option Base 0
Private Sub Command1 Click（ ）
Dim A1(4)As Integer，A2(4)As Integer
For k=0 To 2
A1(k+1)=InputBox(”请输入一个整数”)
A2(3-k)=A1(k+1)
Next k
Print A2(k)
End Sub
程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，则输出结果为( )。
A. 0
B. 1
C. 2
D. 3
[单项选择]在窗体上画一个命令按钮，其名称为Command1，然后编写下列代码：
Option Base l
Private Sub Command1 Click（ ）
Dim a
a=Array(1，2，3，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print S
End Sub
程序运行后，单击命令按钮，其输出结果是( )。
A. 4321
B. 1234
C. 34
D. 12
[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写如下代码： Option Base 0 Private Sub Command1_Click（ ） Dim Al(4) As Integer, A2(4) As Integer For k = 0 To 2 A1(k + 1) = InputBox (“请输入1个整数”) A2(3 - k) = A1(k + 1) Next k Print A2(k) End Sub程序运行后，单击命令按钮，在输入对话框中依次输入2、4、6，输出结果为______ 。
A. 1
B. 2
C. 3
D. 4
