重庆大学18春可视化程序设计（VB） ( 第3次 )作业
第3次作业一、单项选择题（本大题共76分，共 19 小题，每小题 4 分）
1. 以下关于Visual Basic的参数传递的描述不正确的是_____________。
A.形式参数表和实际参数表中对应的变量名必须相同B.形式参数表和实际参数表中对应的变量个数必须相同C.形式参数表和实际参数表中对应的变量类型必须相同D.形式参数表和实际参数表中对应的书写顺序必须对应相同
2. 将数组看成一个整体作为过程的参数时，是以方式实现参数传递的。以下正确的描述是：在Visual Basic应用程序中______。
A.过程的定义不可以嵌套，但过程的调用能嵌套B.过程的定义可以嵌套，但过程的调用不可以嵌套C.过程的定义和过程的调用均不可以嵌套D.过程的定义和过程的调用均可以嵌套
3. 在过程定义中用 ________表示形参的传地址。
A.VarB.ByRefC.ByVal D.ByValue
4. 在过程调用结束后还能保存过程中局部变量的值，则使用______关键字在过程中定义该局部变量。
A.Dim B.Private C.PublicD.Static
5. Sub过程与Function过程最根本的区别是__________。
A.Sub过程可以使用Call语句或直接使用过程名调用，而Function过程不可以B.Function过程可以有参数，Sub过程不可以C.两种过程参数的传递方式不同D.Sub过程的过程名不能返回值，而Function过程能通过过程名返回值
6. 要想在过程调用后返回两个结果，下面的过程定义语句中合法的是_________。
A.Sub Proc(ByVal n,ByValm)B.Sub Proc(n,ByVal m)C.Sub Proc(n,m) D.Sub Proc(ByVal n,m)
7. 以下叙述中，不正确的是（ ）。
A.过程中的形式参数是局部变量。B.不同的过程中可以使用相同名字的局部变量。C.在一个过程内定义的变量只在本过程范围内有效。 D.在一个过程内的局部变量与全局变量同名时，起作用的是全局变量。
8. 在过程定义中用 （ ）表示形参的传值方式。
A.VarB.ByRef C.ByVal D.Value
9. 在过程A中定义了静态变量y。当调用过程A后，在退出过程A前，y的值为5。请问，下次再进入过程A时，y 的值为（）。
A.无定义出错B.5C.不定值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 / 2Else pay = 2 * title End If ' Countl = pay End Function 运行时从键盘输入20，输出结果是＿ 。
A.10B.20C.30 D.显示出错信息
12. 下面程序运行后的结果是（ ） Public sub f1(n%,byval m%) N=n mod10 M=m\10 End sub Private sub command1_click( ) Dim x%,y% X=12 Y=34 Callf1(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 AsInteger, t As Integer t = 1 For i = 1 To 3 Print Hck(t); Next i End SubFunction 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.567D.356
14. 下面的子过程语句说明合法的是________。
A.Sub fib(ByRef i%())B.Sub fib(j%) As IntegerC.Function f%(f%) D.Function f1!(ByVal n%)
15. 下面程序运行结果是( ) Private sub command1_click( ) Printp1(3,7) End sub Public Function p1!(x!,n%) If n=0 then P1=1 Else If n mod 2=1then P1=x*p1(x,n\2) Else P1=p1(x,n\2)\x Endif Endif End function
A.18 B.7C.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+1Print "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.SubProc(n)As IntegerC.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 iEnd SubStatic Sub s4() u=u+1: v=v+1 Print"u="; u, "v="; vEnd Sub程序运行后，单击命令按钮后，在窗体显示的结果是：
2. 写出下面程序当输入数据-10080时的执行结果。Private Sub p(nAs Integer)If (n< 0) Then Print '-' n = -nEnd IfIf (n \10 > 0) Then p (n \ 10)End IfPrint (nMod 10)End SubPrivate SubForm_Click()Dim m AsIntegerm =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<2End subPrivate subcommand1_click( )Dim m%,I%,x%(10)For I=0 to 4 :x(i)=I+1 : next IFor I=1 to 2 :call proc(x) : next IFor I=0 to 4 :print x(i); : next IEnd sub程序运行后，单击命令按钮后，在窗体显示的结果是：
4. 写出下面程序运行时单击窗体的输出结果。Private Subf(a%, b%)a = a + bb = a - bEnd SubPrivate SubForm_Click()Dim a%,b%a = 23b = 12Call f(a,b)Print"a=" & a; ",b=" & bEnd 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=1u=2 v=2u=3 v=3
解题方案：
评分标准：
2.
参考答案：10080
解题方案：
评分标准：
3.
参考答案：3 5 7 4 5
解题方案：
评分标准：
4.
参考答案：a=35,b=23
解题方案：
评分标准：附件为wrod版本可编辑答案，内容和帖子内容一样。
页:
[1]