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

编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第72卷，是常考题训练卷，按考纲中的《Visual Basic 程序设计》的第1章~第10章的范围与要求编写。 2026版内蒙古对口招生《计算机类考纲百套卷》 第72卷 《Visual Basic 程序设计》 常考题训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 可视化编程的最大优点是（ ） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 2. 应用程序设计完成后，应将程序保存，保存的过程是（ ） A．只保存窗体文件即可 B．只保存工程文件即可 C．先保存工程文件，之后保存窗体文件 D．先保存窗体文件（或标准模块文件），之后还要保存工程文件 3.若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（ ）属性 A．BACKCOLOR B．BORDERSTYLE C．FORECOLOR D．BACKSTYLE 4. 决定标签（Label）显示的属性是（ ） A．Text B．Name C．Caption D．Alignment 5. 下列说法错误的是（ ） A．在同一模块不同过程中的变量可以同名 B．不同模块中定义的全局变量不可以同名 C．引用另一模块中的全局变量时，必须在变量名前加模块名 D．同一模块中不同级的变量可以同名 6. 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（ ） A．4 B．5 C．6 D．7 7.窗体Form1的Name属性是Frm1，它的单击事件过程名是（ ） A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click 8. 下列关于设置控件属性的叙述正确的是（ ） A．用户必须设置属性值 B．所有的属性值都可以由用户随意设定 C．属性值不必一一重新设置 D．不同控件的属性项都完全一样 9. 要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应（ ） A．设置窗体的VISIBLE属性 B．设置窗体的CAPTION C．调用窗体的SHOW方法 D．设置窗体ENABLED属性 10. 计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（ ） A．Interval B．SmallChange C．LargeChange D．Max 11.程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面（ ）选项用于表示拖动事件。 A．DragDrop B．MouseDown C．MouseUp D．MouseMove 12.表达式2*3^2+2*8/4+3 ^2的值为（ ）。 A.64　　B.31　　C.49　　D.22 13. 在Visual Basic中，对于语句Dim a,b as String *10，下列说法正确的是（ ） A.a和b都被定义为定长字符串变量 B.a被定义为变长字符串变量，b被定义为定长字符串变量 C.a被定义为定长字符串变量，b被定义为变长字符串变量 D.a被定义为变体变量 14.在Visual Basic中，有如下代码： Private Sub Command1_Click() Dim A As String, B As String A = "abcd" Call p(A, B) Print B End Sub Private Sub p(ByVal s1 As String, s2 As String) Dim m As String i = Len(s1) Do While i >= 1 m = m + Mid(s1, i, 1) i = i - 1 Loop s2 = m End Sub 程序运行时，单击命令按钮，输出结果为（ ） A．abcd B．dabc C．dcba D．abdc 15. 在Visual Basic中，若要将一个窗体从内存中清除，应使用的语句是（ ） A．Unload B．show C．Load D．Hide 16.在Visual Basic中，声明一个动态数组，下列语句正确的是（ ） A．Dim a(n) as Integer B．Dim a( ) as Integer C.Dim a( , ) as Integer D.Dim a(1 to n) 17.在Visual Basic中，下列数组定义的语句中，错误的是（ ） A．Dim a(10)as Integer B．Dim a(0 to 5,1 to 3)as Integer C．Dime a(3,5)as Integer D．Dim a(3,1 to 4)as Integer 18. 在Visual Basic中，删除列表框中的一个列表项，应使用的列表框方法是（ ） A．Move B．Remove C．RemoveItem D．Clear 19. 在Visual Basic中，设A、B、C是三角形的三条边，则下列选项中能正确表示”任意 两边之和大于第三边”的布尔表达式是（ ） A．A+B>C OR A+C>B OR B+C>A B．A+B<C OR A+C<B OR B+C<A C．NOT(A+B<=C OR A+C<=B OR B+C<=A) D．A+B>=C AND A+C>=B AND B+C>=A 20. 在Visual Basic中，设程序中定义了如下过程： Private Sub proc(ch As String) Print ch End Sub 下面的调用语句错误的是（ ） A．Call proc"OK" B．Call proc ("") C．Call proc ("OK") D． proc"OK" 21.在Visual Basic中,要判断数值型变量x是否能够被2整除，错误的条件表达式是（ ） A．X MOD 2=0 B．INT(x/2)=x/2 C．INT(x/2)=x MOD 2 D．x MOD 2 <>1 22.在Visual Basic中，关于变量的说法，下列错误的是（ ） A．变量名长度不能超过255个字符 B．变量名的第一个字符可以是字母或数字 C．变量名只能由字母、数字和下划线组成 D．变量名不能使用保留字 23.在Visual Basic中，用Select Case语句选择|x|<=10情况的语句为：Case( ) A．NOT(-10 TO 10) B．-10 TO 10 C．ABS(X)>10 D．IS<-10 OR >10 24.在Visual Basic中，执行Print "a=18 mod 4"语句后，输出结果为（ ） A．2 B．4 C．6 D．a=18 mod 4 25.以下叙述中，错误的是（ ）。 A.通用对话框的大小是可以调节的，并且有“最大化”按钮 B.调用通用对话框控件的ShowColor方法，可以打开颜色对话框 C. 在同一个程序中，用不同的方法打开的通用对话框具有不同的作用 D. 使用通用对话框控件的ShowOpen方法打开对话框后，可以通过FileName属性获得通用对话框中指定文件的路径 二、填空题（本大题共10小题，每题2分，共20分） 1. 在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 2.一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 3.______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。 4.表达式10 Mod 6 \ 4的值为______。 5.在VB中，最主要的两种对象是____________和____________。 6.列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中____属性存放了列表框中所有项目的值。 7.控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。 8.表达式：Mid("SHANGHAI",6,3)的值是______。 9.顺序文件与随机文件相比较，占用内存资源较小的文件是______文件。 10.将数据从内存写入随机文件，写入语句的格式是______[#]文件号，[记录号]，自定义变量名。 三、程序填空题（本大题共2小题，每题15分，共30分） 1.从键盘上输入10个无序数，去掉一个最大数和最小数，然后求其平均值。程序运行如下所示。 Option Explicit Private Sub Form_Click() Dim ave As Single, max As Integer, i As Integer, j As Integer Dim min As Integer, Sum As Integer, S As String S = InputBox("求平均值", "输入10个数第1个数") i = Val(S) max = i: min = i _______(1)___________ For j = 2 To 10 S = InputBox("求平均值", "输入10个数第" & Str(j) & "个数") _______(2)___________ Sum = Sum + i If i < min Then min = i Else If max < i Then max = i End If End If Next j Sum = Sum - max - min ave = Sum / 8 MsgBox "平均值= " + Str(ave), , "去掉最大数和最小数后" End Sub 2.程序的功能是：产生10个个位数互不相同的三位随机正整数，并存放到下标与其个位数相同的数组元素中。例如，395应存到a(5)中。 Option Explicit Private Sub Form_Click() Dim a(9) As Integer, X As Integer, k As Integer, i As Integer Randomize Do While i <= 9 X = Int(Rnd * 900 + 100) _______(1)___________ If a(k) = 0 Then _______(2)___________ i = i + 1 End If Loop Print For i = 0 To 9 Print a(i); Next i End Sub 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$ 编写说明：2026版内蒙古对口招生《计算机类考纲百套卷》依据《内蒙古自治区高等职业院校对口招收中等职业学校毕业生计算机类专业课综合考试指导纲要》编写。本套试卷共100份，分为三个部分，第一部分是根据考试大纲的各考点范围与要求，编写的70份知识点训练卷，第二部分是针对每门课程的重点内容，编写的20份常考题训练卷，第三个部分是参考近几年内蒙古考试真题，编写了10份专业综合训练卷。 本试卷是2026版内蒙古对口招生《计算机类考纲百套卷》的第72卷，是常考题训练卷，按考纲中的《Visual Basic 程序设计》的第1章~第10章的范围与要求编写。 2026版内蒙古对口招生《计算机类考纲百套卷》 第72卷 《Visual Basic 程序设计》 常考题训练卷 考试时间60分钟 满分100分 班级 姓名 学号 成绩 一、单项选择题（本大题共25小题，每题2分，共50分） 1. 可视化编程的最大优点是（ ） A．具有标准工具箱 B．一个工程文件由若干个窗体文件组成 C．不需要编写大量代码来描述图形对象 D．所见即所得 【答案】C 2. 应用程序设计完成后，应将程序保存，保存的过程是（ ） A．只保存窗体文件即可 B．只保存工程文件即可 C．先保存工程文件，之后保存窗体文件 D．先保存窗体文件（或标准模块文件），之后还要保存工程文件 【答案】D 3.若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（ ）属性 A．BACKCOLOR B．BORDERSTYLE C．FORECOLOR D．BACKSTYLE 【答案】D 4. 决定标签（Label）显示的属性是（ ） A．Text B．Name C．Caption D．Alignment 【答案】C 5. 下列说法错误的是（ ） A．在同一模块不同过程中的变量可以同名 B．不同模块中定义的全局变量不可以同名 C．引用另一模块中的全局变量时，必须在变量名前加模块名 D．同一模块中不同级的变量可以同名 【答案】B 6. 表达式4+5 \ 6 * 7 / 8 Mod 9 的值是（ ） A．4 B．5 C．6 D．7 【答案】B 7.窗体Form1的Name属性是Frm1，它的单击事件过程名是（ ） A．Form1_Click B．Form_Click C．Frm1_Click D．Me_Click 【答案】B 8. 下列关于设置控件属性的叙述正确的是（ ） A．用户必须设置属性值 B．所有的属性值都可以由用户随意设定 C．属性值不必一一重新设置 D．不同控件的属性项都完全一样 【答案】C 9. 要在FORM_LOAD事件过程中使用PRINT方法在窗体上输出一定的内容，应（ ） A．设置窗体的VISIBLE属性 B．设置窗体的CAPTION C．调用窗体的SHOW方法 D．设置窗体ENABLED属性 【答案】C 10. 计时器（Timer）控件用于每隔一段时间自动触发一次Timer事件，可以有规律地重复执行一段程序，它用于设置两次事件时间间隔的属性是（ ） A．Interval B．SmallChange C．LargeChange D．Max 【答案】A 11.程序中如果需要检测和控制鼠标的位置和状态的改变，就需要使用鼠标事件，其中下面（ ）选项用于表示拖动事件。 A．DragDrop B．MouseDown C．MouseUp D．MouseMove 【答案】C 12.表达式2*3^2+2*8/4+3 ^2的值为（ ）。 A.64　　B.31　　C.49　　D.22 【答案】B 13. 在Visual Basic中，对于语句Dim a,b as String *10，下列说法正确的是（ ） A.a和b都被定义为定长字符串变量 B.a被定义为变长字符串变量，b被定义为定长字符串变量 C.a被定义为定长字符串变量，b被定义为变长字符串变量 D.a被定义为变体变量 【答案】D 14.在Visual Basic中，有如下代码： Private Sub Command1_Click() Dim A As String, B As String A = "abcd" Call p(A, B) Print B End Sub Private Sub p(ByVal s1 As String, s2 As String) Dim m As String i = Len(s1) Do While i >= 1 m = m + Mid(s1, i, 1) i = i - 1 Loop s2 = m End Sub 程序运行时，单击命令按钮，输出结果为（ ） A．abcd B．dabc C．dcba D．abdc 【答案】C 15. 在Visual Basic中，若要将一个窗体从内存中清除，应使用的语句是（ ） A．Unload B．show C．Load D．Hide 【答案】A 16.在Visual Basic中，声明一个动态数组，下列语句正确的是（ ） A．Dim a(n) as Integer B．Dim a( ) as Integer C.Dim a( , ) as Integer D.Dim a(1 to n) 【答案】B 17.在Visual Basic中，下列数组定义的语句中，错误的是（ ） A．Dim a(10)as Integer B．Dim a(0 to 5,1 to 3)as Integer C．Dime a(3,5)as Integer D．Dim a(3,1 to 4)as Integer 【答案】C 18. 在Visual Basic中，删除列表框中的一个列表项，应使用的列表框方法是（ ） A．Move B．Remove C．RemoveItem D．Clear 【答案】C 19. 在Visual Basic中，设A、B、C是三角形的三条边，则下列选项中能正确表示”任意 两边之和大于第三边”的布尔表达式是（ ） A．A+B>C OR A+C>B OR B+C>A B．A+B<C OR A+C<B OR B+C<A C．NOT(A+B<=C OR A+C<=B OR B+C<=A) D．A+B>=C AND A+C>=B AND B+C>=A 【答案】C 20. 在Visual Basic中，设程序中定义了如下过程： Private Sub proc(ch As String) Print ch End Sub 下面的调用语句错误的是（ ） A．Call proc"OK" B．Call proc ("") C．Call proc ("OK") D． proc"OK" 【答案】A 21.在Visual Basic中,要判断数值型变量x是否能够被2整除，错误的条件表达式是（ ） A．X MOD 2=0 B．INT(x/2)=x/2 C．INT(x/2)=x MOD 2 D．x MOD 2 <>1 【答案】C 22.在Visual Basic中，关于变量的说法，下列错误的是（ ） A．变量名长度不能超过255个字符 B．变量名的第一个字符可以是字母或数字 C．变量名只能由字母、数字和下划线组成 D．变量名不能使用保留字 【答案】B 23.在Visual Basic中，用Select Case语句选择|x|<=10情况的语句为：Case( ) A．NOT(-10 TO 10) B．-10 TO 10 C．ABS(X)>10 D．IS<-10 OR >10 【答案】B 24.在Visual Basic中，执行Print "a=18 mod 4"语句后，输出结果为（ ） A．2 B．4 C．6 D．a=18 mod 4 【答案】D 25.以下叙述中，错误的是（ ）。 A.通用对话框的大小是可以调节的，并且有“最大化”按钮 B.调用通用对话框控件的ShowColor方法，可以打开颜色对话框 C. 在同一个程序中，用不同的方法打开的通用对话框具有不同的作用 D. 使用通用对话框控件的ShowOpen方法打开对话框后，可以通过FileName属性获得通用对话框中指定文件的路径 【答案】A 二、填空题（本大题共10小题，每题2分，共20分） 1. 在VB中工程文件的扩展名是____________，窗体文件的扩展名是____________，标准模块文件的扩展名是____________。 【答案】vbp、frm、bas 2.一个控件在窗体的位置由_______和________属性决定，其大小由__________和_________属性决定。 【答案】Left、top、height、width 3.______类型也称变体类型，是一种通用的、可变的数据类型，它可表示或存储任何一种数据类型。 【答案】Variant 4.表达式10 Mod 6 \ 4的值为______。 【答案】0 5.在VB中，最主要的两种对象是____________和____________。 【答案】窗体 控件 6.列表框（ListBox）用于列出可供选择的项目的列表，用户可以选择一个或多个项目。它具有几个非常重要的数组属性，其中____属性存放了列表框中所有项目的值。 【答案】list 7.控件________组合了文本框和列表框的功能，是VB中一种功能非常强大的选择类控件。 【答案】组合框 8.表达式：Mid("SHANGHAI",6,3)的值是______。 【答案】HAI 9.顺序文件与随机文件相比较，占用内存资源较小的文件是______文件。 【答案】随机 10.将数据从内存写入随机文件，写入语句的格式是______[#]文件号，[记录号]，自定义变量名。 【答案】PUT 三、程序填空题（本大题共2小题，每题15分，共30分） 1.从键盘上输入10个无序数，去掉一个最大数和最小数，然后求其平均值。程序运行如下所示。 Option Explicit Private Sub Form_Click() Dim ave As Single, max As Integer, i As Integer, j As Integer Dim min As Integer, Sum As Integer, S As String S = InputBox("求平均值", "输入10个数第1个数") i = Val(S) max = i: min = i _______(1)___________ For j = 2 To 10 S = InputBox("求平均值", "输入10个数第" & Str(j) & "个数") _______(2)___________ Sum = Sum + i If i < min Then min = i Else If max < i Then max = i End If End If Next j Sum = Sum - max - min ave = Sum / 8 MsgBox "平均值= " + Str(ave), , "去掉最大数和最小数后" End Sub 【答案】 (1)Sum = 1 (2)i = Val(S) 2.程序的功能是：产生10个个位数互不相同的三位随机正整数，并存放到下标与其个位数相同的数组元素中。例如，395应存到a(5)中。 Option Explicit Private Sub Form_Click() Dim a(9) As Integer, X As Integer, k As Integer, i As Integer Randomize Do While i <= 9 X = Int(Rnd * 900 + 100) _______(1)___________ If a(k) = 0 Then _______(2)___________ i = i + 1 End If Loop Print For i = 0 To 9 Print a(i); Next i End Sub 【答案】 （1） k = X Mod 10 （2）a(k) = X 原创精品资源学科网独家享有版权，侵权必究！ 学科网（北京）股份有限公司 学科网（北京）股份有限公司 $$