某人设计了下列程序用于计算并输出5!(5的阶乘):Private Sub Command1_Click()t=0For k=5 To

（ 27 ）下面程序执行时，在窗体上显示的是

Private Sub Command1_Click()

Dim a(10)

For k = 1 To 10

a(k) = 11 – k

Next k

Print a(a(3)\a(7) Mod a(5))

End Sub

A ） 3

B ） 5

C ） 7

D ）9

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

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（）

Dim i As Integer, k As Integer

k=2

For i=1 To 3

Print H（k） ;

Next i

End Sub

Function H（j As Integer）

a=0

Static b

a=a + 1

b=b + 1

H=a*b + j

End Function

程序运行后，单击命令按钮输出结果是（ ）。

A．2 3 4

B．3 4 5

C．5 6 7

D．3 5 6

假定有如下的Sub过程： Sub Func(x As Single， y As Single) t=x x=t/y y=t Mod y End Sub 在窗体上画一个命令按钮，然后编写如下事件过程： Private Sub Command1_Click() Dim a As Single Dim b As Single a=6 b=5 Func(a, B) Print a, b End Sub 程序运行后，单击命令按钮，输出结果为 ______。

A．6 5

B．1 1

C．1.2 5

D．1.2 1

窗体上有一个命令按钮，命令按钮的单击事件过程如下： Private Sub Command1_Click() Dim a a=Array(1,2,3,4,5) For k=1 To 4 s=s+a(k) Next Print S End Sub 运行程序后，单击命令按钮，输出结果是

A．10

B．14

C．15

D．120

阅读程序：

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

以下能够正确计算n!的程序是

A．Private Sub Command1 Click() n=5：x=1 Do x=x * I I=I + 1 Loop While I ＜ n Print x End Sub

B．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X*I I=I + 1 Loop While I ＜n Print x End Sub

C．Private Sub Command1_Click() n=5：X=1：I=1 Do X=X * I I=I + 1 Loop While I＜=n Print X End Sub

D．Private Sub Command1_Click() n=5：X=1：I=1 Do x=x * I I=I + 1 Loop While I＞n Print X End Sub

以下能够正确计算n!的程序是（ ）。

A．Private Sub Command1_Click（）

n=5: x=1

Do

x=x * I

I=I + 1

Loop While I < n

Print x

End Sub

B．Private Sub Command1_Click（）

n=5: x=1: I=1

Do

x=x * I

I=I + 1

Loop While I < n

Print x

End Sub

C．Private Sub Command1_Click（）

n=5: x=1: I=1

Do

x=x * I

I=I + 1

Loop While I <=n

Print x

End Sub

D．Private Sub Command1_Click（）

n=5: x=1: I=1

Do

x=x * I

I=I + 1

Loop While I > n

Print x

End Sub

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

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(A0To UBound(a)

t=t * a(i)

Next

Fun =t

End Function

某人设计了如下程序用来计算并输出7!(7的阶乘)

Private Sub Command1 Click（ ） t=0 For k=7 To 2 Step-1 t=t*k Next Print t End Sub 执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结果的是（ ）。

A.把t=0改为t=1

B.把For k=7 To 2 Step-1改为For k=7 T0 1 Step-1

C.把For k=7 To 2 Step-1改为For k=1 T0 7

D.把Next改为Next k