下列根据此段程序的运算的结果正确的是( )。 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 If

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

B．当X=-1时，y=-2

C．当x=0.5时，y=4

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

[单选题]下列根据此段程序的运算的结果正确的是( )。 Dim × As Single Dim y As Single If ×< 0 Then y＝3 Elself ×< l 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=ll

[单选题]使用下列语句：Dim x(1 to 10,3) As Single，则数组占用内存空间的字节数是（）A . 132B . 80C . 160D . 120

[单选题]运行以下程序后，显示的结果为 ______。 Dim x(5) x(0) =1 For i=1 To 5 x(i)=x(i-1)*i Print x(i) Next i EndA．1 2 3 4 5B．1 2 6 24 120C．1 2 6 12 20D．1 1 2 3 4

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

[单选题]阅读下列程序： Dim SW As Boolean Function func(X As Integer)As Integer If X＜20 Then Y=X Else Y=20+X End If func=Y End Function Private Sub Form_MouseDown(Button As Integer，Shift As Integer，X As Single， Y As Single) SW=False End Sub Private Sub Form_MouseUp(

[单选题]下列程序段的运行结果是( )。 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

[单选题]下列程序的执行结果为Private Sub Command1_Click（）D．im s1 As String, s2 As Strings1= "abcd"C．all Transfer（s1, s2）Print s2E．nd SubPrivate Sub Transfer （ByVal xstr As String, ystr As String）D．im tempstr As Stringi=Len（xstr）D．o While i >=1tempstr=tempstr + Mid

[试题]下面程序段运行后，变量x的值为上 [ ] 。D．im x As IntegerD．im i As Integerx=Ofor i=0 to 50 step 10X=X+inext i

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