2025年VB重要知识试题及答案

2025年VB重要知识试题及答案一、单项选择题（每题2分，共20分）1.以下关于VB变量声明的描述中，正确的是（）A.使用Dim声明的变量作用域一定是过程级B.用Static声明的变量在过程结束后会保留值C.未声明的变量默认类型为IntegerD.变量名中可以包含空格和数字2.执行语句`a=3:b=5:c=a>b?a:b`后，c的值是（）A.3B.5C.TrueD.False3.对于`SelectCasex`结构，当x=7时，会执行的分支是（）Case1to5:输出"A"Case6,8:输出"B"CaseIs>7:输出"C"CaseElse:输出"D"A.AB.BC.CD.D4.声明动态数组`Dimarr()AsInteger`后，若要将其大小调整为5个元素且保留原有数据，应使用（）A.ReDimarr(4)B.ReDimPreservearr(4)C.ReDimarr(5)D.ReDimPreservearr(5)5.以下关于Sub过程和Function过程的描述，错误的是（）A.Sub过程可以通过参数返回值，Function通过返回值返回B.调用Sub过程时需使用Call语句或直接写过程名C.Function过程必须有返回值类型声明D.两者都可以使用Optional参数定义可选参数6.若要响应文本框（Text1）的内容变更事件，应编写的事件过程是（）A.Text1_Click()B.Text1_Change()C.Text1_LostFocus()D.Text1_KeyPress()7.以下异常处理语句的正确顺序是（）①OnErrorResumeNext②IfErr.Number<>0Then...③OnErrorGoTo0A.①→②→③B.②→①→③C.①→③→②D.③→①→②8.使用ADODB连接Access数据库时，正确的连接字符串是（）A."Provider=SQLOLEDB;DataSource=test.mdb"B."Provider=Microsoft.Jet.OLEDB.4.0;DataSource=test.mdb"C."Driver={MicrosoftAccessDriver(.mdb)};DBQ=test.mdb"D."Server=test.mdb;Database=test;UserID=admin"9.关于Collection集合的描述，正确的是（）A.元素必须为同一数据类型B.可以通过索引或键值访问元素C.添加元素时必须指定键值D.元素顺序不可调整10.执行`Mid("VisualBasic2025",7,5)`的结果是（）A."Basic"B."sualB"C."VBasi"D."alBas"二、填空题（每空2分，共10分）1.若要将变量num声明为双精度浮点数且初始化为3.14，应使用语句：__________。2.在Do循环中，`ExitDo`语句的作用是__________。3.定义类模块时，构造函数的名称是__________。4.打开顺序文件用于追加写入时，文件模式应指定为__________。5.执行SQL语句`UpdateStudentsSetScore=Score+5WhereClass='2025'`的功能是__________。三、程序分析题（每题8分，共24分）1.分析以下代码的输出结果：```vbDimiAsInteger,sumAsIntegersum=0Fori=1To5Step2IfiMod3=0Thensum=sum+iExitForEndIfsum=sum+iNextiPrintsum```2.阅读以下数组操作代码，说明程序执行后数组arr的各元素值：```vbDimarr(4)AsIntegerarr(0)=1Fori=1To4arr(i)=arr(i1)2+1Nexti```3.分析以下类定义及实例化代码的输出结果：```vbClassStudentPrivatesNameAsStringPublicSubSetName(nameAsString)sName=nameEndSubPublicFunctionGetName()AsStringGetName=sName&"同学"EndFunctionEndClassDimstuAsNewStudentstu.SetName("张明")Printstu.GetName()```四、编程题（共46分）1.（10分）编写程序：从键盘输入10个整数存入数组，计算并输出其中偶数的个数及平均值（保留2位小数）。2.（12分）设计一个过程`SortArray`，实现对整数数组的升序排序（要求使用冒泡排序算法）。3.（12分）编写代码：将用户输入的姓名、年龄、联系方式写入D盘“用户信息.txt”文件（要求每次运行程序时追加新数据，每行一条记录，字段用逗号分隔）。4.（12分）使用ADODB对象连接Access数据库（数据库路径：D:\School.mdb，表名：Students，字段：ID（文本）、Name（文本）、Score（数值）），查询Score>85的学生信息并在列表框（List1）中显示（格式：ID-Name-Score）。--答案一、单项选择题1.B2.A3.D4.B5.C6.B7.A8.B9.B10.A二、填空题1.DimnumAsDouble=3.142.立即退出当前所在的Do循环3.Class_Initialize4.Append5.将2025班级学生的分数全部加5三、程序分析题1.输出结果：1+3=4（解析：循环i=1时，1Mod3≠0，sum=1；i=3时，3Mod3=0，sum=1+3=4，执行ExitFor退出循环）2.数组元素值依次为：1,3,7,15,31（解析：arr(1)=12+1=3；arr(2)=32+1=7；arr(3)=72+1=15；arr(4)=152+1=31）3.输出结果：张明同学（解析：SetName方法设置sName为“张明”，GetName方法返回拼接后的字符串）四、编程题1.参考代码：```vbDimnums(9)AsIntegerDimevenCountAsInteger,evenSumAsDoubleFori=0To9nums(i)=Val(InputBox("请输入第"&i+1&"个整数："))Ifnums(i)Mod2=0ThenevenCount=evenCount+1evenSum=evenSum+nums(i)EndIfNextiDimavgAsDoubleIfevenCount>0Thenavg=evenSum/evenCountPrint"偶数个数："&evenCount&"，平均值："&Format(avg,"0.00")ElsePrint"无偶数"EndIf```2.参考代码：```vbSubSortArray(arr()AsInteger)DimiAsInteger,jAsInteger,tempAsIntegerDimnAsInteger=UBound(arr)Fori=0Ton1Forj=0Toni1Ifarr(j)>arr(j+1)Thentemp=arr(j)arr(j)=arr(j+1)arr(j+1)=tempEndIfNextjNextiEndSub```3.参考代码：```vbDimnameAsString,ageAsString,contactAsStringname=InputBox("请输入姓名：")age=InputBox("请输入年龄：")contact=InputBox("请输入联系方式：")DimfilePathAsString="D:\用户信息.txt"OpenfilePathForAppendAs1Print1,name&","&age&","&contactClose1MsgBox("数据已保存")```4.参考代码：```vbDimconnAsNewADODB.ConnectionDimrsAsNewADODB.Recordsetconn.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\School.mdb"conn.Openrs.Open"SelectID,Name,ScoreFromStudentsWhe