第17卷 过程《Visual Basic程序设计》内蒙古计算机类 考纲百套卷

编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第17卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：事件过程，子过程，过程间参数的传递，过程的嵌套与递归，常用算法实例。 内蒙古对口招生《计算机类考纲百套卷》 第17卷 《Visual Basic程序设计》 过程 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1.CommandButton 的默认事件是 A. DblClick B. KeyPress C. MouseDown D. Click 【答案】D 【解析】Click 是命令按钮最常用的事件，双击在设计器中添加一个按钮即可生成 Click 事件过程。 2.以下关于事件过程的说法，正确的是 A. 事件过程名可由用户自定义 B. 一个控件只能有一个事件过程 C. 事件过程必须显式调用 D. 事件过程由系统根据用户操作自动触发 【答案】D 【解析】事件过程由系统自动触发，当用户执行相应操作（如单击）时，对应的事件过程被执行。 3.Text1_Change 事件在______时触发。 A. 文本框获得焦点时 B. 双击文本框时 C. 单击文本框时 D. 文本框内容发生变化时 【答案】D 【解析】Change 事件在文本框的 Text 属性内容发生变化时触发。 4.Function 过程与 Sub 过程的主要区别是 A. Function 不能有参数 B. Function 必须有参数 C. Function 有返回值 D. Function 只能返回数值 【答案】C 【解析】Function 过程通过给函数名赋值来返回结果，Sub 过程不返回值。 5.以下调用 Sub 过程 Test(a, b) 的正确方式是 A. Test a, b B. Test(a, b) C. Test (a, b) D. Test [a, b] 【答案】A 【解析】不用 Call 时直接写过程名和参数（用逗号分隔），不加括号。若用 Call，则需加括号：Call Test(a, b)。 6.Private Sub 与 Public Sub 的区别在于 A. 过程的访问范围 B. 参数传递方式 C. 过程是否有返回值 D. 过程的执行速度 【答案】A 【解析】Private 表示过程仅在本模块内可访问，Public 表示过程可被所有模块访问。 7.调用过程时，实际参数的个数和类型必须与______一致。 A. 形式参数 B. 返回值类型 C. 过程名 D. 模块名 【答案】A 【解析】实参的个数、顺序和数据类型必须与过程定义中的形参匹配。 8.ByVal 传递方式的特点是 A. 传递变量的内存地址 B. 传递过程名 C. 不传递任何内容 D. 传递变量的副本 【答案】D 【解析】ByVal 传递变量的副本（拷贝），过程内对副本的修改不会影响原变量。 9.以下程序段运行后，Print 输出的值是 Private Sub Test(ByRef x As Integer) x = x * 2 End Sub Private Sub Command1_Click() Dim a As Integer a = 5 Call Test(a) Print a End Sub A. 10 B. 5 C. 2 D. 0 【答案】A 【解析】默认 ByRef 传地址，Test 过程修改 x 即直接修改 a，a 变为 10。 10.在 Visual Basic 6.0 中，过程内部可以定义另一个过程吗？ A. 可以，VB 支持过程嵌套定义 B. 可以，但只能定义 Sub C. 可以，但只能定义 Function D. 不可以，VB 不允许过程内定义过程 【答案】D 【解析】VB 不支持在过程内部定义另一个过程（即不允许过程嵌套定义），但允许过程嵌套调用。 11.递归算法中，防止无限递归的关键是正确设置 A. 形式参数 B. 局部变量 C. 递归结束条件 D. 全局变量 【答案】C 【解析】递归结束条件（基例）确保递归能在有限步后停止，没有它会导致无限递归和栈溢出。 12.用递归求斐波那契数列第 n 项时，基例通常设为 A. F(1) = 1, F(2) = 1 B. F(0) = 0 C. F(0) = 1 D. F(n) = n 【答案】A 【解析】斐波那契数列的基例：F(1) = 1, F(2) = 1，递推公式：F(n) = F(n-1) + F(n-2)。 13.在 Command1 控件的 Click 事件过程中，可以调用 Form_Load 事件过程吗？ A. 不可以，事件过程不能被调用 B. 不可以，编译会报错 C. 可以，但只能通过事件触发 D. 可以，事件过程也是过程，能被调用 【答案】D 【解析】事件过程本质上也是 Sub 过程，可以被其他过程调用，如 Call Form_Load。 14.KeyPress 事件中，参数 KeyAscii 表示 A. 按键的 ASCII 码值 B. 按键的扫描码 C. 按键的键名 D. 按键的重复次数 【答案】A 【解析】KeyAscii 参数返回用户按键对应的 ASCII 码值，如按 A 返回 65。 15.以下程序段运行后，变量 r 的值是 Private Function Max(ByVal a As Integer, ByVal b As Integer) As Integer If a > b Then Max = a Else Max = b End If End Function Private Sub Command1_Click() Dim r As Integer r = Max(15, 8) Print r End Sub A. 8 B. 23 C. 15 D. 0 【答案】C 【解析】Max(15, 8) 比较后返回较大值 15，赋值给 r。 16.以下程序段运行后，变量 s 的值是 Private Function Sum(ByVal n As Integer) As Integer Dim i As Integer, t As Integer t = 0 For i = 1 To n t = t + i Next i Sum = t End Function Private Sub Command1_Click() Dim s As Integer s = Sum(10) Print s End Sub A. 45 B. 100 C. 10 D. 55 【答案】D 【解析】Sum(10) 计算 1+2+...+10 = 55。 17.以下程序段运行后，Print 输出 a 和 b 的值是 Private Sub Test(ByVal x As Integer, ByRef y As Integer) x = x + 1 y = y + 1 End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3: b = 3 Call Test(a, b) Print a, b End Sub A. 3 4 B. 4 4 C. 3 3 D. 4 3 【答案】A 【解析】a 是 ByVal 不变（仍为 3），b 是 ByRef 变为 4。 18.可选参数在参数列表中必须放在 A. 参数列表的最前面 B. 参数列表的最后面 C. 参数列表的中间 D. 任意位置 【答案】B 【解析】Optional 参数必须放在参数列表的末尾，且必须指定默认值。 19.以下递归函数计算的是 Private Function f(ByVal n As Integer) As Integer If n <= 1 Then f = 1 Else f = n + f(n - 1) End If End Function A. n 的阶乘 B. 1 到 n 的累加和 C. n 的平方 D. 斐波那契第 n 项 【答案】B 【解析】基例 n<=1 返回 1；递推 f(n) = n + f(n-1)，即 1+2+...+n 的和。 20.以下程序段运行后，f(4) 的值是 Private Function f(ByVal n As Integer) As Integer If n <= 1 Then f = 1 Else f = f(n - 1) + f(n - 2) End If End Function A. 3 B. 4 C. 5 D. 8 【答案】C 【解析】f(1)=1, f(2)=1+1=2, f(3)=2+1=3, f(4)=3+2=5。 21.在 MouseDown 事件中，参数 Button 的值表示 A. 鼠标的坐标 B. 按下的鼠标按键 C. 按键的 ASCII 码 D. Shift/Ctrl/Alt 状态 【答案】B 【解析】Button 参数指示按下的是哪个鼠标键：1=左键，2=右键，4=中键。 22.以下程序段运行后，Print 的值是 Private Function Calc(ByVal n As Integer) As Integer If n Mod 2 = 0 Then Calc = n / 2 Else Calc = n * 3 + 1 End If End Function Private Sub Command1_Click() Print Calc(6) + Calc(7) + Calc(8) End Sub A. 9 B. 22 C. 29 D. 47 【答案】C 【解析】Calc(6)=3, Calc(7)=22, Calc(8)=4, 总和=3+22+4=29。 23.以下程序段运行后，Print 输出的值是 Private Sub P(ByVal a As Integer, ByRef b As Integer) a = a + b b = a + b End Sub Private Sub Command1_Click() Dim m As Integer, n As Integer m = 2: n = 3 Call P(m, n) Print m + n End Sub A. 5 B. 10 C. 8 D. 13 【答案】B 【解析】a=2+3=5（ByVal不改变m，m仍=2）；b=5+3=8（ByRef改变n=8）；Print m+n=2+8=10。 24.以下程序段运行后，变量 n 的值是 Private Sub Sub1() n = n + 1 End Sub Private Sub Sub2() Call Sub1 n = n * 2 End Sub Private Sub Command1_Click() n = 3 Call Sub2 Print n End Sub （设 n 为模块级变量） A. 7 B. 8 C. 6 D. 9 【答案】B 【解析】n=3 → Call Sub2 → Call Sub1(n=4) → n=4*2=8。 25.以下程序段运行后，变量 r 的值是 Private Sub Command1_Click() Dim a As Integer, b As Integer, r As Integer a = 56: b = 24 Do r = a Mod b If r = 0 Then Exit Do a = b b = r Loop Print b End Sub A. 4 B. 6 C. 8 D. 12 【答案】C 【解析】辗转相除法：56 Mod 24 = 8 → 24 Mod 8 = 0，最大公约数为 8。 26.判断 97 是否为素数，至少需要检查到 A. 9 B. 10 C. 48 D. 96 【答案】A 【解析】Sqr(97) ≈ 9.85，只需检查 2~9 是否能整除 97。 27.以下递归函数的返回值是 Private Function Mystery(ByVal n As Integer) As Integer If n < 10 Then Mystery = n Else Mystery = n Mod 10 + Mystery(n \ 10) End If End Function 则 Mystery(1234) 的值是 A. 4 B. 10 C. 16 D. 20 【答案】B 【解析】Mystery(1234) = 4 + Mystery(123) = 4+3+Mystery(12) = 4+3+2+Mystery(1) = 4+3+2+1=10，即各位数字之和。 28.数组作为参数传递给过程时，传递方式是 A. 传值 B. 必须是传地址 C. 可以使用 ByVal 或 ByRef D. 不能将数组作为参数 【答案】B 【解析】VB 中数组只能按地址（ByRef）传递，不能使用 ByVal 传递整个数组。 29.用非递归方法求阶乘，核心代码正确的是 A. For i = n To 1 Step -1: f = f + i: Next i B. For i = 1 To n: f = f * i: Next i C. For i = 1 To n: f = f + i: Next i D. For i = n To 0 Step -1: f = f * i: Next i 【答案】B 【解析】非递归阶乘：f 初始为 1，循环从 1 到 n 累乘即可。D 中有乘以 0 的漏洞。 30.以下程序段运行后，Print n 的值是 Private Sub Test(ByRef x As Integer) x = x + 3 End Sub Private Sub Command1_Click() Dim n As Integer n = 7 Call Test(n) Call Test(n) Print n End Sub A. 7 B. 10 C. 13 D. 16 【答案】C 【解析】第一次 Test: n=7+3=10；第二次 Test: n=10+3=13。两次均为 ByRef，直接修改 n。 二、填空题（本题共10道小题，每题2分，共20分） 1.命令按钮 Command1 被单击时触发的事件过程名为______。 【答案】Command1_Click 【解析】事件过程名格式为对象名_事件名，命令按钮名+下划线+Click。 2.KeyPress 事件中，参数______返回用户按键对应的 ASCII 码值。 【答案】KeyAscii 【解析】KeyAscii 参数表示按下的键的 ASCII 码值，可在事件中读取或修改。 3.用 Call 语句调用过程时，参数必须用______括起来。 【答案】圆括号 【解析】使用 Call 时格式为 Call 过程名(参数)，不使用 Call 时直接写 过程名 参数（不加括号）。 4.Function 过程通过给______赋值来返回结果。 【答案】函数名 【解析】VB 中 Function 使用 函数名 = 表达式 的方式设定返回值，不是 Return 语句。 5.定义过程时使用______关键字声明的参数为可选参数，调用时可不提供该参数。 【答案】Optional 【解析】Optional 参数必须指定默认值且放在参数列表末尾，调用时可省略。 6.在 Visual Basic 6.0 中，数组作为参数传递给过程时只能按______方式传递。 【答案】ByRef（地址） 【解析】数组只能按地址传递，不能使用 ByVal，传递的是数组的首地址。 7.递归必须有一个______条件，确保递归能够终结。 【答案】结束（终止） 【解析】结束条件（基例）是递归的关键，没有它递归会无限进行导致栈溢出错误。 8.在 VB 过程中使用______关键字声明的局部变量，其值在过程调用结束后仍保留。 【答案】Static 【解析】Static 声明的局部变量具有“静态”特性，过程结束后值不消失，下次调用时保留原值。 9.用辗转相除法求最大公约数时，循环结束的条件是______为 0。 【答案】余数（r） 【解析】辗转相除法中的循环条件是余数不为 0，余数为 0 时除数即为最大公约数。 10.判断素数时，若 n 能被 2 到 Sqr(n) 之间的任意一个数整除，则 n ______素数。 【答案】不是（一定不是） 【解析】只要有一个因子即可判定 n 不是素数，不用继续检查。 三、程序填空题（本题共2道小题，每题10分，共20分） 1.以下程序的功能是：判断整数 n 是否为素数（质数），是则输出“是素数”，否则输出“不是素数”。请补充完善程序。 Private Sub Command1_Click() Dim n As Integer, i As Integer Dim flag As Boolean n = 97 flag = True For i = 2 To [1]______ If n Mod i = 0 Then [2]______ Exit For End If Next i If [3]______ Then Print n; “是素数” Else Print n; “不是素数” End If End Sub 【答案】Sqr(n)；flag = False；flag 【解析】循环检查到 Sqr(n)；当 n 能被 i 整除时设置标志 flag=False 并退出循环；根据 flag 值输出结果。 2.以下程序的功能是：用递归函数计算斐波那契数列第 n 项。请补充完善程序。 Private Function Fib(ByVal n As Integer) As Long If n = 1 Or [1]______ Then Fib = [2]______ Else Fib = Fib(n - 1) + [3]______ End If End Function Private Sub Command1_Click() Print “斐波那契数列第6项为”; Fib(6) End Sub 【答案】n = 2；1；Fib(n - 2) 【解析】基例：n=1 或 n=2 时返回 1；递推公式：F(n) = F(n-1) + F(n-2)。 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $ 编写说明：内蒙古自治区对口招生《计算机类考纲百套卷》，依据《2019年内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本专辑涵盖四门课程，且每门课程均采用三阶递进式训练体系：基础层（具象化支架）拆解考点为微目标，紧扣考纲“掌握”“理解”要求编写考点训练卷；巩固层（关联性支架）强化知识交叉与场景关联，按考纲专题编专题训练卷；应用层（引导性支架）聚焦真题突破，结合知识模块与教材编写课程综合卷。 本试卷是第17卷，为考点训练卷，按《Visual Basic程序设计》范围和要求编写。具体内容为：事件过程，子过程，过程间参数的传递，过程的嵌套与递归，常用算法实例。 内蒙古对口招生《计算机类考纲百套卷》 第17卷 《Visual Basic程序设计》 过程 考点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单选题（本题共30道小题，每题2分，共60分） 1.CommandButton 的默认事件是 A. DblClick B. KeyPress C. MouseDown D. Click 2.以下关于事件过程的说法，正确的是 A. 事件过程名可由用户自定义 B. 一个控件只能有一个事件过程 C. 事件过程必须显式调用 D. 事件过程由系统根据用户操作自动触发 3.Text1_Change 事件在______时触发。 A. 文本框获得焦点时 B. 双击文本框时 C. 单击文本框时 D. 文本框内容发生变化时 4.Function 过程与 Sub 过程的主要区别是 A. Function 不能有参数 B. Function 必须有参数 C. Function 有返回值 D. Function 只能返回数值 5.以下调用 Sub 过程 Test(a, b) 的正确方式是 A. Test a, b B. Test(a, b) C. Test (a, b) D. Test [a, b] 6.Private Sub 与 Public Sub 的区别在于 A. 过程的访问范围 B. 参数传递方式 C. 过程是否有返回值 D. 过程的执行速度 7.调用过程时，实际参数的个数和类型必须与______一致。 A. 形式参数 B. 返回值类型 C. 过程名 D. 模块名 8.ByVal 传递方式的特点是 A. 传递变量的内存地址 B. 传递过程名 C. 不传递任何内容 D. 传递变量的副本 9.以下程序段运行后，Print 输出的值是 Private Sub Test(ByRef x As Integer) x = x * 2 End Sub Private Sub Command1_Click() Dim a As Integer a = 5 Call Test(a) Print a End Sub A. 10 B. 5 C. 2 D. 0 10.在 Visual Basic 6.0 中，过程内部可以定义另一个过程吗？ A. 可以，VB 支持过程嵌套定义 B. 可以，但只能定义 Sub C. 可以，但只能定义 Function D. 不可以，VB 不允许过程内定义过程 11.递归算法中，防止无限递归的关键是正确设置 A. 形式参数 B. 局部变量 C. 递归结束条件 D. 全局变量 12.用递归求斐波那契数列第 n 项时，基例通常设为 A. F(1) = 1, F(2) = 1 B. F(0) = 0 C. F(0) = 1 D. F(n) = n 13.在 Command1 控件的 Click 事件过程中，可以调用 Form_Load 事件过程吗？ A. 不可以，事件过程不能被调用 B. 不可以，编译会报错 C. 可以，但只能通过事件触发 D. 可以，事件过程也是过程，能被调用 14.KeyPress 事件中，参数 KeyAscii 表示 A. 按键的 ASCII 码值 B. 按键的扫描码 C. 按键的键名 D. 按键的重复次数 15.以下程序段运行后，变量 r 的值是 Private Function Max(ByVal a As Integer, ByVal b As Integer) As Integer If a > b Then Max = a Else Max = b End If End Function Private Sub Command1_Click() Dim r As Integer r = Max(15, 8) Print r End Sub A. 8 B. 23 C. 15 D. 0 16.以下程序段运行后，变量 s 的值是 Private Function Sum(ByVal n As Integer) As Integer Dim i As Integer, t As Integer t = 0 For i = 1 To n t = t + i Next i Sum = t End Function Private Sub Command1_Click() Dim s As Integer s = Sum(10) Print s End Sub A. 45 B. 100 C. 10 D. 55 17.以下程序段运行后，Print 输出 a 和 b 的值是 Private Sub Test(ByVal x As Integer, ByRef y As Integer) x = x + 1 y = y + 1 End Sub Private Sub Command1_Click() Dim a As Integer, b As Integer a = 3: b = 3 Call Test(a, b) Print a, b End Sub A. 3 4 B. 4 4 C. 3 3 D. 4 3 18.可选参数在参数列表中必须放在 A. 参数列表的最前面 B. 参数列表的最后面 C. 参数列表的中间 D. 任意位置 19.以下递归函数计算的是 Private Function f(ByVal n As Integer) As Integer If n <= 1 Then f = 1 Else f = n + f(n - 1) End If End Function A. n 的阶乘 B. 1 到 n 的累加和 C. n 的平方 D. 斐波那契第 n 项 20.以下程序段运行后，f(4) 的值是 Private Function f(ByVal n As Integer) As Integer If n <= 1 Then f = 1 Else f = f(n - 1) + f(n - 2) End If End Function A. 3 B. 4 C. 5 D. 8 21.在 MouseDown 事件中，参数 Button 的值表示 A. 鼠标的坐标 B. 按下的鼠标按键 C. 按键的 ASCII 码 D. Shift/Ctrl/Alt 状态 22.以下程序段运行后，Print 的值是 Private Function Calc(ByVal n As Integer) As Integer If n Mod 2 = 0 Then Calc = n / 2 Else Calc = n * 3 + 1 End If End Function Private Sub Command1_Click() Print Calc(6) + Calc(7) + Calc(8) End Sub A. 9 B. 22 C. 29 D. 47 23.以下程序段运行后，Print 输出的值是 Private Sub P(ByVal a As Integer, ByRef b As Integer) a = a + b b = a + b End Sub Private Sub Command1_Click() Dim m As Integer, n As Integer m = 2: n = 3 Call P(m, n) Print m + n End Sub A. 5 B. 10 C. 8 D. 13 24.以下程序段运行后，变量 n 的值是 Private Sub Sub1() n = n + 1 End Sub Private Sub Sub2() Call Sub1 n = n * 2 End Sub Private Sub Command1_Click() n = 3 Call Sub2 Print n End Sub （设 n 为模块级变量） A. 7 B. 8 C. 6 D. 9 25.以下程序段运行后，变量 r 的值是 Private Sub Command1_Click() Dim a As Integer, b As Integer, r As Integer a = 56: b = 24 Do r = a Mod b If r = 0 Then Exit Do a = b b = r Loop Print b End Sub A. 4 B. 6 C. 8 D. 12 26.判断 97 是否为素数，至少需要检查到 A. 9 B. 10 C. 48 D. 96 27.以下递归函数的返回值是 Private Function Mystery(ByVal n As Integer) As Integer If n < 10 Then Mystery = n Else Mystery = n Mod 10 + Mystery(n \ 10) End If End Function 则 Mystery(1234) 的值是 A. 4 B. 10 C. 16 D. 20 28.数组作为参数传递给过程时，传递方式是 A. 传值 B. 必须是传地址 C. 可以使用 ByVal 或 ByRef D. 不能将数组作为参数 29.用非递归方法求阶乘，核心代码正确的是 A. For i = n To 1 Step -1: f = f + i: Next i B. For i = 1 To n: f = f * i: Next i C. For i = 1 To n: f = f + i: Next i D. For i = n To 0 Step -1: f = f * i: Next i 30.以下程序段运行后，Print n 的值是 Private Sub Test(ByRef x As Integer) x = x + 3 End Sub Private Sub Command1_Click() Dim n As Integer n = 7 Call Test(n) Call Test(n) Print n End Sub A. 7 B. 10 C. 13 D. 16 二、填空题（本题共10道小题，每题2分，共20分） 1.命令按钮 Command1 被单击时触发的事件过程名为______。 2.KeyPress 事件中，参数______返回用户按键对应的 ASCII 码值。 3.用 Call 语句调用过程时，参数必须用______括起来。 4.Function 过程通过给______赋值来返回结果。 5.定义过程时使用______关键字声明的参数为可选参数，调用时可不提供该参数。 6.在 Visual Basic 6.0 中，数组作为参数传递给过程时只能按______方式传递。 7.递归必须有一个______条件，确保递归能够终结。 8.在 VB 过程中使用______关键字声明的局部变量，其值在过程调用结束后仍保留。 9.用辗转相除法求最大公约数时，循环结束的条件是______为 0。 10.判断素数时，若 n 能被 2 到 Sqr(n) 之间的任意一个数整除，则 n ______素数。 三、程序填空题（本题共2道小题，每题10分，共20分） 1.以下程序的功能是：判断整数 n 是否为素数（质数），是则输出“是素数”，否则输出“不是素数”。请补充完善程序。 Private Sub Command1_Click() Dim n As Integer, i As Integer Dim flag As Boolean n = 97 flag = True For i = 2 To [1]______ If n Mod i = 0 Then [2]______ Exit For End If Next i If [3]______ Then Print n; “是素数” Else Print n; “不是素数” End If End Sub 2.以下程序的功能是：用递归函数计算斐波那契数列第 n 项。请补充完善程序。 Private Function Fib(ByVal n As Integer) As Long If n = 1 Or [1]______ Then Fib = [2]______ Else Fib = Fib(n - 1) + [3]______ End If End Function Private Sub Command1_Click() Print “斐波那契数列第6项为”; Fib(6) End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $