更多"在窗体上添加一命令按钮，名为Command，事件过程如下： opti"的相关试题:
[单项选择]在窗体上添加一个命令按钮，其名为Command1，然后编写代码如下：
Option Base 1
Private Sub command1_ Click（ ）
Dim arr (4)As Integer
Dim arrt (4) As Integer
for i= 1 To 4
Arr (i)= i
arr1 (n)= 2 * n + i
Next i
Print arr1 (n); arr(n)
程序的运行结果为______。
A. 3 11
B. 11 3
C. 10 3
D. 3 13
[单项选择]在窗体上添加一个命令按钮(其Name属性为Command1),然后编写如下代码： Option Base 1 Private Sub Command1_Click（ ） Dim a s = 0 a = Array(4, 3, 2, 1) 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 Commandl_Click（ ）
Dim A(4)As integer,B(4)As Integer
For k=0 To 2
A(k+1)=InputBox("请输入一个整数")
B(3-k)=A(k+1)
Next k
Print B(k)
End Sub
程序运行后,单击命令按钮,在输入对话框中分别输入2、4、6,输出结果为【 】
A. 0
B. 2
C. 3
D. 4
[单项选择]在窗体上画一个命令按钮，名称为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 1
Pdvate 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 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
[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：
Option Base 0
Private Sub Command1_Click( )
Dim city As Variant
city=Array(“北京”，“上海”，“天津”，“重庆”)
Print city(1)
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是
A. 空白
B. 错误提示
C. 北京
D. 上海
[单项选择]在窗体上放置一个命令按钮Command1，并编写下列单击事件的程序：
Option Base 1
Private Sub Commandl_Click0
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
