下列程序的输出结果是（)。Dim aa=Array（1，2，3，4，5，6，7，8)i=0For k=100 To 90 Step-2 s=a（i)^2 If

Sub Command1_Click()Dim aa = Array(1,2,3,4,5)For K = 1 To 4 S = S + a(K)Next K Print SEnd SubA. 10 B. 14 C. 15 D. 120

程序代码如下，当单击窗体上的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

（9）下列程序的输出结果是。 Sub Prin() Dim B As String A=1 B=A & Space(4)&A PrintA Print trim(B) End Sub

下列程序的输出结果是【 】

Private Sub Command1_Click()

Dim a(1 To 20)

Dim i

For i=l To 20

a(i)=i

Next i

For Each i In a()

a (i) =20

Next i

下列程序的输出结果是()。

Private Sub Command1_Click()

Dim arr(1 To 10)

For i=1 To 10

Next i

For Each i In arr()

Next i

End Sub

下列程序的输出结果是【 】。

Private Sub Command1_Click()

Dim a(1 To 20)

Dim i

For i=1 To 20

a(i)=i

Next i

For Each i In a()

a(i)=20

Next i

Print a(2)

End Sub

下列程序的输出结果是______。

Sub Prin()

Dim B As String

A=1

B=A & Space(4)& A

Print A

Print Trim(B)End Sub

下列程序的输出结果是【 】。

Private Sub Command l Click()

Dim a(1 TO 20)

Dim i

For i＝1 TO 20

a(i)＝i

Next i

For Each i In a()

a(i)＝20

Next i

Print a(2) End Sub

A.0

B.-1

C.1

D.-2

下列程序执行时，从键盘上依次输入123和234，则程序的输出结果是【 】。

Dim a,b As Integer

a=InputBox("请输入第一个整数")

b=InputBox("请输入第二整数")

Print a+b