2025年VB考试核心技能试题及答案

2025年VB考试核心技能试题及答案一、单项选择题（每题2分，共20分）1.以下关于VB中变量声明的描述，正确的是（）A.使用Dim声明的变量作用域一定是过程级B.Static声明的变量在过程结束后会保留值C.Public声明的变量只能在标准模块中使用D.未声明直接使用的变量默认数据类型为Integer2.执行语句`MsgBox"计算结果："&100+200,vbOKCancel+vbInformation,"提示"`后，消息框的标题是（）A.计算结果：300B.提示C.vbOKCancel+vbInformationD.计算结果：100+2003.若要使文本框（Text1）只能输入数字字符，应在（）事件中编写验证代码A.ChangeB.KeyPressC.LostFocusD.Click4.设有数组声明`Dimarr(3To6,-2To1)AsInteger`，该数组的元素个数是（）A.12B.16C.20D.245.以下关于过程调用的描述，错误的是（）A.调用Sub过程时，参数传递方式由形参声明时的ByVal/ByRef决定B.函数过程（Function）必须通过Return语句返回值C.可以通过Call语句显式调用Sub过程D.过程的参数可以是控件对象6.要将顺序文件"score.txt"以读方式打开，正确的语句是（）A.Open"score.txt"ForInputAs1B.Open"score.txt"ForOutputAs1C.Open"score.txt"ForAppendAs1D.Open"score.txt"ForRandomAs17.在VB中，设置命令按钮（Command1）不可用的属性是（）A.EnabledB.VisibleC.DefaultD.Cancel8.执行以下代码后，变量x的值是（）`DimxAsIntegerx=1DoWhilex<5x=x2Loop`A.4B.5C.8D.169.以下关于数据库连接的描述，正确的是（）A.使用ADODB.Connection对象时，必须先引用"MicrosoftActiveXDataObjectsx.xLibrary"B.连接字符串"Provider=SQLOLEDB;DataSource=.;InitialCatalog=test;UserID=sa;Password=123"用于连接Access数据库C.Recordset对象的AddNew方法用于修改现有记录D.Execute方法只能执行查询语句10.绘制一个红色填充的圆（圆心(1000,1000)，半径500），正确的代码是（）A.`Circle(1000,1000),500,vbRed`B.`Circle(1000,1000),500,,,,vbRed`C.`FillStyle=0:Circle(1000,1000),500,vbRed`D.`FillColor=vbRed:Circle(1000,1000),500`二、填空题（每空2分，共20分）1.VB中，表达式`"123"&"45"+6`的运算结果是______。2.要使列表框（List1）显示为复选框样式，需设置其______属性为1（fmListStyleCheckBox）。3.若文本框（Text1）的PasswordChar属性设置为""，则输入"abc"时显示______。4.数组`Dima(5)AsInteger`的下界是______，上界是______。5.执行`Fori=1To10Step3`循环时，i的取值依次为______。6.顺序文件读取时，使用______语句将文件指针移动到下一条记录。7.错误处理语句中，`OnErrorResumeNext`的作用是______。8.数据库操作中，`rs.Fields("姓名").Value`等价于______（用索引方式表示）。三、编程题（共60分）1.（10分）编写程序：在窗体上添加两个文本框（Text1、Text2）和一个命令按钮（Command1），当单击按钮时，将Text1中输入的字符串逆序显示在Text2中（例如输入"abc"，显示"cba"）。要求写出完整的窗体初始化代码和按钮单击事件代码。2.（15分）设计一个过程`SubSortArray(arr()AsInteger)`，实现对整型数组的升序排序（要求使用冒泡排序算法）。3.（15分）某班级有5名学生，成绩存储在顺序文件"score.txt"中（每行一个成绩，如"85"、"92"等）。编写代码：读取所有成绩，计算平均分并显示在标签（Label1）中。要求处理文件不存在的异常。4.（20分）使用ADODB对象连接Access数据库（数据库路径："D:\test.mdb"，表名："Students"，字段："学号"（文本型）、"姓名"（文本型）、"年龄"（整型））。要求：（1）建立数据库连接；（2）查询年龄大于20岁的学生信息；（3）将查询结果显示在列表框（List1）中（格式：学号-姓名-年龄）；（4）关闭数据库连接。答案一、单项选择题1.B2.B3.B4.B（解析：行数=6-3+1=4，列数=1-(-2)+1=4，总元素=4×4=16）5.B（解析：VB中函数通过函数名返回值，非Return）6.A7.A8.C（解析：循环过程：x=1→2→4→8，此时x≥5退出）9.A10.D（解析：FillColor设置填充颜色，Circle默认绘制边框+填充）二、填空题1."123456"（解析：&为字符串连接，+为数值运算，"123"&"45"="12345"，再+6→"123456"）2.ListStyle3.4.0；5（解析：未指定下界时默认0）5.1,4,7,10（解析：步长3，1+3=4，4+3=7，7+3=10，10+3=13>10退出）6.Input7.忽略当前错误，继续执行下一条语句8.rs(0)（解析：字段索引从0开始，"学号"为0，"姓名"为1，"年龄"为2）三、编程题1.完整代码：```vb'窗体初始化（自动提供，无需额外代码）PrivateSubCommand1_Click()DimstrInputAsString,strOutputAsStringDimiAsIntegerstrInput=Text1.TextFori=Len(strInput)To1Step-1strOutput=strOutput&Mid(strInput,i,1)NextiText2.Text=strOutputEndSub```2.冒泡排序过程：```vbSubSortArray(arr()AsInteger)DimiAsInteger,jAsInteger,tempAsIntegerDimnAsIntegern=UBound(arr)'获取数组上界Fori=1Ton1Forj=0Toni1Ifarr(j)>arr(j+1)Thentemp=arr(j)arr(j)=arr(j+1)arr(j+1)=tempEndIfNextjNextiEndSub```3.成绩读取与平均分计算（含异常处理）：```vbPrivateSubCommand1_Click()DimscoreAsInteger,totalAsInteger,countAsIntegerDimavgAsSingleOnErrorGoToFileError'跳转至错误处理Open"score.txt"ForInputAs1total=0:count=0DoWhileNotEOF(1)Input1,scoretotal=total+scorecount=count+1LoopClose1Ifcount>0Thenavg=total/countLabel1.Caption="平均分："&Format(avg,"0.00")ElseLabel1.Caption="文件无数据"EndIfExitSubFileError:IfErr.Number=53Then'文件不存在错误号Label1.Caption="错误：文件不存在"ElseLabel1.Caption="错误："&Err.DescriptionEndIfClose1'确保关闭文件EndSub```4.数据库查询与显示（需引用ADODB库）：```vbPrivateSubCommand1_Click()DimconnAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimconnStrAsString'建立连接connStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=D:\test.mdb"conn.OpenconnStr'执行查询rs.Open"SELECT学号,姓名,年龄FROMStudentsWHERE年龄>20",conn,adOpenStatic,adLockRead