12 、企业出包工程，补付工程款时，应（）。 A、借记“在建工程” B、借记“固定资产” C、贷记“预付账款” D、

（32）运行下列程序，结果是

Private Sub Command32_Click()

f0=1:f1=1:k=1

Do While k<=5

f=f0+f1

f0=f1

f1=f

k=k+1

Loop

MsgBox "f="&f

End Sub

A）f=5

B）f=7

C）f=8

D）f=13

运行下列程序，结果是（）。

PrivateSub Command32_click

f0=1：fl=1：k=1Do While k<=5 f=f0+f1

f0=fl

fl=f

k=k+1

Loop

MsgBox”f=”＆f

End Sub

A.f=5

B.f=7

C.f=8

D.f=13

A.f=5

B.f=7

C.f=8

D.f=13

下列程序的运行结果是 ______。Private Sub Command1_ Click () a =1: b=1 for i = 1 To 3 a= a+ b: b=b+ a Next i Print a, bEnd Sub

A．6 6

B．5 8

C．13 21

D．34 55

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

Private Sub f(k，s)

s=1

For j=1 To k

s=s*j

Next

End Sub

Private Sub Command1_Click()

Sum=0

For i=1 To 3

Call f(i，s)

Sum=Sum+s

Next

Print Sum

End Sub

下列程序运行后的输出结果是 Private Sub Command1_Click() For k=3 To 1 Step-1 x=String(k，"*") Print x Next End Sub

A．* * * * * *

B．1 * 2 * 3 *

C．3 * 2 * * 1 * * *

D．* * * * * *

下列程序的运行结果是 Private Sub Form_Click() Dim k As Integer n＝5 m＝1 k＝1 Do m＝m+2 k＝k+1 Loop Until k＞n Print m End Sub

A．1

B．12

C．11

D．32

下列程序的运行机结果是【 】。

Private Sub Form_ Click()

Dim k As Integer

n= 5

m= 1

k= 1

Do

m=m+2

k= k+1

Loop While k＜=n

Print m

End Sub

运行下列程序：

Private Sub Form_Click()

For i = 3 To 1 Step -1

For j = 2 To 1 Step -1

Debug.Print "A"; String(3 - i, "*");

Next j

Next i

End Sub

单击窗体后，则在立即窗口内显示结果是()。

A.AAA*A**A***

B.AAA*A*A**A**

C.A*A*A*A*A*A*

D.A***