以下程序的输出结果是( )。 Dim var1 Dim var2 Dim var3 var1 = "Hello" var2 = "World !" var3 = var1&" "&var2 var1 = 10 var2 = 20 MsgBox var1 + var2

A．Hello World! 30

B．30

C．102

D．Hello World!

[单选题]以下程序的输出结果是()。 Dim varl Dim var2 Dim var3 varl="Hello" var2="World!" var3=varl &a以下程序的输出结果是( )。 Dim varl Dim var2 Dim var3 varl="Hello" var2="World!" var3=varl & " " & var2 varl=10 var2=20 MSgBox var l+var2A．Hello World!B．30C．1020D．H

[单选题]（ 22 ）有如下过程代码：Sub var_dim()Static numa As IntegerD．im numb As Integernuma=numa+2numb=numb+1print numa;numbE．nd Sub连续 3 次调用 var_dim 过程，第 3 次调用时的输出是A． ） 2 1B． ） 2 3C． ） 6 1D． ） 6 3

[单选题]有如下过程代码：Sub var_dim()Static numa AS IntegerD．im numb As Integernuma=Duma+2numb=numb+1print numa；mumbE．nd Sub连续3次调用vardim过程，第3次调用时的输出是A．2 1B．2 3C．6 1D．6 3

[单选题]以下程序的输出结果是 ______。 Dim n(2,2), i, j As Integer For i = 0 To 2 For j = 0 To 2 n(i,j) = i + j Next j Next i For i = 0 To 1 For j = 0 To 1 n(i+ 1 ,j + 1) = n(i + 1,j + 1) + n(i, j) Next j Next i Print n(i, j)A．14B．0C．6D．值不确定

[单选题]以下程序段的执行结果是 ______。 Dim A(3, 3) For m = 1 To 3 For n = 1 To 3 If n = m Or n = 3 - m + 1 Then A(m, n) =m + n Else A(m, n) = 0 End If Next n Next m For m = 1 To 3 For n = 1 To 3 Print A(m, n); Next n Print Next mA． 1 1 1 1 1 1 1 1 1B．2 0 4 0 4 0 4 0 6C

[单选题]下列程序段执行后，执行的结果是______ 。 Dim M(10) Dim N(10) i=3 For j = 1 To 5 M(j) = j N(i) = 2 * i + j Next j Print N(i); M(i)A．12 4B．11 3C．3 11D．10 2

[单选题]下面程序运行后,输出的结果是D．im arr(3,3)F．or j=1 To 3F．or k=1 To 3A．rr(j,k)=(j-1)*3+kNext kNext jF．or j=2 To 3F．or j=2 To 3Print arr(k,j);Next kPrintNext jA．2 5 3 6B．5 8 6 9C．4 7 5 8D．5 9 6 8

[单选题]下列程序的输出结果是( )。 Dim a a=Array(1，2，3，4，5，6，7，8) i=0 For k=100 To 90 Step-2 s=a(i)^2 If a(i)＞3 Then Exit For i=i+1 Next k Print k；i；sA．88 6 36B．88 1 2C．90 2 4D．94 3 16

[单选题]以下程序段运行的结果是______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+l If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print jA．20B．7C．35

[单选题]以下程序段运行的结果是 ______。 Dim a(-1 To 5)As Boolean Dim flag As Boolean flag=False Dim i As Integer Dim j As Integer Do Until flag=True For i=-1 To 5 j=j+1 If a(i)=False Then a(i)=True Exit For End If If i=5 Then flag=True End If Next Loop Print jA．20B．7C．3