《Visual Basic 程序设计》过程（1）-知识点训练卷 2026版内蒙古计算机类 考纲百套卷 第16卷

编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第16卷，是知识点训练卷，按考纲中的《Visual Basic程序设计》的第8章 过程的范围与要求编写。具体内容如下： 事件过程 子过程 过程间参数的传递 过程的嵌套与递归 常用算法实例 2026版内蒙古对口招生《计算机类考纲百套卷》 第16卷 《Visual Basic 程序设计》 过程（1） 知识点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 使用过程编写程序主要是为了（ ）。 A．使程序模块化 B．使程序易于阅读 C．提高程序运行速度 D．便于系统的编译 【答案】A 2. 过程调用语句中，被调用的过程一定是Sub过程的语句是（ ）。 A．Call Pro1(a1, b1) B．Pro2(a2, b2) C．Print Pro3(a3, b3) D．x=Pro4(a4, b4) 【答案】A 3.已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为（ ）。 Private Function Sum( a,b,c) Sum=a+b+c End Function A. 1 B. 2 C. 3 D. 6 【答案】D 4. 已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。 Public Function Fn(n) If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n End Function Private Sub Command1_Click() Print Fn(6) End Sub A. 0 B. 1 C. 720 D. 6 【答案】C 5. 以下关于Function过程的说法中，错误的是（ ）。 A．Function过程名可以有一个或多个返回值 B．在Function过程内部不得再定义Function过程 C．Function过程中可以包含多个Exit Function语句 D．可以像调用Sub过程一样调用Function过程 【答案】A 6. 运行以下程序，显示的结果为（ ）。 Public Sub F1(n%, ByVal m%) n = n Mod 10 m = m \ 10 End Sub Private Sub Command1_Click() Dim x%, y% x = 34: y = 12 Call F1(x, y) Print x, y End Sub A. 2 34 B. 34 12 C. 4 1 D. 4 12 【答案】D 7.在 VB 中，使用 （ ）关键字声明过程不返回值。 A. Function B. Sub C. Procedure D. Method 【答案】B 8. 下列有关过程的说法中，错误的是（ ） A.在 Sub或Function 过程内部不能再定义其它Sub或Function 过程 B.对于使用ByRef说明的形参，在过程调用时形参和实参只能按传址方式结合 C.递归过程既可以是递归 Function 过程，也可以是递归 Sub 过程 D.可以像调用 Sub 过程一样使用 Call 语句调用 Function 过程 【答案】B 9. 要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是（ ）。 A． Sub swap(By Val m，By Val n) B． Sub swap(m, By Val n) C． Sub swap(m, n) D． Sub swap(By Val m, n) 【答案】C 10. 在过程调用中，参数的传递可以分为按值传递和（ ）两种方式。 A． 按参数传递 B． 按数值传递 C． 按地址传递 D． 按位置传递 【答案】C 11.程序如下： Private Sub Form_Click() Dim a As Integer, b As Integer a = 10 : b = 20 Call ff(a,b) Print a,b End Sub Private Sub ff(x As Integer, y As Integer) x = x + y y = x + y End Sub 程序运行时，单击窗体后，在窗体上输出的结果是（ ）。 A．10 20 B．20 20 C．30 30 D．30 50 【答案】D 12.在函数过程中的任意位置要退出当前函数过程，应用（ ）命令。 A. End Function B. Exit C. Exit Function D. Exit Sub 【答案】C 13. 以下有关过程的说法中，错误的是（ ）。 A．在Sub或Function过程中不能再定义其他Sub或Function过程 B．在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合 C．递归过程既可以是递归Function过程，也可以是递归Sub过程 D．在调用过程时，形参为数组的参数对应的实参只能是数组 【答案】B 14.假设已通过下列Sub语句声明了Proc1过程。若要调用该过程，可以采用（ ）语句。 Sub Proc1(x As Integer) A．s=Proc1(3) B．Proc1 32765 C．Print Proc1(100) D．Call Proc1(40000) 【答案】B 15. 下面定义Sub子过程的各个语句中，正确的语句是（ ）。 ① Private Sub Sub1(A( ) As String) ② Private Sub Sub1(A(1 To 10 ) As String*8) ③ Private Sub Sub1(S As String) ④ Private Sub Sub1(S As String*8) A．①②③④ B．①②③ C．①③④ D．①③ 【答案】D 16.下列定义Sub过程的语句中，正确的是（ ）。 A．Private Sub Sub1(A()) B．Private Sub Sub1(A As String*5) C．Private Sub Sub1(ByVal A() As Integer) D．Private Sub Sub1(A(10)As Integer) 【答案】A 17.程序中有两个过程Private Sub Fun1(S As String)和Private Sub Fun2(a() As String* 6)，在调用过程中用Dim St(6) As String*6定义了一个字符串数组。下面调用语句中正确的是 （ ）。 ①Call Fun1(St(3)) ②Call Fun2(St) ③Call Fun1(St) ④Call Fun2(st(6)) A．①② B．①③ C．②③ D．②④ 【答案】A 18. 假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是（ ）。 A． Cir 3,8 B． Call Cir x, y C． Call Cir 2*x, y D． Call Cir (3,8, y) 【答案】A 19. 以下关于过程的叙述中，错误的是（ ）。 A． 函数过程的返回值可以有多个。 B． 事件过程是由某个事件触发而执行的过程。 C． 不能在事件过程中定义通用过程。 D． 可以在事件过程中调用过程。 【答案】A 20.以下是一个能返回数组a中最大数的函数过程代码： Function maxval(a() As Integer) As Integer Dim max% max = 1 For i = 2 To 10 If a(i) > a(max) Then max = k Next i maxval = max End Function 程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（ ）。 A． 语句“max = 1”应改为“max = a(1)” B． 语句“For i = 2 To 10”应改为“For i = 1 To 10” C． if语句“max = k”应改为“max = a(k)” D． 语句“maxval = max ”应改为“maxval = a(max)” 【答案】D 21.已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为（ ）。 Private Function Sum( a,b,c) Sum=a+b+c End Function A. 1 B. 2 C. 3 D. 6 【答案】D 22.运行下列程序，输出的结果为（ ）。 Function fact(x As Integer) As Long Dim i As Integer fact = 1 For i = 1 To x fact = fact * i Next i EndFunction Private Sub Command1_Click() Dim i As Integer For i = 1 To 2 Print fact(i); Next i End Sub A. 1 1 B. 1 2 C. 2 3 D. 2 4 【答案】B 23.关于 VB 中的函数过程，以下说法正确的是（ ） A. 函数过程没有返回值 B. 函数过程必须有返回值 C. 函数过程不能有参数 D. 函数过程只能在本模块中调用 【答案】B 24.以下（ ）语句用于从函数过程中返回值。 A. Exit Function B. Return C. 函数名 = 值 D. GoBack 【答案】C 25.已知一窗体中有如下子过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print_Number，则程序运行中第三次单击Command1时，输出结果为（ ）。 Private Sub Print_number( ) Static x x = x + 10 Print x End Sub A. 0 B. 10 C. 20 D. 30 【答案】D 二、填空题（本大题共10小题，每题2分，共20分） 1.在 VB 中，过程定义中有两种传递形式的参数：一种是_______，称为传值调用；另一种是_______，称为传址调用。 【答案】传值参数 传址参数 2.调用函数 Max(3,5) 并把结果存入变量 x，应写 ________。 【答案】x = Max(3, 5) 3.调用过程后若立即退出当前过程，应使用 ________。 【答案】Exit Sub 或 Exit Function 4.若要在窗体模块外调用窗体级 Private 过程，必须将该过程声明改为 ________。 【答案】public 5.若函数无返回值，应使用 ________ 关键字而不用 Function。 【答案】Sub 6.不使用 Call 关键字，函数返回值应赋给 ________。 【答案】变量 7.若函数声明为 Public，则可在 ________ 范围内被调用。 【答案】项目 8.当函数形参为数组时，默认传递方式是 ________。 【答案】ByRef 9.子程序使用 ________ 关键字定义，函数使用 ________ 关键字定义。 【答案】Sub Function 10.子程序 ________（有/无）返回值，函数 ________（有/无）返回值。 【答案】无 有 三、程序填空题（本大题共3小题，每题10分，共30分） 1.下列程序实现的功能是：求32和6的最大公约数。完成下列程序填空。 Public Function f(h As Integer, i As Integer) Do While ___(1)_______ Do While h > i h = h - i Loop Do While i > h i = i - h Loop Loop _____(2)_________ End Function Private Sub Command1_Click() Print f(32, 6) End Sub 【答案】 （1）h < > i （2）f = h 2.下面的程序是把给定的十六进制正整数转换为十进制数。 提示：一个十六进制正整数转换为十进制数的方法是直接用下面的幂级数展开运算而得。 (an an-1…a1)16=an×16n-1+an-1×16n-2+…+a1×160 下面的程序是把给定的十六进制正整数转换为十进制数。 提示：一个十六进制正整数转换为十进制数的方法是直接用下面的幂级数展开运算而得。 (an an-1…a1)16=an×16n-1+an-1×16n-2+…+a1×160 Option Explicit Private Sub Form_Click() Dim St As String, Dem As Long St = InputBox("输入一个十六进制数") Dem = Convert(St) Print St; "=>"; Dem End Sub Private Function Convert(S As String) As Long Dim N As Integer, I As Integer, Substring As String * 1 Dim P As Long, K As Long, Asc1 As Integer N = Len(S) P = 16 ^ N For I = 1 To N P = P / 16 Substring = ___(1)______ Select Case Substring Case "0" To "9" K = K + P * Val(Substring) Case Else Asc1 = Asc(Substring) - Asc("A") + 10 K = K + P * Asc1 End Select Next I _____(2)_________ End Function 【答案】 (1) Mid(s,i,1) (2) Convert =k 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第16卷，是知识点训练卷，按考纲中的《Visual Basic程序设计》的第8章 过程的范围与要求编写。具体内容如下： 事件过程 子过程 过程间参数的传递 过程的嵌套与递归 常用算法实例 2026版内蒙古对口招生《计算机类考纲百套卷》 第16卷 《Visual Basic 程序设计》 过程（1） 知识点训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 使用过程编写程序主要是为了（ ）。 A．使程序模块化 B．使程序易于阅读 C．提高程序运行速度 D．便于系统的编译 2. 过程调用语句中，被调用的过程一定是Sub过程的语句是（ ）。 A．Call Pro1(a1, b1) B．Pro2(a2, b2) C．Print Pro3(a3, b3) D．x=Pro4(a4, b4) 3.已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为（ ）。 Private Function Sum( a,b,c) Sum=a+b+c End Function A. 1 B. 2 C. 3 D. 6 4. 已知一窗体中有如下函数过程和一命令按钮Command1，则单击Command1时，输出结果为（ ）。 Public Function Fn(n) If n = 0 Then Fn = 1 Else Fn = Fn(n - 1) * n End Function Private Sub Command1_Click() Print Fn(6) End Sub A. 0 B. 1 C. 720 D. 6 5. 以下关于Function过程的说法中，错误的是（ ）。 A．Function过程名可以有一个或多个返回值 B．在Function过程内部不得再定义Function过程 C．Function过程中可以包含多个Exit Function语句 D．可以像调用Sub过程一样调用Function过程 6. 运行以下程序，显示的结果为（ ）。 Public Sub F1(n%, ByVal m%) n = n Mod 10 m = m \ 10 End Sub Private Sub Command1_Click() Dim x%, y% x = 34: y = 12 Call F1(x, y) Print x, y End Sub A. 2 34 B. 34 12 C. 4 1 D. 4 12 7.在 VB 中，使用 （ ）关键字声明过程不返回值。 A. Function B. Sub C. Procedure D. Method 8. 下列有关过程的说法中，错误的是（ ） A.在 Sub或Function 过程内部不能再定义其它Sub或Function 过程 B.对于使用ByRef说明的形参，在过程调用时形参和实参只能按传址方式结合 C.递归过程既可以是递归 Function 过程，也可以是递归 Sub 过程 D.可以像调用 Sub 过程一样使用 Call 语句调用 Function 过程 9. 要想在过程调用后返回两个结果，下面过程定义语句中语法正确的是（ ）。 A． Sub swap(By Val m，By Val n) B． Sub swap(m, By Val n) C． Sub swap(m, n) D． Sub swap(By Val m, n) 10. 在过程调用中，参数的传递可以分为按值传递和（ ）两种方式。 A． 按参数传递 B． 按数值传递 C． 按地址传递 D． 按位置传递 11.程序如下： Private Sub Form_Click() Dim a As Integer, b As Integer a = 10 : b = 20 Call ff(a,b) Print a,b End Sub Private Sub ff(x As Integer, y As Integer) x = x + y y = x + y End Sub 程序运行时，单击窗体后，在窗体上输出的结果是（ ）。 A．10 20 B．20 20 C．30 30 D．30 50 12.在函数过程中的任意位置要退出当前函数过程，应用（ ）命令。 A. End Function B. Exit C. Exit Function D. Exit Sub 13. 以下有关过程的说法中，错误的是（ ）。 A．在Sub或Function过程中不能再定义其他Sub或Function过程 B．在调用过程时，与使用ByRef说明的形参对应的实参只能按地址传递方式结合 C．递归过程既可以是递归Function过程，也可以是递归Sub过程 D．在调用过程时，形参为数组的参数对应的实参只能是数组 14.假设已通过下列Sub语句声明了Proc1过程。若要调用该过程，可以采用（ ）语句。 Sub Proc1(x As Integer) A．s=Proc1(3) B．Proc1 32765 C．Print Proc1(100) D．Call Proc1(40000) 15. 下面定义Sub子过程的各个语句中，正确的语句是（ ）。 ① Private Sub Sub1(A( ) As String) ② Private Sub Sub1(A(1 To 10 ) As String*8) ③ Private Sub Sub1(S As String) ④ Private Sub Sub1(S As String*8) A．①②③④ B．①②③ C．①③④ D．①③ 16.下列定义Sub过程的语句中，正确的是（ ）。 A．Private Sub Sub1(A()) B．Private Sub Sub1(A As String*5) C．Private Sub Sub1(ByVal A() As Integer) D．Private Sub Sub1(A(10)As Integer) 17.程序中有两个过程Private Sub Fun1(S As String)和Private Sub Fun2(a() As String* 6)，在调用过程中用Dim St(6) As String*6定义了一个字符串数组。下面调用语句中正确的是 （ ）。 ①Call Fun1(St(3)) ②Call Fun2(St) ③Call Fun1(St) ④Call Fun2(st(6)) A．①② B．①③ C．②③ D．②④ 18. 假定已定义一个过程Public Sub Cir(a As Single, b As Single),则正确的调用语句是（ ）。 A． Cir 3,8 B． Call Cir x, y C． Call Cir 2*x, y D． Call Cir (3,8, y) 19. 以下关于过程的叙述中，错误的是（ ）。 A． 函数过程的返回值可以有多个。 B． 事件过程是由某个事件触发而执行的过程。 C． 不能在事件过程中定义通用过程。 D． 可以在事件过程中调用过程。 20.以下是一个能返回数组a中最大数的函数过程代码： Function maxval(a() As Integer) As Integer Dim max% max = 1 For i = 2 To 10 If a(i) > a(max) Then max = k Next i maxval = max End Function 程序运行时，发现函数过程的返回值是错的需要修改，下面的修改方案中正确的是（ ）。 A． 语句“max = 1”应改为“max = a(1)” B． 语句“For i = 2 To 10”应改为“For i = 1 To 10” C． if语句“max = k”应改为“max = a(k)” D． 语句“maxval = max ”应改为“maxval = a(max)” 21.已知一窗体中有如下函数过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print Sum(1,2,3)，则单击Command1时，输出结果为（ ）。 Private Function Sum( a,b,c) Sum=a+b+c End Function A. 1 B. 2 C. 3 D. 6 22.运行下列程序，输出的结果为（ ）。 Function fact(x As Integer) As Long Dim i As Integer fact = 1 For i = 1 To x fact = fact * i Next i EndFunction Private Sub Command1_Click() Dim i As Integer For i = 1 To 2 Print fact(i); Next i End Sub A. 1 1 B. 1 2 C. 2 3 D. 2 4 23.关于 VB 中的函数过程，以下说法正确的是（ ） A. 函数过程没有返回值 B. 函数过程必须有返回值 C. 函数过程不能有参数 D. 函数过程只能在本模块中调用 24.以下（ ）语句用于从函数过程中返回值。 A. Exit Function B. Return C. 函数名 = 值 D. GoBack 25.已知一窗体中有如下子过程和一命令按钮Command1，且Command1的Click事件中只有一行命令：Print_Number，则程序运行中第三次单击Command1时，输出结果为（ ）。 Private Sub Print_number( ) Static x x = x + 10 Print x End Sub A. 0 B. 10 C. 20 D. 30 二、填空题（本大题共10小题，每题2分，共20分） 1.在 VB 中，过程定义中有两种传递形式的参数：一种是_______，称为传值调用；另一种是_______，称为传址调用。 2.调用函数 Max(3,5) 并把结果存入变量 x，应写 ________。 3.调用过程后若立即退出当前过程，应使用 ________。 4.若要在窗体模块外调用窗体级 Private 过程，必须将该过程声明改为 ________。 5.若函数无返回值，应使用 ________ 关键字而不用 Function。 6.不使用 Call 关键字，函数返回值应赋给 ________。 7.若函数声明为 Public，则可在 ________ 范围内被调用。 8.当函数形参为数组时，默认传递方式是 ________。 9.子程序使用 ________ 关键字定义，函数使用 ________ 关键字定义。 10.子程序 ________（有/无）返回值，函数 ________（有/无）返回值。 三、程序填空题（本大题共3小题，每题10分，共30分） 1.下列程序实现的功能是：求32和6的最大公约数。完成下列程序填空。 Public Function f(h As Integer, i As Integer) Do While ___(1)_______ Do While h > i h = h - i Loop Do While i > h i = i - h Loop Loop _____(2)_________ End Function Private Sub Command1_Click() Print f(32, 6) End Sub 2.下面的程序是把给定的十六进制正整数转换为十进制数。 提示：一个十六进制正整数转换为十进制数的方法是直接用下面的幂级数展开运算而得。 (an an-1…a1)16=an×16n-1+an-1×16n-2+…+a1×160 下面的程序是把给定的十六进制正整数转换为十进制数。 提示：一个十六进制正整数转换为十进制数的方法是直接用下面的幂级数展开运算而得。 (an an-1…a1)16=an×16n-1+an-1×16n-2+…+a1×160 Option Explicit Private Sub Form_Click() Dim St As String, Dem As Long St = InputBox("输入一个十六进制数") Dem = Convert(St) Print St; "=>"; Dem End Sub Private Function Convert(S As String) As Long Dim N As Integer, I As Integer, Substring As String * 1 Dim P As Long, K As Long, Asc1 As Integer N = Len(S) P = 16 ^ N For I = 1 To N P = P / 16 Substring = ___(1)______ Select Case Substring Case "0" To "9" K = K + P * Val(Substring) Case Else Asc1 = Asc(Substring) - Asc("A") + 10 K = K + P * Asc1 End Select Next I _____(2)_________ End Function 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$