重庆大学2018年可视化程序设计（VB） ( 第3次 )答案参考
第3次作业一、单项选择题（本大题共76分，共 19 小题，每小题 4 分）
1. 以下关于Visual Basic的参数传递的描述不正确的是_____________。
A.
形式参数表和实际参数表中对应的变量名必须相同
B.
形式参数表和实际参数表中对应的变量个数必须相同
C.
形式参数表和实际参数表中对应的变量类型必须相同
D.
形式参数表和实际参数表中对应的书写顺序必须对应相同
2. 将数组看成一个整体作为过程的参数时，是以方式实现参数传递的。以下正确的描述是：在Visual Basic应用程序中______。
A.
过程的定义不可以嵌套，但过程的调用能嵌套
B.
过程的定义可以嵌套，但过程的调用不可以嵌套
C.
过程的定义和过程的调用均不可以嵌套
D.
过程的定义和过程的调用均可以嵌套
3. 在过程定义中用 ________表示形参的传地址。
A.
Var
B.
ByRef
C.
ByVal
D.
ByValue
4. 在过程调用结束后还能保存过程中局部变量的值，则使用______关键字在过程中定义该局部变量。
A.
Dim
B.
Private
C.
Public
D.
Static
5. Sub过程与Function过程最根本的区别是__________。
A.
Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以
B.
Function过程可以有参数，Sub过程不可以
C.
两种过程参数的传递方式不同
D.
Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
6. 要想在过程调用后返回两个结果，下面的过程定义语句中合法的是_________。
A.
Sub Proc(ByVal n,ByVal m)
B.
Sub Proc(n,ByVal m)
C.
Sub Proc(n,m)
D.
Sub Proc(ByVal n,m)
7. 以下叙述中，不正确的是（ ）。
A.
过程中的形式参数是局部变量。
B.
不同的过程中可以使用相同名字的局部变量。
C.
在一个过程内定义的变量只在本过程范围内有效。
D.
在一个过程内的局部变量与全局变量同名时，起作用的是全局变量。
8. 在过程定义中用 （ ）表示形参的传值方式。
A.
Var
B.
ByRef
C.
ByVal
D.
Value
9. 在过程A中定义了静态变量y。当调用过程A后，在退出过程A前，y的值为5。请问，下次再进入过程A时，y 的值为（ ）。
A.
无定义出错
B.
5
C.
不定值
D.
0
10. 下列叙述中正确的是______。
A.
在窗体的通用事件过程中定义的变量是全局变量。
B.
局部变量的作用域可以超出所定义的过程。
C.
在某个Sub过程中定义的局部变量可以与其它事件过程中定义的局部变量同名，但其作用域只限于该过程
D.
模块级变量和全局变量的生存期是整个应用程序的运行期间
11. 下列程序 Private Sub Form_click() title = Val(InputBox("请输入一个数")) fee = Countl(title) Print fee End Sub Function Countl(title) If title < 40 Then pay = title / 2 Else pay = 2 * title End If ' Countl = pay End Function 运行时从键盘输入20，输出结果是＿ 。
A.
10
B.
20
C.
30
D.
显示出错信息
12. 下面程序运行后的结果是（ ） Public sub f1(n%,byval m%) N=n mod 10 M=m\10 End sub Private sub command1_click( ) Dim x%,y% X=12 Y=34 Call f1(x,y) Print x,y End sub
A.
234
B.
12 34
C.
2 3
D.
12 3
13. 阅读下列程序： Private Sub Command1_Click() Dim i As Integer, t As Integer t = 1 For i = 1 To 3 Print Hck(t); Next i End Sub Function Hck(j As Integer) a = 0 Static b a = a ^ 2 + 1 b = b + 2 Hck = a * b * j End Function 运行程序后，单击命令按钮，输出结果是_____________。
A.
234
B.
246
C.
567
D.
356
14. 下面的子过程语句说明合法的是________。
A.
Sub fib(ByRef i%())
B.
Sub fib(j%) As Integer
C.
Function f%(f%)
D.
Function f1!(ByVal n%)
15. 下面程序运行结果是( ) Private sub command1_click( ) Print p1(3,7) End sub Public Function p1!(x!,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 Endif Endif End function
A.
18
B.
7
C.
14
D.
27
16. 使用Function语句定义一个函数过程，其返回值的类型为（ ）。
A.
只能是符号常量
B.
是除数组之外的简单数据类型
C.
可在调用时由运行过程决定。
D.
由函数定义时As子句声明
17. 运行以下程序后，输出结果为_____________。 Private Sub Command1_Click() a=1:b=2:c=3 Call test(a,b+3,(c)) Print "main:";a;b;c End Sub Private Function test(p,m,n) p=p+1:m=m+1:n=n+1 Print "sub:";p;m;n End Function
A.
sub:264
main:123
B.
sub:264
main:223
C.
sub:264
main:264
D.
sub:264
main:164
18. 以下关于变量作用域的叙述中，正确的是______。
A.
Static类型变量的作用域是它所在的窗体或模块文件
B.
全局变量必须在标准模块中声明
C.
模块级变量只能用Private关键字声明
D.
窗体中凡被声明为Private的变量只能在某个指定的过程中使用
19. 下列过程定义语句中合法的是___________。
A.
Sub Proc(ByVal n())
B.
Sub Proc(n)As Integer
C.
Function Proc(ByVal n())
D.
Function Proc(ByVal n%) As Integer
二、程序阅读题（本大题共24分，共 4 小题，每小题 6 分）
1.
程序代码为：
Private Sub Command1_Click()
Dim i%
For i=1 To 3
Call s4
Next i
End Sub
Static Sub s4()
u=u+1: v=v+1
Print "u="; u, "v="; v
End Sub
程序运行后，单击命令按钮后，在窗体显示的结果是：
2.
写出下面程序当输入数据-10080时的执行结果。
Private Sub p(n As Integer)
If (n < 0) Then
Print '-'
n = -n
End If
If (n \ 10 > 0) Then
p (n \ 10)
End If
Print (n Mod 10)
End Sub
Private Sub Form_Click()
Dim m As Integer
m = InputBox("请输入一个整数", 输入")
p (m)
End Sub
3.
程序代码为：
Public sub proc(a%( ))
Static I%
Do
A(i)=a(i)+a(I+1)
I=I+1
Loop while I<2
End sub
Private 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
程序运行后，单击命令按钮后，在窗体显示的结果是：
4.
写出下面程序运行时单击窗体的输出结果。
Private Sub f(a%, b%)
a = a + b
b = a - b
End Sub
Private Sub Form_Click()
Dim a%, b%
a = 23
b = 12
Call f(a, b)
Print "a=" & a; ",b=" & b
End Sub
答案：
一、单项选择题（76分，共 19 题，每小题 4 分）
1. A 2. A 3. B 4. D 5. D 6. C 7. D 8. C 9. B 10. C 11. A 12. A 13. B 14. D 15. D 16. D 17. B 18. B 19. D
二、程序阅读题（24分，共 4 题，每小题 6 分）
1.
参考答案：
u=1 v=1
u=2 v=2
u=3 v=3
解题方案：
评分标准：
2.
参考答案：
10080
解题方案：
评分标准：
3.
参考答案：
3 5 7 4 5
解题方案：
评分标准：
4.
参考答案：
a=35,b=23
解题方案：
评分标准：
页:
[1]