VB程序设计期末考试题库及详细答案

VB程序设计期末考试题库及详细答案适用范围：高校VB程序设计基础课程期末考核、随堂测试、技能考核题型说明：本次题库包含选择题、填空题、程序阅读题、程序设计题四大题型，覆盖VB基础语法、控件使用、流程控制、数组、过程函数等核心考点，答案附带详细解析，便于刷题复习与出题考核。一、单项选择题（共30题，每题2分，共60分）说明：每题只有一个正确答案，选出最优选项1.VisualBasic的编程机制是（）A.面向过程B.面向对象、事件驱动C.多线程运行D.结构化编译答案：B解析：VB是典型的面向对象编程语言，核心运行机制为事件驱动，程序执行依靠鼠标点击、键盘输入等用户事件触发对应代码。2.VB工程文件的扩展名是（）A..frmB..vbpC..basD..exe答案：B解析：.vbp为工程文件，保存整个工程配置；.frm为窗体文件，.bas为标准模块文件，.exe为编译后的可执行文件。3.窗体的标题栏文字由哪个属性决定（）A.NameB.CaptionC.TextD.Title答案：B解析：VB窗体和标签、按钮控件的标题文字均由Caption属性控制；Name属性是控件唯一标识名称，运行时不可修改；Text属性多用于文本框控件。4.下列合法的VB变量名是（）A.123aB.a_123C.a*bD.dim答案：B解析：VB变量名规则：以字母开头，由字母、数字、下划线组成，不能使用系统关键字，不能包含特殊符号。A以数字开头，C含特殊符号，D是系统关键字，均不合法。5.VB中，定义整型变量的关键字是（）A.SingleB.IntegerC.StringD.Boolean答案：B解析：Integer为整型；Single为单精度浮点型；String为字符串型；Boolean为布尔型。6.表达式5Mod2的运算结果是（）A.0B.1C.2D.2.5答案：B解析：Mod为取余运算，计算除法后的余数，5除以2商2余1，结果为1。7.表达式Int(3.8)的值是（）A.3B.4C.3.8D.0答案：A解析：Int函数为向下取整，直接舍弃小数部分，保留整数部分，3.8取整结果为3。8.VB中，赋值语句的正确格式是（）A.x+1=2B.x=2+1C.2=xD.x==3答案：B解析：VB赋值语句左侧必须为变量，右侧为表达式；A、C左侧为表达式和常量，不合法；D是C语言赋值格式，VB仅用单个等号赋值。9.下列不属于VB流程控制结构的是（）A.顺序结构B.跳转结构C.选择结构D.循环结构答案：B解析：程序三大基本结构为顺序、选择、循环结构，无跳转结构这一标准分类。10.If语句的结束关键字是（）A.EndB.EndIfC.ExitIfD.CloseIf答案：B解析：多行If条件语句必须以EndIf收尾，完成结构闭合。11.能实现循环固定次数的语句是（）A.If...ThenB.For...NextC.Do...LoopD.SelectCase答案：B解析：For循环适用于已知循环次数的场景；Do循环为条件循环，依靠条件判断终止，无固定次数。12.下列数组定义合法的是（）A.Dima(10)AsIntegerB.Dima[n]AsIntegerC.Dima()AsInteger=10D.Dim10aAsInteger答案：A解析：VB静态数组定义括号内为常量数值，B使用变量定义数组下标不合法，C动态数组赋值格式错误，D变量命名违规。13.文本框控件用来接收用户输入内容的属性是（）A.CaptionB.NameC.TextD.Value答案：C解析：文本框的Text属性存储输入和显示的文本内容，是最常用的核心属性。14.按钮控件的单击事件过程名是（）A.Command1_ClickB.Command1_DblClickC.Form_ClickD.Text1_Click答案：A解析：按钮默认单击事件为控件名_Click，DblClick为双击事件，Form_Click为窗体单击事件。15.函数Len("VB程序设计")的返回值是（）A.4B.5C.6D.8答案：C解析：Len函数统计字符串字符个数，VB中汉字、字母、数字均计为1个字符，"VB程序设计"共6个字符。16.下列逻辑运算结果为True的是（）A.3>5And2>1B.3>5Or2>1C.Not(2>1)D.3<2And5>4答案：B解析：And两边条件均为真才为真，Or只要一边为真即为真。B选项中2>1为真，整体结果为True。17.SelectCase语句的作用是（）A.多分支条件判断B.循环遍历C.变量定义D.函数调用答案：A解析：SelectCase用于处理多条件分支场景，替代多层嵌套If语句，代码更简洁。18.退出For循环的语句是（）A.ExitForB.ExitDoC.EndForD.Break答案：A解析：ExitFor强制终止当前For循环；ExitDo用于退出Do循环，VB无Break关键字。19.定义字符串变量的语句是（）A.DimsAsIntegerB.DimsAsStringC.DimsAsBooleanD.DimsAsSingle答案：B解析：String为字符串数据类型，用于存储文字、数字字符串等文本内容。20.表达式Sqr(16)的值是（）A.4B.8C.256D.16答案：A解析：Sqr为开平方函数，16的平方根为4。21.窗体加载时触发的事件是（）A.ClickB.LoadC.UnloadD.KeyPress答案：B解析：窗体启动加载时自动触发Load事件，常用于初始化变量、控件属性。22.下列属于VB常量的是（）A.xB.3.14C.a+bD.s答案：B解析：常量是固定不变的数据，数字、字符串均为常量；变量是可变化的标识符。23.运算符优先级最高的是（）A.算术运算B.逻辑运算C.关系运算D.赋值运算答案：A解析：VB运算优先级：算术运算>关系运算>逻辑运算>赋值运算。24.Do...LoopUntil语句的循环特点是（）A.先判断后执行B.先执行后判断C.不执行循环体D.无限循环答案：B解析：带Until的后置判断循环，先执行一次循环体，再判断条件，满足条件则终止循环。25.自定义函数的返回值关键字是（）A.ReturnB.FunctionC.ExitSubD.函数名赋值答案：D解析：VB自定义Function函数通过给函数名赋值返回结果，无Return关键字。26.清除文本框所有内容的语句是（）A.Text1.ClearB.Text1.Text=""C.Text1.DelD.Text1.Cls答案：B解析：给Text属性赋值空字符串可清空文本框；Cls方法用于清除窗体、图片框的输出内容。27.产生[1,100]随机整数的表达式是（）A.Int(Rnd*100)+1B.Int(Rnd*99)+1C.Rnd*100D.Int(Rnd*101)答案：A解析：Rnd生成[0,1)随机小数，Int(Rnd*100)得到0-99整数，加1后范围为1-100。28.子程序过程的定义关键字是（）A.FunctionB.SubC.DimD.Public答案：B解析：Sub定义子程序过程，无返回值；Function定义函数过程，有返回值。29.下列语句能输出内容的是（）A.PrintB.OutputC.ShowD.Display答案：A解析：Print是VB标准输出语句，可在窗体、图片框中输出文本和数值。30.结束整个程序运行的语句是（）A.EndSubB.EndIfC.EndD.ExitFor答案：C解析：单独End语句终止整个工程运行；其余选项仅结束对应代码结构，不终止程序。二、填空题（共10空，每空2分，共20分）说明：请填写完整、准确的关键字或表达式1.VB中布尔型数据的两个取值是______和______。答案：True、False2.定义一维数组a，包含10个元素（下标0-9）的语句是Dima(______)AsInteger。答案：93.循环语句中，______语句可以跳过本次循环，直接进入下一次循环。答案：Continue（VB6.0通用写法：GoTo循环起始行，标准填空答案为Continue）4.截取字符串前3个字符的函数是______。答案：Left5.双重For循环中，内层循环优先______（执行/结束）。答案：执行6.声明全局变量的关键字是______。答案：Public7.表达式10\3的结果是______。答案：3（解析：\为整除运算，舍弃小数部分）8.窗体隐藏的方法是______，窗体显示的方法是Show。答案：Hide9.判断字符串是否为空的常用判断条件是______。答案：Text1.Text=""10.自定义函数必须以______关键字结束。答案：EndFunction三、程序阅读题（共2题，每题5分，共10分）说明：阅读代码，写出程序运行输出结果题目1：PlainText

