（ 30 ）下面程序的输出结果是

Private Sub Command1_Click()

ch$= ” ABCDEF ”

proc ch

Print ch

E．nd Sub

Private Sub proc(ch As String)

S= ””

F．or k=Len(ch) To 1 Step-1

s=s&Mid(ch,k,1)

Next k

ch=s

E．nd Sub

A． ） ABCDEF

B． ） FEDCBA

C． ） A

D． ） F

[单选题]（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

[单选题]执行以下程序,在窗体上输出()。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 ( ) for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j/3 Next j Print aEnd SubA．20B．10C．3D．9

[试题]下列程序的输出结果是______。Private Sub Command1_Click()D．im arr(1To 10)F．or i＝1 To 10arr(i)＝iNext iF．or Each i In arr()arr(i)＝arr(i)*2+1Next iMsgBox arr(7)E．nd Sub

[单选题]（25）下面程序的执行结果是Private Sub Command 1 Click()a=10F．or k=1 To 5 Step-1a=a-kNext kPrint a; kE．nd SubA．）-5 6B．）-5 -5C．）10 0D．）10 1

[单选题]下面程序的运行结果是 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=5:b=4:c=3:d=2x=3＞2*b Or a=c And b＜＞c Or c＞dPrintxE．nd SubA．1B．TrueC．FalseD．2

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