企业将款项汇往外地开立采购专用账户时,应借记的会计科目是（)。A．物资采购B．在途物资C．预付账款D．

有如下程序：

Private Sub Form_Click（）

Dim i As Integer, sum As Integer

sum = 0

For i = 2 To 10

If i Mod 2 <> 0 And i Mod 3 = 0 Then

sum = sum + i

End If

Next i

Print sum

End Sub

程序运行后，单击窗体，输出结果为（）。

A．12

B．30

C．24

D．18

阅读下列程序： Private Sub Form Click() Dim i As Integer， sum As Integer For i = 2 To 10 If i Mod 2 ＜＞ 0 Then Print i； Else sum = sum + i End If Next i Print sum End Sub 程序运行后，单击窗体，在窗体上的输出结果是

A．3 5 7 9 30

B．1 3 5 7 9

C．2 4 6 8 20

D．11 15 17 19 20

下面程序执行时，输出的结果是()。 Private Sub Form_Click() DimiASInteger,j As Integer i=10 Do i=i+j forj=10 toistep-3 i=i+j nextj Loop Whilei＜50 Printi;j End Sub

A．50 10

B．50 9

C．57 10

D．59 9

有如下事件过程：

Private Sub Command1_Click（）

Dim i As Integer

For i=1 To 2

DC

Next i

End Sub

Sub DC（）

Dim x As Integer, m As String

Static y, n

x=x + 1

y=y + 1

m=m &"*": n=n & "#"

Print x, y, m, n

End Sub

程序运行后，输出的结果是（）。

A．1 1 * #

1 1 * #

B．1 1 * #

1 2 * #

C．1 1 * #

1 1 * ##

D．1 1 * #

1 2 * ##

运行以下程序，输出的结果为__。

PrivateFunctionjc(x AsInteger)AsLong DimiAsInteger

jc=1 Fori=1Tox

jc=jc*i

NextiEndFunctionPrivateSubForm_Click （）

DimheasLong he=jc(5)+jc(3) PrintheEndSub

有如下程序：

D．程序编译时出错

有如下程序：

D．程序编译时出错

有如下程序：

A.24

B.30

C.12

D.18

有如下程序：

A.Goodabe

B.abed

C.abc

D.abcgood