（28）下列程序的运行结果是。 Private Sub Command1_Click() a=1.5 b=1.5 Call fun(a,b) Print a,b Private Sub fun(x,y) x=y*x y=y+x End SubA.2.25 3.75 B.1.5 2.25 C.1.5 0.75 D.0.75 1.5

[单选题]（ 30 ）下面程序的输出结果是Private Sub Command1_Click()ch$= ” ABCDEF ”proc chPrint chE．nd SubPrivate Sub proc(ch As String)S= ””F．or k=Len(ch) To 1 Step-1s=s&Mid(ch,k,1)Next kch=sE．nd SubA． ） ABCDEFB． ） FEDCBAC． ） AD． ） F

[单选题]执行以下程序,在窗体上输出()。Private Sub Command1_Click()D．im a(20)As IntegerF．or j = 1 To 20 Step 2a(j)= jNext jPrint a(1)+ a(2)+ a(3)AAAAAAAAaE．nd SubA． 4B． 5C． 6D． 7

[单选题]下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd SubA．6 6B．5 8C．13 21D．34 55

[单选题]下列程序的运行结果是( )。 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 Command32_Click()f0=1:f1=1:k=1D．o While k<=5f=f0+f1f0=flf1=fk=k+1LoopMsgBox“f=”＆fE．nd SubA．f=5B．f=7C．f=8D．f=13

[单选题]下面程序的运行结果是 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_ Click ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd SubA．20B．10C．3D．9

[单选题]（32）运行下列程序，结果是Private Sub Command32_Click()f0=1:f1=1:k=1D．o While k<=5f=f0+f1f0=f1f1=fk=k+1LoopMsgBox "f="&fE．nd SubA．）f=5B．）f=7C．）f=8D．）f=13