在计算经营者的效益年薪时，（ ）模式认为经营者的效益收入就是其经营的风险收入。

下面程序运行后的输出结果是______。Private Sub Command1_ Click () for j = 1 To 10 if j Mod 3 ＜＞ 0 then a =a+j\3 Next j Print aEnd Sub

A．20

B．10

C．3

D．9

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

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()

A=0

For j=1 to 15

a=a+j mod 3

Next j

Print a

End Sub

程序运行后，单击窗体，输出结果是

A ）105

B)1

C)120

D)15

下面运行程序后,单击命令按钮,输出的结果是 【 】 。

Private Sub Command1_Click()

Dim a%(1 To 5),i%, s#

For i=1 To 5

a(i)=i

Next

s=Fun(a)

Print "s="; s;

End Sub

Function Fun(a() As Integer)

Dim t#, i%

t=1

For i=LBound(a) To UBound(a)

t=t  a(i)

Next

Fun=t

End Function

阅读下面的程序： Private Sub Command1_Click() For i=1 To 3 For j=1 To i For k=j To 3 x=x+1 Next k Next j Next i Print x End Sub 程序运行后，单击命令按钮，窗体上输出的结果是

A．3

B．9

C．14

D．21

下列程序运行后的输出结果是 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 Command1_Click()

Dim a%(1 To 5)，i%，s

For i=1 To 5

a(i) =i

Next

s=Fun(A)Print "s="；s；

End Sub

Function Fun(a() As Integer)

Dim t，i%

t=1

For i=LBound(A)To UBound(A)t=t*a(i)

Next

Fun=t

End Function

以下程序运行后输出的结果是______。 Private Sub Form. _Click() a=0 For j=1 To 15 a=a+j Mod 3 Next j Print a End Sub

A．10

B．15

C．80

D．100

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

A．123.46%

B．123.45%

C．123.456%

D．12345.6%