《Visual Basic 程序设计》常考题训练卷 2026版内蒙古计算机类 考纲百套卷 第71卷

编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第71卷，是常考题训练卷，按考纲中的《Visual Basic 程序设计》的第1章~第10章的范围与要求编写。 2026版内蒙古对口招生《计算机类考纲百套卷》 第71卷 《Visual Basic 程序设计》 常考题训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 下面不是VB工作模式的是（ ） A．设计模式 B．运行模式 C．汇编模式 D．中断模式 2. 以下能够触发文本框Change事件的操作是（ ） A．文本框失去焦点 B．文本框获得焦点 C．设置文本框的焦点 D．改变文本框的内容 3.Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（ ） A．属性、事件、事件过程 B．控件、窗体、事件 C．属性、过程、方法 D．属性、事件、方法 4. 以下是合法的变量的是（ ） A．right B．abc@123 C．123_abc D．ab123c 5. 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（ ） A．Left B．Mid C．String D．Instr 6. 读下面程序段，判断变量Str2的取值是（ ） Dim Str1, Str2 as String Str1="University" Str2=STRING$(3,Str1) A．Uni B．UUU C．ity D．yyy 7.在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（ ） A．Val B．Len C．Str D．Log 8. 当程序运行时，在窗体上单击鼠标，以下（ ）事件是窗体不会接收到。 A．MouseDown B．MouseUp C．Load D．Click 9. 对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（ ） A．chkBoy.Checked = true B．chkBoy.Value = true C．chkBoy.Selected = true D．chkBoy.Value = 1 10. 滚动条控件的属性中，表示取值范围最大值的属性是（ ） A．Max B．LargeChange C．Min D．Value 11. 表达式Str(Len("1234"))+Str(5.9)的值为（ ）。 A.45.9　　B.4 5.9　　C.12345.9　　D.1234 5.9 12.语句Print 5/4*6\5 Mod 2的输出结果是（ ）。 A.0　　B.1　　C.2　　D.3 13. 在Visual Basic中，使用Public Const语句声明一个全局的符号常量，该语句应该放在（ ） A. 过程中 B.窗体模块的通用声明段 C.标准模块的通用声明段 D.窗体模块或标准模块的通用声明段 14.在Visual Basic中，关于控件数组的叙述，正确的是（ ） A． 控件数组中所有控件的名称相同，但其Index属性值各不相同 B． 控件数组中所有控件的名称相同，但其Value属性值各不相同 C． 控件数组中每个元素都是独立的控件，因此都有各自的事件过程 D． 以上说法都正确 15. 在Visual Basic中，下列文件打开方式中只能进行读不能写的是（ ） A．Input B．Output C．Random D．Append 16.在Visual Basic中，Int(50* Rnd(1)-5)产生的随机整数的闭区间是（ ） A．[-5,50] B．[-5,44] C．[5,44] D．[5,50] 17.在Visual Basic中，关于过程的描述错误的是（ ） A．各窗体通用的过程一般在标准模块中用Private定义 B．如果过程被定义为Static类型，则过程中定义的局部变量都是Static C．如果过程被定义为Public类型，则该过程可以在程序的任何地方被调用 D.一个Sub过程必须用End Sub语句结束 18. 在Visual Basic中，单击窗体，下列程序的运行结果为（ ） Private Sub Form_Click() Dim N As Integer, J As Integer N = 0 J = 1 Do Until N > 2 N = N + 1 J = J + N * (N + 1) Loop Print N; J End Sub A．0 1 B．3 7 C．3 13 D．3 21 19. 在Visual Basic中,下列声明变量的选项中（ ）是正确的。 A．Private s1 $*5 B．Dim s1 as integer=234 C．Static s1 As String D．Dim s1 as String *5 ; s2 20. 在Visual Basic中，下列说法不正确的是（ ） A．使用ReDim语句可以改变数组的维数 B．使用ReDim语句可以改变数组的类型 C．使用ReDim语句可以改变数组的每一维的大小 D．ReDim语句可以使原数组中的内容被清除 21.在Visual Basic中，有如下代码： Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer, s As Integer s = 0 For i = LBound(a, 1) To UBound(a, 1) For j = LBound(a, 2) To UBound(a, 2) a(i, j) = (i - 1) * 3 + j If i >= j Then s = s + a(i, j) End If Next j Next i Print s End Sub 运行程序时，单击命令按钮，窗体上的输出结果为（ ） A.15 B．19 C．26 D．34 22.下列关于函数说明正确的是（ ）。 A．定义函数过程时，若没有用As子句说明函数的类型，则函数过程与Sub过程一样，都是无类型过程 B．在函数体中，如果没有给函数名赋值，则该函数过程没有返回值 C．函数名在过程中只能被赋值一次 D．函数过程是通过函数名返回函数值的 23.下列程序 Dim b Private Sub Command1_Click() a=1：b=1 Print "A=";a;",B=";b Call mult(a) Print"A=";a;",B=";b End Sub Private Sub mult(x) x=2*x b=3*b End Sub 运行后的输出结果为（ ）。 A．A=1 B=1 B．A=1 B=1 C．A=1 B=1 D．A=1 B=l A=1 B=1 A=2 B=3 A=1 B=3 A=2 B=l 24.在Visual Basic中，决定单选按钮是否被选中的是（ ） A．Checked B．Visible C．Style D．Value 25.在Visual Basic中，下列程序的运行结果为（ ） Private Sub Command1_Click() A = 0 K = 1 Do While K < 4 X = K ^ K ^ A K = K + 1 Print X; Loop End Sub A．1 1 1 B．1 4 9 C．1 4 27 D．1 4 27 二、填空题（本大题共10小题，每题2分，共20分） 1. Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 2.设置是否可以用Tab键来选取命令按钮，应该用______________属性。 3.一般可以使用__________关键字声明常量。 4.在Visual Basic中声明静态变量的关键字是_________________。 5.自字符串N1位开始向右取N2个字符，要使用_________________函数。 6.向列表框控件添加新项目的方法是__________。 7.keydown与keypress事件各有其参数，若需获得用户按下 "a" 还是 "A" 需用____________事件。 8.文件按存取方式及其组成结构可分为________________文件、__________文件和______________文件。 9.VB程序设计中三种基本结构分是：_______结构、选择结构和_______结构。 10.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为______。 三、程序填空题（本大题共2小题，每题15分，共30分） 1.下列程序的功能：将一个正整数分解为质因数乘积。例如，78=2×3×13。 Option Explicit Private Sub Command1_Click() Dim n As Integer, k As Integer n = InputBox("输入正整数n= ") _______(1)___________ Print n; "= "; Do While n >= k If n Mod k = 0 Then If n = k Then Print k Else Print k; "*"; End If _______(2)___________ Else k = k + 1 End If Loop End Sub 2.下列程序功能：从键盘上输入一个正整数，找出大于或等于该数的第一个素数。 Private Sub Command1_Click() Dim i As Integer, x As Integer, y As Integer, flag As Boolean flag = False x = InputBox("请输入一个正整数", "输入正整数") y = x Do While Not flag i = 2 flag = True _______(1)___________ If x Mod i = 0 Then flag = False Else i = i + 1 End If Loop If _______(2)___________Then x = x + 1 Loop Print x End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第71卷，是常考题训练卷，按考纲中的《Visual Basic 程序设计》的第1章~第10章的范围与要求编写。 2026版内蒙古对口招生《计算机类考纲百套卷》 第71卷 《Visual Basic 程序设计》 常考题训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 下面不是VB工作模式的是（ ） A．设计模式 B．运行模式 C．汇编模式 D．中断模式 【答案】C 2. 以下能够触发文本框Change事件的操作是（ ） A．文本框失去焦点 B．文本框获得焦点 C．设置文本框的焦点 D．改变文本框的内容 【答案】D 3.Visual Basic继承了Basic语言简单易用的语法特点，同时支持面向对象的编程机制，其中构成其控件（对象）的三要素是（ ） A．属性、事件、事件过程 B．控件、窗体、事件 C．属性、过程、方法 D．属性、事件、方法 【答案】D 4. 以下是合法的变量的是（ ） A．right B．abc@123 C．123_abc D．ab123c 【答案】D 5. 从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是（ ） A．Left B．Mid C．String D．Instr 【答案】D 6. 读下面程序段，判断变量Str2的取值是（ ） Dim Str1, Str2 as String Str1="University" Str2=STRING$(3,Str1) A．Uni B．UUU C．ity D．yyy 【答案】B 7.在程序中，使用InputBox函数可以接受用户的输入，如果要把它的返回值转换为数值型的数据，应该使用的函数是（ ） A．Val B．Len C．Str D．Log 【答案】A 8. 当程序运行时，在窗体上单击鼠标，以下（ ）事件是窗体不会接收到。 A．MouseDown B．MouseUp C．Load D．Click 【答案】C 9. 对于复选框控件chkBoy，如果在程序中设置它为选中状态，下面语句正确的是（ ） A．chkBoy.Checked = true B．chkBoy.Value = true C．chkBoy.Selected = true D．chkBoy.Value = 1 【答案】D 10. 滚动条控件的属性中，表示取值范围最大值的属性是（ ） A．Max B．LargeChange C．Min D．Value 【答案】A 11. 表达式Str(Len("1234"))+Str(5.9)的值为（ ）。 A.45.9　　B.4 5.9　　C.12345.9　　D.1234 5.9 【答案】B 12.语句Print 5/4*6\5 Mod 2的输出结果是（ ）。 A.0　　B.1　　C.2　　D.3 【答案】B 13. 在Visual Basic中，使用Public Const语句声明一个全局的符号常量，该语句应该放在（ ） A. 过程中 B.窗体模块的通用声明段 C.标准模块的通用声明段 D.窗体模块或标准模块的通用声明段 【答案】C 14.在Visual Basic中，关于控件数组的叙述，正确的是（ ） A． 控件数组中所有控件的名称相同，但其Index属性值各不相同 B． 控件数组中所有控件的名称相同，但其Value属性值各不相同 C． 控件数组中每个元素都是独立的控件，因此都有各自的事件过程 D． 以上说法都正确 【答案】A 15. 在Visual Basic中，下列文件打开方式中只能进行读不能写的是（ ） A．Input B．Output C．Random D．Append 【答案】A 16.在Visual Basic中，Int(50* Rnd(1)-5)产生的随机整数的闭区间是（ ） A．[-5,50] B．[-5,44] C．[5,44] D．[5,50] 【答案】B 17.在Visual Basic中，关于过程的描述错误的是（ ） A．各窗体通用的过程一般在标准模块中用Private定义 B．如果过程被定义为Static类型，则过程中定义的局部变量都是Static C．如果过程被定义为Public类型，则该过程可以在程序的任何地方被调用 D.一个Sub过程必须用End Sub语句结束 【答案】A 18. 在Visual Basic中，单击窗体，下列程序的运行结果为（ ） Private Sub Form_Click() Dim N As Integer, J As Integer N = 0 J = 1 Do Until N > 2 N = N + 1 J = J + N * (N + 1) Loop Print N; J End Sub A．0 1 B．3 7 C．3 13 D．3 21 【答案】D 19. 在Visual Basic中,下列声明变量的选项中（ ）是正确的。 A．Private s1 $*5 B．Dim s1 as integer=234 C．Static s1 As String D．Dim s1 as String *5 ; s2 【答案】C 20. 在Visual Basic中，下列说法不正确的是（ ） A．使用ReDim语句可以改变数组的维数 B．使用ReDim语句可以改变数组的类型 C．使用ReDim语句可以改变数组的每一维的大小 D．ReDim语句可以使原数组中的内容被清除 【答案】B 21.在Visual Basic中，有如下代码： Option Base 1 Private Sub Command1_Click() Dim a(3, 3) As Integer Dim i As Integer, j As Integer, s As Integer s = 0 For i = LBound(a, 1) To UBound(a, 1) For j = LBound(a, 2) To UBound(a, 2) a(i, j) = (i - 1) * 3 + j If i >= j Then s = s + a(i, j) End If Next j Next i Print s End Sub 运行程序时，单击命令按钮，窗体上的输出结果为（ ） A.15 B．19 C．26 D．34 【答案】D 22.下列关于函数说明正确的是（ ）。 A．定义函数过程时，若没有用As子句说明函数的类型，则函数过程与Sub过程一样，都是无类型过程 B．在函数体中，如果没有给函数名赋值，则该函数过程没有返回值 C．函数名在过程中只能被赋值一次 D．函数过程是通过函数名返回函数值的 【答案】D 23.下列程序 Dim b Private Sub Command1_Click() a=1：b=1 Print "A=";a;",B=";b Call mult(a) Print"A=";a;",B=";b End Sub Private Sub mult(x) x=2*x b=3*b End Sub 运行后的输出结果为（ ）。 A．A=1 B=1 B．A=1 B=1 C．A=1 B=1 D．A=1 B=l A=1 B=1 A=2 B=3 A=1 B=3 A=2 B=l 【答案】B 24.在Visual Basic中，决定单选按钮是否被选中的是（ ） A．Checked B．Visible C．Style D．Value 【答案】D 25.在Visual Basic中，下列程序的运行结果为（ ） Private Sub Command1_Click() A = 0 K = 1 Do While K < 4 X = K ^ K ^ A K = K + 1 Print X; Loop End Sub A．1 1 1 B．1 4 9 C．1 4 27 D．1 4 27 【答案】A 二、填空题（本大题共10小题，每题2分，共20分） 1. Visual Basic是一种面向__________的可视化程序设计语言，采取了__________的编程机制。 【答案】对象、事件驱动 2.设置是否可以用Tab键来选取命令按钮，应该用______________属性。 【答案】Tabstop 3.一般可以使用__________关键字声明常量。 【答案】Const 4.在Visual Basic中声明静态变量的关键字是_________________。 【答案】static 5.自字符串N1位开始向右取N2个字符，要使用_________________函数。 【答案】Mid( ) 6.向列表框控件添加新项目的方法是__________。 【答案】AddItem 7.keydown与keypress事件各有其参数，若需获得用户按下 "a" 还是 "A" 需用____________事件。 【答案】keypress 8.文件按存取方式及其组成结构可分为________________文件、__________文件和______________文件。 【答案】顺序、随机、二进制 9.VB程序设计中三种基本结构分是：_______结构、选择结构和_______结构。 【答案】顺序 循环 10.如果要将某个菜单项设计为分隔线，则该菜单项的标题应设置为______。 【答案】- 三、程序填空题（本大题共2小题，每题15分，共30分） 1.下列程序的功能：将一个正整数分解为质因数乘积。例如，78=2×3×13。 Option Explicit Private Sub Command1_Click() Dim n As Integer, k As Integer n = InputBox("输入正整数n= ") _______(1)___________ Print n; "= "; Do While n >= k If n Mod k = 0 Then If n = k Then Print k Else Print k; "*"; End If _______(2)___________ Else k = k + 1 End If Loop End Sub 【答案】 (1) k = 2 (2)n = n \ k 2.下列程序功能：从键盘上输入一个正整数，找出大于或等于该数的第一个素数。 Private Sub Command1_Click() Dim i As Integer, x As Integer, y As Integer, flag As Boolean flag = False x = InputBox("请输入一个正整数", "输入正整数") y = x Do While Not flag i = 2 flag = True _______(1)___________ If x Mod i = 0 Then flag = False Else i = i + 1 End If Loop If _______(2)___________Then x = x + 1 Loop Print x End Sub 【答案】 （1） Do While flag And i <= x / 2 （2）Not flag 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$