下列根据此段程序的运算的结果正确的是( )。 Dim × As Single Dim y As Single If ×< 0 Then y＝3 Elself ×< l Then y＝2 * x Else：y＝-4 * x 十 6 End If

A．当x=2时，y=-2

B．当x=-1时，y＝-2

C．当x=0．5时，y＝4

D．当x=-2.5时，y=ll

[单选题]下列根据此段程序的运算的结果正确的是( )。 Dim x AS Single Dim y As Single If x ＜ 0 Then y = 3 ElseIf x＜ 1 Then y = 2 * x Else：y = -4 * x + 6 End IfA．当x=2时，y=-2B．当X=-1时，y=-2C．当x=0.5时，y=4D．当x=-2.5时，y=11

[单选题]下列程序段执行后，执行的结果是______ 。 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

[单选题]以下程序的输出结果是()。 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

[单选题]下列程序段的运行结果是( )。 Subsele() Dim n As Integer i=21:n=3 Do While i＞n i=i-n Loop Print i End SubA．2B．4C．5D．3

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

[单选题]下列程序段的运行结果是( )。Sub sele()D．im n As Integeri=21:n=3D．o While i＞ni=i-nLoopPrint iE．nd SubA．2B．4C．5D．3

[单选题]下列程序段的运行结果是( )。 Sub sele() Dim n As Integer i=21: n=3 Do While i ＞ n i=i-n Loop Print i End SubA．2B．4C．5D．3

[单选题]以下程序的输出结果是( )。 Dim var1 Dim var2 Dim var3 var1 = "Hello" var2 = "World !" var3 = var1&" "&var2 var1 = 10 var2 = 20 MsgBox var1 + var2A．Hello World! 30B．30C．102D．Hello World!

[单选题]下列程序段的执行结果为______ 。 Dim A(10，10) For I = 2 To 4 For J = 4 To 5 A(I, J) = I * J Next J Next I Print A(2, 5) + A(3, 4) + A(4, 5)A．22B．42C．32D．52

[单选题]下列程序段的执行结果为 ______。 Dim A(10)，B(5) For i=1 To 10 A(i)=i Next i For j=1 To 5 B(j)=j*20 Next j A(5)=B(2) Print"A(5)="；A(5)A．A(5)=5B．A(5)=10C．A(5)=20D．A(5)=40