2025年VB语言应用试题及答案

2025年VB语言应用试题及答案一、单项选择题（每小题2分，共20分）1.以下关于VB变量声明的描述中，正确的是（）。A.使用Dim声明的变量默认作用域为模块级B.在过程内部用Static声明的变量仅在该过程调用期间保留值C.全局变量必须在标准模块的声明部分用Public声明D.变体类型（Variant）变量不能存储日期型数据2.执行以下代码后，变量a的值是（）。```vbDimaAsIntegera=123Mod73+5\2```A.4B.5C.6D.73.若要求循环体至少执行一次，应使用的循环结构是（）。A.For...NextB.DoWhile...LoopC.Do...LoopWhileD.While...Wend4.定义数组`Dimarr(3,2To5)AsInteger`，则该数组的元素个数为（）。A.12B.16C.20D.245.以下关于过程的描述中，错误的是（）。A.函数过程（Function）可以返回多个值B.子过程（Sub）不能通过参数返回值C.过程的参数传递方式包括按值传递（ByVal）和按地址传递（ByRef）D.递归过程需要设置终止条件以避免栈溢出6.要将文本文件D:\data.txt以输入模式打开，正确的语句是（）。A.Open"D:\data.txt"ForInputAs1B.Open"D:\data.txt"ForOutputAs1C.Open"D:\data.txt"ForAppendAs1D.Open"D:\data.txt"ForRandomAs17.执行以下代码后，立即窗口输出的结果是（）。```vbDimxAsInteger,yAsIntegerx=10:y=20CallSwap(x,y)Debug.Printx&","&ySubSwap(aAsInteger,bAsInteger)DimtempAsIntegertemp=a:a=b:b=tempEndSub```A.10,20B.20,10C.0,0D.运行时错误8.在VB中连接Access数据库时，若使用ADO对象，正确的连接字符串是（）。A."Provider=SQLOLEDB;DataSource=test.accdb"B."Provider=Microsoft.ACE.OLEDB.12.0;DataSource=test.accdb"C."Driver={MicrosoftAccessDriver(.mdb)};DBQ=test.accdb"D."Server=test.accdb;Database=test;Trusted_Connection=Yes"9.以下关于菜单设计的描述中，正确的是（）。A.菜单控件的Visible属性为False时，菜单会被禁用但仍显示B.可以通过设置菜单控件的Checked属性添加复选标记C.弹出式菜单只能通过MenuEdit控件创建D.菜单的Name属性用于设置显示的文本内容10.执行以下代码后，变量s的值是（）。```vbDimsAsString,iAsIntegers="VBProgramming"Fori=1ToLen(s)Step2s=s&Mid(s,i,1)Nexti```A."VBProgrammingVBPrgamn"B."VBProgrammingVPrormn"C."VBProgrammingVBPrormn"D."VBProgrammingVPrgamn"二、填空题（每空2分，共20分）1.若要声明一个枚举类型`ColorType`，包含Red、Green、Blue三个成员，声明语句为：__________。2.执行`MsgBox"欢迎使用VB！",vbOKCancel+vbInformation,"提示"`后，消息框的按钮组合是__________。3.读取顺序文件时，若要逐行读取数据，应使用__________语句。4.若要将动态数组`arr`的大小重新定义为5个元素且保留原有数据，应使用__________语句。5.在VB中，定时器（Timer）控件的__________属性用于设置触发事件的时间间隔（单位：毫秒）。6.数据库查询中，使用参数化SQL语句可以防止__________攻击。7.当文本框（TextBox）的__________属性设置为True时，输入的文本会显示为密码字符（如）。8.若要在图片框（PictureBox）中显示图片文件D:\logo.jpg，应设置其__________属性为该文件路径。9.事件处理过程的一般格式为：__________事件名(参数列表)。10.执行`a="123":b=456:c=a+b`后，变量c的值为__________（填写数据类型及值）。三、程序改错题（共20分，每处错误4分）以下代码的功能是从文本文件D:\scores.txt中读取学提供绩（每行一个整数），计算平均分并输出到立即窗口。请找出并修正其中的5处错误。```vbPrivateSubCommand1_Click()DimscoreAsInteger,totalAsInteger,countAsIntegerDimavgAsSingleOpen"D:\scores.txt"ForOutputAs1'错误1total=0:count=0DoUntilEOF(1)Input1,score'错误2total=total+scorecount=count+1LoopClose1Ifcount=0ThenDebug.Print"无数据"Elseavg=total/countDebug.Print"平均分："&avgEndIfEndSub```四、编程题（共40分）1.（15分）设计一个VB程序，实现以下功能：在文本框Text1中输入一个正整数n（n≤100），点击命令按钮Command1后，在列表框List1中输出1到n之间所有能被3整除但不能被5整除的数。要求：输入时进行有效性检查（非数字、n>100时提示错误）；使用For循环结构实现；结果按每行5个数的格式显示。2.（25分）设计一个学生信息管理系统的VB模块，要求：连接Access数据库（数据库路径：D:\student.accdb，表名：Students，字段：学号（文本型）、姓名（文本型）、成绩（数值型））；实现“查询”功能：在文本框Text2中输入学号，点击Command2后，在标签Label1中显示对应学生的姓名和成绩（若不存在则提示“无此学生”）；实现“修改”功能：在文本框Text3（姓名）、Text4（成绩）中输入新信息，点击Command3后，更新对应学号学生的信息（要求使用参数化查询，处理可能的异常）；使用ADO对象实现数据库操作。答案一、单项选择题1.C2.B3.C4.A5.B6.A7.B8.B9.B10.D二、填空题1.`EnumColorType:Red:Green:Blue:EndEnum`2.确定（OK）和取消（Cancel）3.LineInput4.ReDimPreservearr(4)5.Interval6.SQL注入7.PasswordChar8.Picture9.对象名_10.变体类型（Variant），值为"123456"三、程序改错题错误1：文件打开模式错误，应使用Input模式读取文件。修正：`Open"D:\scores.txt"ForInputAs1`错误2：未使用FreeFile获取可用文件号，可能导致文件号冲突。修正：`DimfileNoAsInteger:fileNo=FreeFile:Open"D:\scores.txt"ForInputAsfileNo`（后续EOF、Input、Close语句中的文件号均改为fileNo）错误3：Do循环的终止条件错误，EOF函数在文件指针到达末尾时返回True，应使用`DoWhileNotEOF(fileNo)`。修正：`DoWhileNotEOF(fileNo)`错误4：变量count未初始化（虽然代码中已赋值0，但实际编程中需注意作用域）。（注：原题中count初始化为0，此处可能为冗余错误，实际错误应为文件号未使用FreeFile）错误5：文件关闭语句未使用正确的文件号（若修正了错误2）。修正：`ClosefileNo`四、编程题1.参考代码：```vbPrivateSubCommand1_Click()DimnAsInteger,iAsInteger,cntAsIntegerList1.Clear'清空列表框'有效性检查IfNotIsNumeric(Text1.Text)ThenMsgBox"请输入有效数字！",vbExclamationText1.SetFocusExitSubEndIfn=Val(Text1.Text)Ifn<=0Orn>100ThenMsgBox"n应在1到100之间！",vbExclamationText1.SetFocusExitSubEndIf'遍历并输出符合条件的数cnt=0Fori=1TonIfiMod3=0AndiMod5<>0Thencnt=cnt+1List1.AddItemi&IIf(cntMod5=0,vbCrLf,"")'每行5个数EndIfNextiEndSub```2.参考代码（需在工程中引用MicrosoftActiveXDataObjects库）：```vbDimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetPrivateSubForm_Load()'初始化数据库连接conn.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;DataSource=D:\student.accdb;PersistSecurityInfo=False"conn.OpenEndSubPrivateSubCommand2_Click()'查询功能DimstunoAsStringstuno=Text2.TextIfstuno=""ThenMsgBox"请输入学号！",vbExclamationExitSubEndIf'执行查询rs.Open"SELECT姓名,成绩FROMStudentsWHERE学号='"&stuno&"'",conn,adOpenStatic,adLockReadOnlyIfrs.EOFThenLabel1.Caption="无此学生"ElseLabel1.Caption="姓名："&rs("姓名")&"，成绩："&rs("成绩")EndIfrs.CloseEndSubPrivateSubCommand3_Click()'修改功能DimstunoAsString,snameAsString,scoreAsDoublestuno=Text2.Text'假设学号在Text2中输入sname=Text3.TextIfNotIsNumeric(Text4.Text)ThenMsgBox"成绩应为数字！",vbExclamationExitSubEndIfscore=Val(Text4.Text)'参数化查询防止SQL注入DimcmdAsNewADODB.Commandcmd.ActiveConnection=conncmd.Com