1、第六章 过程习题 一、 选择题 1. 下列叙述中正确的是（ c ）。 （ A）在窗体的 Form_Load 事件中定义的变量是全局变量 （ B）局部变量的作用域可以超出所定义的过程 （ C）在某个 Sub 过程中定义的局部变量可以与其他事件过程中定义的局部变量同名，但其作用域只局限于该过程。 （ D）在调用过程时，所有局部变量被系统初始化为 0 2. 下列四个叙述中，错误的是（ c ）。 （ A）过程内用 Dim语句定义的变量，它的作用域是此过程 （ B）过程 内用 Static 语句定义的变量，它的生存期与整个过程的运行期相同 （ C）过程内用 Dim 语句定义的变量，它的生存期与整个过程的
2、运行期相同 （ D）若在模块的“通用声明”中写上语句： Option Explicit，则该模块的所有变量必须先说明后引用 3. 在过程定义中用（ c ）表示形参的传值。 （ A） Var （ B） ByDef （ C） ByVal （ D）Value 4. 若已编写了一个 Sort 子过程，在该工程中有多个窗体，为 了方便地调用 Sort子过程，应该将该过程 放 在（ b ）中。 （ A） 窗体模块 （ B） 标准模块 （ C） 类模块 （ D）工程 5. 在过程中定义的变量，若希望在离开该过程后，还能保存过程中局部变量的值，则应使用（ d ）关键字在过程中定义局部变量。 （ A） Dim
3、（ B） Private （ C） Public （ D）Static 6. 下面子过程语句说明合法的是（ d ）。 （ A） Sub f1(Byval n%() （ B） Sub f1(n%) as integer （ C） Function f1%(f1%) （ D） Function f1(Byval n%) 7. 要想从子过程调用后返回两个结果，下面子过程语句说明合法的是（ c ）。 （ A） Sub f1(Byval n%, Byval m%) （ B） Sub f1(n%, Byval m%) （ C） Sub f1(n%, m%) （ D） Sub f1(Byval n%, m%
4、) 8. 在 VB 应用程序中，以下正确的描述是（ b ）。 （ A）过程的定义可以嵌套，但过程的调用不能嵌套 （ B）过程的定义不可以嵌套，但过程的调用可以嵌套 （ C）过程的定义和调用均不可以嵌套 （ D）过程的定义和调用均可以嵌套 9. 以下叙述中错误的是（ c ）。 （ A）一个工程中只能有一个 Sub Main 过程 （ B）窗体的 Show 方法的作用是将指定的窗体装入内存并显示该窗体 （ C）窗体的 Hide 方法和 Unload 方法的作用完全相同 （ D）若 工程文 件中有多个窗体，可以根据需要指定一个窗体为启动窗体 10. 以下叙述中错误的是（ d ）。 （ A） 如果过程
5、被定义为 Static 类型，则该过程中的局部变量都是 Static 类型 （ B） Sub 过程中不能嵌套定义 Sub 过程 （ C） Sub 过程中可以嵌套调用 Sub 过程 （ D） 事件过程中可以 像通用过程一样由用户定义过程名 11. 定义带可变参数的过程，使用的关键字是（ c ）。 （ A） Optional （ B） Option （ C） ParamArray （ D）Private 12. 定义带可选参数的过程，使用的关键字是（ a ）。 （ A） Optional （ B） Option （ C） ParamArray （ D）Private 二、 填空题 1. 在过程定义
6、的首部出现的变量名叫做（ 形式参数 ）参数，而在调用过程中传送给过程的（ 常量 ）、（ 变量 ）、（ 数组元素 ）或（ 表达式 ）叫做（ 实在参数 ）参数。 2. 定义和调用函数或过程时参数传递的两种方法是（ 按值传递 ）和（ 按地址传递 ）。 3. 在窗体的通用段用 Dim 语句定义的变量是（ 窗体级 ）级变量，它只能在（ 本窗体 ）中使用。 4. 全局级过程在定义时可以默认，也可以使用关键字（ public ）进行显示声明；窗体 / 模块级的过程声明时要用关键字（ private ）。 5. 用 ParamArray 关键字声明可变参数 时，被声明的参数只能是（ 变体类型数组 ）。 6.
7、在带可选参数的过程中，使用（ isming ）函数来测试可选参数是否被选。 三、 分析运行结果 1. 阅读程序 Function f(a As Integer) Static c b = 0: 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 程序运行后，单击命令 按钮，输出结果为： 2. 阅读程序 Sub s(x As Single, y As Single)
8、t = x x = t / y y = t Mod y End Sub Private Sub command1_click() Dim a As Single, b As Single a = 5 b = 4 s a, b Print a, b End Sub 程序运行后，单击命令按钮，输出结果为： 3. 阅读程序 Function M(x%, y%) 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
9、M(a, b) End Sub 程序运行后，单击命令按钮，输出结果为： 4. 阅读程序 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 程序运行后，单击命令按钮，输出结果为： 5. 阅读程序： Sub p(b() As Integer) For i = 1 To 4 b(i) = 2 * i Next i End Sub Private Sub command1_click() Dim a(1 T
10、o 4) As Integer a(1) = 5 a(2) = 6 a(3) = 7 a(4) = 8 p a() For i = 1 To 4 Print a(i); Next i End Sub 程序运行后，单击命令按钮，输出结果为： 6. 阅读程序： Function fun(ByVal 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_cl
11、ick() Dim n As Long, r As Long n = Val(InputBox(“请输入一个数： “) r = fun(n) Print r End Sub 程序运行后，单击命令按钮，输入 1234，输出结果为： 7. 阅读程序： Function func(a%, b%) 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%, m%, p% k =
12、 4 m = 1 p = func(k, m) Print p; p = func(k, m) Print p End Sub 程序运行后，单击命令按钮，输出结果为： 8. 阅读程序： Dim a%, b%, c% Public Sub p1(x%, y%) Dim c% x = 2 * x: y = y + 2: c = x + y End Sub Public Sub p2(x%, ByVal y%) Dim c% x = 2 * x: y = y + 2: c = x + y End Sub Private Sub command1_click() a = 2: b = 4: c = 6
13、 Call p1(a, b) Print a, b, c Call p2(a, b) Print a, b, c End Sub 程序运行后，单击命令按钮，输出结果为： 9. 阅读 程序： 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 Public Sub proc(a%() Static i% Do a(i) = a(i)
14、 + a(i + 1) i = i + 1 Loop While i 2 End Sub 程序运行后，单击命令按钮，输出结果为： 10. 阅读程序： 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 End If End If End Function 程序运行后，单击命令按钮，输出结果为： 11. 阅读程序：
15、 Private Sub command1_click() Dim x%, y%, z%, w% x = 9 y = 8 z = 2 w = 6 Call s1(x, y, z, w) Print x; y; z; w End Sub Private Sub s1(a%, b%, ByVal c%, ByVal d%) a = a + 1 b = b + 2 c = c + 3 d = d + 4 End Sub 程序运行后，单击命令按钮，输出结果为： 12. 阅读程序： Private Sub command1_click() Dim x%, y% x = 9: y = 8 Call s1(
16、5, 7, x, y) Print x; y End Sub Private Sub s1(a%, b%, ByVal c%, ByVal d%) c = c + a: d = d + b End Sub 程序运行后，单击命令按钮，输出结果为： 13. 阅读程序： Private Sub command1_click() Dim x%, y%, z% x = 5: y = 7: z = 0 Call s1(x, y, z) Print x; y; z End Sub Private Sub s1(ByVal a%, ByVal b%, c%) c = a + b End Sub 程序运行后，单击命令按钮，输出结果为： 14. 阅读程序： Private i As Integer Private Sub abc() a$ = Chr(Asc(“A“) + i) Print a$; “;“; End Sub Private Sub command1_click() For i = 0 To 4 abc Next i End Sub 程序运行后，单击命令按钮，输出结果为：
