第六章测试1.
下面的过程语句声明中正确的是（ ）
A:Sub f1(ByVal n%()) B:Function f1(Byval n%) C:Function f1%(ByRef f1%) D:Sub f1(ByRef n%) As Integer
答案:B
2.
在一个过程中定义的变量，若希望该过程外还能保存过程中局部变量的值，则应使用关键字（）在过程中定义过程级变量。
A:Dim B:Static C:Private D:Public 3.
下面过程运行后显示的结果是（ ）
Public Sub F1 (ByRef n%, ByVal m%)
n=n Mod 10
M=m\10
End Sub
Sub Command1_Click()
Dim x%, y%
X=12: y=34
Call F1(x,y)
MsgBox(x & “ “ & y)
End Sub
A:2 34 B:12 34 C: 12 3 D: 2 3 4.
如下程序的运行结果是（）
Sub Command1_Click ( )
MsgBox (p1(3.0, 7))
End Sub
Public Function p1! (ByVal x!, ByVal n%)
If n=0 Then
p1=1
Else
If n Mod 2=1 Then
p1=x*p1(x, n\2)
Else
P1=p1(x, n\2) \x
End if
End if
End Function
A:27 B:14 C:7 D:18 5.
如下程序运行后各变量的值依次为（）
Public Sub Proc (ByRef a%())
Static i%
Do
a(i)=a(i)+a(i+1)
I=i+1
Loop While i<2
End Sub
Sub Command1_Click ( )
Dim m%, i%, x%(10)
For i=0 To 4: x(i)=i+1: Next i
For i=1 To 2: Call Proc(x): Next i
For i=0 To 4: Print x(i);: next i
End sub
A: 4 5 6 7 8 B:3 4 7 5 6 C: 3 5 7 4 5 D:2 3 4 4 5
