下列程序的运行结果是( )。 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 Sub

A．2.25 3.75

B．1.5 2.25

C．1.5 0.75

D．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＝1:y＝1 For i=1 To 3 x＝x+y:y＝y+x Next i:print x,y End SubA．6 6B．5 8C．13 21D．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 = 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

[单选题]运行下列程序：Private Sub Command1_Click()a = 100b = 24a = a Mod bb = b / aa = b - aD．ebug.Print aE．nd Sub单击Command1命令按钮后，则在立即窗口上输出结果是()。A．2B．24C．50D．100

[单选题]运行下列程序：Private Sub Command1_Click( )D．im A(10) As IntegerF．or i = 1 To 5A．(i) = iA．(i + 5) = iNext iF．or i = 1 To 10s = s + A(i)Next iD．ebug.Print sE．nd Sub单击按钮后，则在立即窗口内显示的结果是( )。A．5B．10C．30D．出错信息

[单选题]运行下列程序:Private Sub Command1_Click( )Dim s1 As String * 1Dim s2 As Strings1 = &quo运行下列程序：Private Sub Command1_Click( )D．im s1 As String * 1D．im s2 As Strings1 = "a"F．or i = Asc(s1) To Asc(s1) + 4s2 = s2 & Chr(i)Next iPrint s2E．nd Sub单击Co

[单选题]运行下列程序: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