《会计法》中规定的会计主管人员是指（）。 A．会计机构中的主管会计B．会计机构中的主办

阅读下列程序：

PrivateSubCommand1_Click()

Dim i As Integer，k As Integer

k=2

For i=1 To 3

Print Fun(k)；

Next

End Sub

Function Fun(j As Integer)

Static b

a=0

a=a+1

b=b+1

Fun=a*b+j

End Function 程序运行后，单击命令按钮输出结果是

A．234

B．345

C．567

D．356

在窗体中添加一个命令按钮，名称为Commandl，然后编写如下程序： Private Sub Command1_Click() Dim a As Integer，b As String，C As Integer a = 1234 : b = Str(A)c = Len(B)Print c End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是

A．0

B．5

C．6

D．7

有如下程序：

Private Sub Command1_Click（）

Dim k As Integer, m As Integer

Dim p As Integer

k=4: m=1

p=PC（k, m） : Print p;

p=PC（k, m） : Print p

End Sub

Private Function PC（a As Integer, b As Integer）

Static m As Integer, i As Integer

m=0: i=2

i=i + m + 1

m=i + a + b

PC=m

End Function

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

A．4 6

B．6 6

C．8 8

D．10 12

有如下程序：

Private Sub Command1_Click（）

Dim a As Integer

a=2

For i=1 To 3

Print Gad （A．

Next i

End Sub

Function Gad （a As Integer）

b=0

Static c

b=b + 1

c=c + 1

Gad=a + b + c

End Function

运行上面的程序后，单击命令按钮，输出结果为（）。

A．1

2

3

B．2

3

4

C．4

5

6

D．1

4

6

在窗体中添加一个命令按钮，名称为Command1，然后编写如下程序：

Private Sub Command1_Click（）

Dim s，i

For i=1 To 10

s=s+i

Next i

MsgBox s

End Sub

窗体打开运行后，单击命令按钮，则消息框的输出结果为 。

有如下程序段：

Private Sub Command1_Click（）

Dim a As Integer

a=2

For i=1 To 3

Print G（A．

Next i

End Sub

Function G（a As Integer）

b=0

Static c

b=b + 1

c=c + 1

G=a + b + c

End Function

运行上面的程序后，单击命令按钮，输出结果为（）。

A．1 2 3

B．2 3 4

C．4 5 6

D．1 4 6

有如下事件过程：

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 * ##

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim x(5)As String Dim n AS Integer For n ： 4 TO 0 Step -1 x(n)= n + 1 Print x(n)； Next n End Sub 程序运行后，单击命令按钮，则窗体上显示的内容是

A．54321

B．4

C．54321

D．0

有如下程序段：Dim I As IntegerI=Int (-3.25)执行后Ⅰ的返回值是

A．-3

B．-4

C．3

D．3.25