更多"在窗体上绘制一个名称为Command1的命令按钮，然后编写如下程序： "的相关试题:
[单项选择]在窗体上画一个名为Command 1的命令按钮，然后编写如下程序：
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 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(4, 4) For i = 1 To 4 For j = 1 To 4 arr(i, j) = (i - 1) * 3 + j Next j Next i For i = 1 To 2 For j = 1 To 2 Print arr(i, j) Next j Next i End Sub程序运行后，单击命令按钮，输出结果为______ 。
A. 3 4 6 7
B. 7 8 10 11
C. 1 2 4 5
D. 8 9 12 13
[单项选择]在窗体上画一个名为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 + Art(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 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、Command2两个命令按钮。现编写以下程序：
Option Base 0
Dim a（ ）As Integer,m As Integer
Private Sub Command1 Click（ ）
m=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
Private Sub Command2 C1ick（ ）
m=InputBox("请输入一个正整数")
ReDim a(m)
End Sub
运行程序时，单击Command1后输入整数10，再单击Command2后输入整数5，则数组a中元素的个数是( )
A. 5
B. 6
C. 10
D. 11
[单项选择]在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：
Option Base 1
Private Sub Command1_ 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. 12
C. 16
D. 20
[单项选择]在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：
Option Base 1
Private Sub Command1_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. 12
C. 16
D. 20
[填空题]在窗体上画一个命令按钮，其名称为Command1，然后编写如下代码：
Option Base 1
Private Sub Command1_Click（ ）
Dim Arr
Arr=Array(43,68,-25,65,-78,12,-79, 43,-94, 72)
pos=0
neg=0
For k=1 To 10
If Arr(k)>0 Then
(8)
Else
(9)
End If
Next k
Print pos, neg
End Sub
以上程序的功能是，计算并输出数组Arr中10个数的正数之和pos与负数之和neg，请填空。
