第六章单元测试
下面的过程语句声明中正确的是( )
在一个过程中定义的变量,若希望该过程外还能保存过程中局部变量的值,则应使用关键字()在过程中定义过程级变量。
下面过程运行后显示的结果是( )
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
如下程序的运行结果是()
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
如下程序运行后各变量的值依次为()
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:Sub f1(ByVal n%()) B:Sub f1(ByRef n%) As Integer C:Function f1(Byval n%) D:Function f1%(ByRef f1%)
答案:Function f1(Byval n%)
A:Dim B:Private C:Static D:Public
A: 12 3 B: 2 3 C:2 34 D:12 34
A:14 B:18 C:27 D:7
A:2 3 4 4 5 B: 4 5 6 7 8 C:3 4 7 5 6 D: 3 5 7 4 5