根据以下内容，回答 121～122 题： A．补中益气汤B．香砂六君子汤C．人参养营汤D．参苓白术散E．健固

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

Private Sub Command1_Click()

ch$= ” ABCDEF ”

proc ch

Print ch

End Sub

Private Sub proc(ch As String)

S= ””

For k=Len(ch) To 1 Step-1

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

Next k

ch=s

End Sub

A ） ABCDEF

B ） FEDCBA

C ） A

D ） F

下面程序的输出结果是【 】。

Private Sub Commandl_Click()

Dim a(1 To 20)

Dim i

Fori = 1 To 20

a(i) = i

Next i

For Each i In a()

a(i) = 20

Next i

Print a(2)

End Sub

执行以下程序后输出的是。 Private Sub Commandl_Click ch$ = "ABCDEFGH": Print Mid(Right(ch$, 6), Len(Left(ch$, 4)), 2) End Sub A．CDEFGH B．ABCD C．FG D．AB

下面程序的运行结果是()。 Private Sub Commandl_Click() a=1.5 b=1.5 Callfun(a,B) Printa,b End Sub Private Subfun(x,y) x=y*y y=y+x End Sub

A．2．25 1.5

B．1.5 2.25

C．2.25 3.75

D．0.75 1.5

下面程序运行后，输出结果是()。 Private Sub mysub(b()As Integer,OptionalByValnAsInteger=2) ForI=1 to 4 b(I)=n*I NextI End Sub Private Sub Commandl_Click() Dima(1 to 4)As Integer，I As Integer Callmysub(a()，5) Mysuba() ForI=1 to 4 Prin

A．5101520

B．2468

C．出错

D．0000

下面程序的执行结果是

Private Sub Commandl_Click()

a=1O

For k=l To 5 Step一1

a=a--k

Next k

Print a；k

End Sub

A．一5 6

B．一5—5

C．10 0

D．10 1

下面程序的执行结果是

Private Sub Commandl_Click()

a=1O

For k=l To 5 Step一1

a=a--k

Next k

Print a；k

End Sub

A．一5 6

B．一5—5

C．10 0

D．10 1

下列程序的输出结果是______。

Private Sub Commandl_Click()

Dim alt(1 To 10)

Fori＝1 To 10

arr(i) ＝I

Next i

For Each i In arr()

arr(i) ＝arr(i) *2+1

Next i

MsgBox arr(7)

End Sub

面程序的输出结果是。 Privte Sub Commndl_Click ch$=“BCDEF” proc ch：Print ch End Sub Privte Sub proc（） Next k ch=s End SubBCDEF B．FEDCB C． D．F

A．ABCDEF

B．FEDCBA

C．A

D．F

执行下面的程序，输出的结果是 ______ 。 Private Sub Command1_Click() ch $ = "Welcome to China!" n = Len(ch $ ) For i =1 To n-1 s$ =Mid(ch$ ,i,1) If s$ ="o" Then m=m + 1 Next i Print m End Sub

A．1

B．2

C．8

D．0