PrivateSubForm_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+i

Nexti

Prints

EndSub运行结果：15详细解析：程序实现1-5累加，1+2+3+4+5=15，循环结束后输出累加结果。题目2：PlainText

PrivateSubCommand1_Click()

DimaAsInteger,bAsInteger,tAsInteger

a=10

b=20

Ifa<bThen

t=a

a=b

b=t

EndIf

Printa,b

EndSub运行结果：2010详细解析：通过中间变量t实现a、b数值交换，最终a=20，b=10，按格式输出两个数值。四、程序设计题（共2题，每题5分，共10分）说明：根据题目要求，编写完整可运行的VB代码题目1：编写程序，输入一个整数，判断该数是否为偶数，单击按钮输出判断结果。参考答案（完整可运行代码）：PlainText

PrivateSubCommand1_Click()

DimnAsInteger

'输入整数

n=Val(InputBox("请输入一个整数"))

'判断偶数

IfnMod2=0Then

Printn&"是偶数"

Else

Printn&"不是偶数"

EndIf

EndSub代码解析：通过InputBox获取用户输入，Val函数转换为数值，利用Mod取余运算判断能否被2整除，输出对应结果。题目2：利用For循环，输出1-10之间所有的奇数。参考答案（完整可运行代码）：PlainText

PrivateSubForm_Click()

DimiAsInteger

Print"1-10的奇数为："

Fori=1To10

IfiMod2<>0