更多"在窗体上画一个名为Command1的命令按钮，然后编写如下代码： O"的相关试题:
[单项选择]在窗体上画一个名为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 As Variant
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 1
Private Sub Command1_Click（ ）
Dim a
a=Array(1，2，3，4)
j=1
Fori=4 To 1 Step-1
s=s+a(i)*j
j*10
Next i
Print s
End Sub
程序运行后，单击命令按钮，其输出结果是______。
A. 12
B. 34
C. 1234
D. 4321
[单项选择]在窗体上画一个命令按钮，其名称为Command1，然后编写下列代码：
Option Base 1
Private Sub Command1_Click（ ）
Dim a
a=Array(1,2,3,4)
j=1
For i=4 T0 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 1 Private Sub Command1_Click（ ） Dim arr(4)As String For i=1 To 4 arr(i) = Chr(Asc("A")+(i-1)) Next i For Each b1 In arr Print b1； Next End Sub 程序运行后，如果单击命令按钮，则在窗体上输出的内容为 ______。
A. ABCD
B. abcd
C. 出错信息
D. 1 2 3 4
[填空题]
在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click（ ）
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
Call swap（ 【13】 ）
For i = 1 To 10
Print a(i);
Next
End Sub
Sub swap(b（ ） As Integer)
n = 【14】
For i = 1 To n / 2
t = b(i)
b(i) = b(n)
b(n) = t
【15】
Next
End Sub
上述程序的功能是，通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：
Option Base 1
Private Sub Command1 Click（ ）
d = 0 ：c = 10
x=Array(10，12，21，32，24)
For i = 1 To 5
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. 89
B. 99
C. 23
D. 77
[单项选择]在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：
option Base 1
Private Sub Command1_Click（ ）
Dim s As Variant
a=Array(1, 2, 3, 4, 5)
Sum=0
For i=1 To 5
Sum=Sum_a(i)
Next i
X=Sum/5
For i=1 To 5
If a(i)＞x Then Print a(i);
Next i
End Sub
程序运行后，单击命令按钮，在窗体上显示的内容是______。
A. 1 2
B. 1 2 3
C. 3 4 5
D. 4 5
[单项选择]在窗体上画一个命令按钮，名称为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 Private Sub Command1_Click（ ） Dim a(10) As Integer For i=1 To 10 a(i)=i Next Call swap （） For i=1 To 10 Print a(i); Next End Sub Sub swap(b（ ） As Integer) n=Ubound(b) For i=1 To n / 2 t=b(i) b(i)=b(n) b(n)=t （） Next End Sub上述程序的功能是：通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……。请填空。
[填空题]在窗体上画一个名称为Command1的命令按钮，然后编写下列程序：
Option Base_1
Private Sub Command1_Click（ ）
Dim a(10)As Integer
For i=1 To 10
a(i)=i
Next
Call swap( 【8】 )
For i=1 To 10
Print a(i)；
Next
End Sub
Sub swap(b（ ）As Integer)
n= 【9】
For i=1 To n/2
t=b(i)
b(i)=b(n)
b(n)=t
【10】
Next
End Sub
上述程序的功能是通过调用过程swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换， a(2)与a(9)的值互换，……，请填空。
[填空题]在窗体上画一个名称为command 1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Colilinand1 Click（ ）
Dim a(10) As Integer
For i = 1 To 10
a(i) = i
Next
call Swap(a)
For i = 1 To 10
Print a(i);
Next
End Sub
Sub Swap(b（ ） As Integer)
n = 【6】
For i = 1 To n/2
t = b(i)
b(i) = b(n)
b(n) = t
【7】
Next
End Sub
上述程序的功能是，通过调用过程Swap，调换数组中数值的存放位置，即a(1)与a(10)的值互换，a(2)与a(9)的值互换，……，a(5)与a(6)的值互换。请填空。
[单项选择]在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程；
Option Base 0
Private Sub Command1_Click（ ）
Dim city As Variant
city=Array("北京", "上海", "天津", "重庆")
Print city(1)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是______。
A. 空白
B. 错误提示
C. 北京
D. 上海
