以下行为中，对内部控制环境产生正面影响的是（)。A．不公开对于不当行为的处罚B．企业设立了过高的不

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

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

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

Function Fun(n)

x=n*n

Fun=x-11

End Function

Private Sub Command1_Click()

For k=1 To 2

y=Fun(k):Print y

Next

End Sub

A．-10 -7

B．10 8

C．1 3

D．0 4

下列程序段，运行后窗体上输出结果是()。

Private Sub Command1_Click()

a=5:b=4:c=3:d=2

x=3＞2*b Or a=c And b＜＞c Or c＞d

Printx

End Sub

A．1

B．True

C．False

D．2

下列程序运行后的输出结果是 Function Fun(n) x=n*n Fun=x-11 End Function Private Sub Command1_Click() For k=1 To 2 y=Fun(k)=Print y Next End Sub

A．-10 -7

B．10 8

C．1 3

D．0 4

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

Function Fun(n)

X=n*n

Fun=x-11

End Function

Private Sub Command1_Click()

For k=1 To 2

y=Fun(k):Print y

Next

End Sub

A．-10 -7

B．10 8

C．1 3

D．0 4

运行以下程序，消息框中输出的结果是( )。

Private Sub Command1_Click()

Dim a(10)，P(3)As Integer

K=5

For i=1 To 10

a(i)=i

Next i

For i=1 To 3

P(i)=a(i*i)

Next i

For i=1 To 3

k=k+p(i)*2

Next i

MsgBox k

End Sub

A．28 B．33 C．35 D．37

下面程序运行后的输出结果是 Private Sub Command1_Click() For j=1 To 10 If j Mod 3＜＞0 Then a=a+j\3 Next Print a End Sub

A．20

B．10

C．3

D．9

阅读下列程序。 Private Sub Command1_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

下列事件过程运行后输出结果是 Private Sub Command1_Click() Print Format$(123,456，"###,##%") End Sub

A．123.46%

B．123.45%

C．123.456%

D．12345.6%