账户是根据（）分别设置的。A、经济业务B、会计对象C、会计要素D、会计科目

设有如下程序： Private Sub Form_Click() Dim a As Integer，s As Integer n=8 S=0 DO S=S+n n=n-1 Loop While n＞0 Print S End Sub 以上程序的功能是【 】。程序进行后，单击窗体，输出结果为【 】。

有如下程序： Private Sub Form_Click() E=1：F=1 For i=1 To 3 E=E+F:F=F+E Next Print E；F End Sub 该程序的输出结果是

A．6 6

B．5 8

C．13 21

D．34 55

有如下程序： Private Sub Form_Click() E=1:F=1 For j=1 To 3 E=E+F:F=F+E Next Print E:F End Sub 该程序的输出结果是

A． 6 6

B． 5 8

C．13 21

D．34 55

设有如下程序： Private Sub Form_Click() a=325456 Print Format(Int((a*10+0.5))/10，"000，000.00") End Sub 程序运行后，单击窗体，输出结果为【 】。

有如下程序：

Option Base 1

Private Sub Form_Click()

Dim arr,Sum

Sum=0

For i=1 To 10

If arr(i)/3=arr(i)\3 Then

End If

Next i

End Sub

程序运行后，单击窗体，消息框的输出结果为()。

有如下程序： 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

Sum=0

For i=2 To 10

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

Sum=Sum+i

End If

Next

Print Sum

End Sub

程序运行后,单击窗体,输出结果为

A．12

B．30

C．24

D．18

有如下程序： 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 Print Sum End Sub 程序运行后，单击窗体，输出结果为

A．12

B．30

C．24

D．18