下列程序的输出结果是______。Sub Prin（)Dim B As StringA=1B=A & Space（4)& APrint APri

（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 arr(1 To 10)

For i=1 To 10

Next i

For Each i In arr()

Next i

End Sub

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

void sub(int x,int y,int*z)

{*z=y-X;}

main()

{int a,b,c;

sub(7,3,&a);sub(2,a,&b);sub(a,b,&c);

printf("%d,%d,%d\n",a,b,c);

}

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

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

下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub

A．* * * * * *

B．1 * 2 * 3 *

C．3 * 2 * * 1 * * *

D．* * * * * *

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

Private Sub Commandl_Click()

Dim alt(1 To 10)

Fori＝1 To 10

arr(i) ＝I

Next i

For Each i In arr()

arr(i) ＝arr(i) *2+1

Next i

MsgBox arr(7)

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

下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x-11 End Function Private Sub Command1_Click() For k=1 To 2 y=Fun(k)=Print y Next End Sub

A．-10 -7

B．10 8

C．1 3

D．0 4