下面程序运行后，输出结果为()。 Dim a() a=Array(1,3,5,7,9) s=0 For i=1 To 4 s=s*10+a(i) Next i Print s

下面程序运行后，输出结果为（）。

Dim a0

A)1357

B)3579

C)7531

D)9753

下面程序运行后，输出结果为()。

Dim a()

a＝Array(1,3,5,7,9)

S＝0

For i＝1 To 4

S＝S*10+a(i)

Next i

Print s

A．1357

B．3579

C．7531

D．9753

A.1357

B.3579

C.7531

D.9753

A.1357

B.3579

C.7531

D.9753

A.1357

B.3579

C.7531

D.9753

下面程序：________Option Base 1Private Sub Command1_Click() Dim a(10)，p(3)As Integer Dim i,k As Integer k=5 For i=1 To 10 a(i)=i Next For i=1 To 3 p(i)=a(i*i) Next For i=1 To 3 k=k+p(i)*2 Next Print kEnd Sub运行后的输出结果为________。

A．33

B．28

C．35

D．37

运行下面程序，其输出结果(str2的值)为【 】。

Dim str1，str2 As String

Dim i As Integer

strl="abcdef"

For i=1 To Len(str1) Step2

str2=UCase(Mid(str1，i，1))+str2

Next

MsgBox str2

运行下面程序，其输出结果(str2的值)为【 】。

Dim str l，str2 As String

Dim I As Integer

str l= “abcdef”

For l To Len (strl) Step2

str2=UCase (Mid (strl，I ,1))十str2

Next

MsgBoxstr2

下面程序： Private Sub Form_Click() Dim x,y,z As Integer x=5 y=7 z=0 CallPI(x,y,z) Print Str(z) End Sub SubP1(By Val a As Integer, By Val b As Integer, c As Integer) C=a+b End Sub 运行后的输出结果为______。

A．0

B．12

C．Str(z)

D．显示错误信息

下面程序： Private Sub Form. _Click () Dim x, y, z As Integer x=5 y=7 z=0 Call P1(x, y, z) Print Str (z) End Sub Sub P1 (ByVal a As Integer, ByVal b As Integer , c As Integer) c= a+b End Sub 运行后的输出结果为______。

A．0

B．12

C．Str(z)

D．显示错误信息