打印本文 
关闭窗口 1.以下正确的描述是
在Visual Basic应用程序中
A.过程的定义可以嵌套，但过程的调用不能嵌套
B.过程的定义不可以嵌套，但过程的调用可以嵌套
C.过程的定义和过程的调用均可以嵌套
D.过程的定义和过程的调用均不能嵌套
2.阅读程序
Function F(a As Integer)
b=0
Static c
b=b+1
c=c+1
F=a+b+c
End Function
Private Sub Command1_Click()
Dim a As Integer
a=2
For i=1 To 3
Print F(a)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为
A.4 B.4 C.4 D.4
4 5 6 7
4 6 8 9
3. 阅读程序：
Sub subP(b() As Integer)
Fori=1 To 4
b(i) = 2 * i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
a(1) = 5
a(2) = 6
a(3) = 7
a(4) = 8
subP a()
For i= 1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为
A.2 B.5 C.10 D.出错
4 6 12
6 7 14
8 8 16
4. 假定有以下两个过程：
Sub S 1 (By Val x As Integer, By Val y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
Sub S2(x As Integer, y As Integer)
Dim t As Integer
t=x
x=y
y=t
End Sub
则以下说法中正确的是
A.用过程S1可以实现交换两个变量的值的操作，S2不能实现
B.用过程S2可以实现交换两个变量的值的操作，S1不能实现
C.用过程S1和S2都可以实现交换两个变量的值的操作
D.用过程S1和S2都不能实现交换两个变量的值的操作
5. 假定有下面的过程：
Function Func(a As Integer, b As Integer) As Integer
Static m As Integer, i As Integer
m=0
i=2
i=i+m+1
m=i+a+b
Func=m
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim k As Integer,m As Integer
Dim p As Integer
k=4
m=1
p=Func(k,m)
Print p;
p = Func(k, m)
Print p
End Sub
程序运行后，单击命令按钮，输出结果为
A.8 17
B.8 16
C.8 20
D.8 8
二、填空题：
1．在过程定义中出现的变量名叫做__________参数，而在调用过程时传送给过程的________、________、________ 或 ________ 叫做 ________ 参数
2．在窗体上画一个命令按钮，然后编写如下程序：
Sub inc(a As Integer)
Static x As Integer
x=x+a
Print x;
End Sub
Private Sub Command1_Click()
inc 2
inc 3
inc 4
End Sub
程序运行后，第一次单击命令按钮时的输出结果为_____________。
3．在窗体上画一个命令按钮，然后编写如下程序：
Function fun(By Val num As Long) As Long
Dim k As Long
k=1
num= Abs(num)
Do While num
k = k *(num Mod 10)
num= num \ 10
Loop
fun = k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n = InputBox("请输入一个数")
n = CLng(n)
r = fun(n)
Print r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，输出结果为________。
4．在窗体上画一个命令按钮，然后编写如下程序：
Function M(x As Integer, y As Integer) As Integer
M=IIf(x > y, x, y)
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=1
b=2
Print M(a, b)
End Sub
程序运行后，单击命令按钮，输出结果为_________。
打印本文 关闭窗口