下面程序的运行结果是 Private Sub Command1_Click() x＝1:y＝1 For i=1 To 3 x＝x+y:y＝y+x Next i:print x,y End Sub

A．6 6

B．5 8

C．13 21

D．34 35

[单选题]下面程序段,运行后的结果是Private Sub Command1_ClickD．im b%(1 To 4), i%, t#F．or i=1 To 4b(i) =iNextt=Tof(b() )Print "t="; t,E．nd SubF．unction Tof(a() As Integer)D．im t#, i%t=1F．or i=2 To UBound(a)t=t  a(i)NextTof=tE．nd FunctionA．t=18B．t=24C．t=30D．t=32

[单选题]下面程序段，运行后的结果是 Private Sub Command1_Click() Dim b%(1 To 4)，i%，t# For i=1 To 4 b(i) =i Next t=Tof(b() ) Print"t="；t， End Sub Function Tof(a() As Integer) Dim t#,i% t=1 For i=2 To UBound(a) t=t*a(i) Next Tof=t End FunctionA．t=18B．t=24C．t=30D．t=32

[单选题]下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,B) Print a,b End Sub Private Sub fun(x,y) x=y*y y=y+x End SubA．2.25 3.75B．1.5 2.25C．1.5 0.75D．0.75 1.5

[单选题]下列程序的运行结果是( )。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a，b)Print a，b End Sub Private Sub fun(x，y) x=y*y y=y+x End SubA．2.25 3.75B．1.5 2.25C．1.5 0.75D．0.75 1.5

[单选题]下列程序段的运行结果是：Private Sub Command1_Click() Dim n AS Integer I =21: n = 3 do while I＞n I=I- n Loop Print IEnd Sub在窗体上打印的结果是______。A．3B．5C．6D．8

[单选题]运行下列程序:Private Sub Command1_Click( )x = 3If x < 3 Then Print x £« 3;If x < 4运行下列程序：Private Sub Command1_Click( )x = 3If x < 3 Then Print x + 3;If x < 4 Then Print x + 4;If x < 5 Then Print x + 5;If x < 6 Then Print x + 6;PrintE．nd Sub单击Co

[单选题]运行下列程序：Private Sub Command1_Click( )x = "祝你成功"y = "1234"F．or i = 1 To 4z = z + Mid(x, i, 1) + Left(y, 1)Next iPrint zE．nd Sub单击Command1命令按钮后，则在窗体上显示的结果是( )。A．祝你成功1234B．祝1你2成3功4C．1234祝你成功D．祝1你1成1功1

[单选题]运行下列程序：Private Sub Command1_Click( )x = 1z = InputBox("请输入一个整数2")Select Case zC．ase Is > 0y = x + 1C．ase Is = 0y = x - 2C．ase Elsey = x + 5E．nd SelectPrint x; yE．nd Sub从键盘输入2，输出的结果是( )。A．0 1B．1 2C．1 3D．5 5

[单选题]运行下列程序：Private Sub Command1_Click()D．im x As Integer, n As Integern = 0D．on = n + 2x = x + nLoop While n< 10D．ebug.Print xE．nd Sub单击Command1命令按钮后，则在立即窗口上输出结果是是()。A．2B．10C．12D．30

[单选题]运行下列程序：Private Sub Command1_Click( )a = Val(InputBox("a = "))Print fun1(a)E．nd SubPrivate Function fun1(b)If b > 0 Thenfun1 = 10E．lseIf b = 0 Thenfun1 = 9E．lsefun1 = 8E．nd IfE．nd Function单击按钮后从键盘为变量a输入数据3，输出的结果是( )。A．3B．8C．9D．10