更多"程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是"的相关试题:
[单项选择]程序代码如下，当单击窗体上的Command1控件时，窗体上显示的结果是( )。
Private Sub Command1_Click（ ）
Dim i As Integer,k As Integer
Dim a(9) As Integer,p(2)As Integer
k=5
For i=0 To 9
a(i)=i
Next i
For i=0 To 2
p(i)=a(i*(i+1))
Next i
For i=0 To 2
k=k+p(i)*2
Next i
Print k
End Sub
A. 20
B. 21
C. 22
D. 23
[单项选择]程序代码如下，当单击窗体上的Command1控件时，在窗体上输出的结果是( )。 Private Sub Command1_Click（ ） Dim aa(3，3)As Integer Dim i As Integer,j As Integer Dim s As Integer For i=0 To 3 For j=0 To 3 aa(i，j)=i*4+j+1 Next j Next i For i=0 To 3 s=s+aa(i，1) Next i Print s End Sub
A. 32
B. 28
C. 30
D. 36
[单项选择]在窗体上放置一个命令按钮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 a
a=Array(1，2；3，4)
j=1
For i=4 To Step-1
s=s+a(i)*j
j=j*10
Next j
Print s
End Sub
运行程序后，最后的输出结果为( )。
A. 1234
B. 12
C. 34
D. 4321
[单项选择]在窗体上画一个名称为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（ ） 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 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=______
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)的值互换。请填空。
