2025年VB考试练习重点试题及答案

2025年VB考试练习重点试题及答案一、变量与数据类型综合应用题1.某班级进行体能测试，需统计学生身高（单位：cm）。要求定义合适变量存储以下数据：张三（178.5）、李四（182）、王五（169.3）、赵六（175）。需满足：①使用变体类型存储姓名；②身高变量需能精确到小数点后一位；③所有变量作用域为当前过程。写出变量声明代码，并说明若尝试将"178.5"字符串直接赋值给身高变量会引发何种错误，如何修正？答案：变量声明代码：DimstrNameAsVariantDimdblHeightAsDouble'具体赋值示例（非必须，但需体现作用域）strName="张三"dblHeight=178.5若直接将"178.5"字符串赋值给dblHeight变量，会引发“类型不匹配”错误（错误号13）。修正方法：使用类型转换函数CDbl("178.5")，或先判断字符串是否为数值（IsNumeric函数）后再转换，例如：IfIsNumeric("178.5")ThendblHeight=CDbl("178.5")EndIf二、控制结构综合设计题2.编写程序计算1到1000中满足以下条件的数的总和：①能被3整除但不能被5整除；②或能被7整除但不能被11整除。要求使用DoWhile循环结构，输出结果时用MsgBox显示总和，并在代码中添加注释说明关键步骤。答案：DimintNumAsIntegerDimintSumAsIntegerintNum=1intSum=0DoWhileintNum<=1000'判断条件1：能被3整除且不能被5整除IfintNumMod3=0AndintNumMod5<>0ThenintSum=intSum+intNum'判断条件2：能被7整除且不能被11整除ElseIfintNumMod7=0AndintNumMod11<>0ThenintSum=intSum+intNumEndIfintNum=intNum+1LoopMsgBox"符合条件的数总和为："&intSum三、数组与集合操作题3.某公司季度考核得分如下（单位：分）：[85,92,78,88,95,72,89,91,83,79]。要求：①将数组声明为动态数组并赋值；②计算平均分（保留2位小数）；③找出最高分与最低分的位置（索引值）；④使用ArrayList集合筛选出得分≥85分的元素，按降序排列后输出。答案：'①动态数组声明与赋值DimarrScores()AsIntegerarrScores=Array(85,92,78,88,95,72,89,91,83,79)'②计算平均分DimdblAvgAsDoubleDimintTotalAsIntegerFori=LBound(arrScores)ToUBound(arrScores)intTotal=intTotal+arrScores(i)NextdblAvg=Round(intTotal/UBound(arrScores),2)'③找最高/最低分位置DimintMaxAsInteger,intMinAsIntegerDimintMaxIndexAsInteger,intMinIndexAsIntegerintMax=arrScores(0)intMin=arrScores(0)Fori=0ToUBound(arrScores)IfarrScores(i)>intMaxThenintMax=arrScores(i)intMaxIndex=iEndIfIfarrScores(i)<intMinThenintMin=arrScores(i)intMinIndex=iEndIfNext'④ArrayList筛选与排序DimalHighScoresAsNewArrayListForEachscoreInarrScoresIfscore>=85ThenalHighScores.Add(score)EndIfNext'降序排序（需自定义比较逻辑）alHighScores.Sort(NewReverseComparer())'输出示例（实际可通过循环遍历alHighScores）'注：ReverseComparer类需自行定义，实现IComparer接口的Compare方法，交换比较顺序四、过程与函数设计题4.设计一个名为Calculate的函数，功能为计算两个数的四则运算结果（加、减、乘、除）。要求：①参数为两个数值型变量和一个运算符（字符串类型，取值"+"、"-"、""、"/"）；②除法运算时若除数为0，返回Null；③使用SelectCase结构处理不同运算；④在主程序中调用该函数计算（15,4,"+"）、（20,5,"/"）、（8,0,"/"）的结果，并输出。答案：FunctionCalculate(num1AsDouble,num2AsDouble,opAsString)AsVariantSelectCaseopCase"+"Calculate=num1+num2Case"-"Calculate=num1num2Case""Calculate=num1num2Case"/"Ifnum2=0ThenCalculate=NullElseCalculate=num1/num2EndIfCaseElseCalculate=Null'无效运算符返回NullEndSelectEndFunction'主程序调用Dimresult1,result2,result3AsVariantresult1=Calculate(15,4,"+")'结果19result2=Calculate(20,5,"/")'结果4result3=Calculate(8,0,"/")'结果Null'输出示例（实际可通过Debug.Print或MsgBox）五、文件操作综合题5.某实验室需记录每日温度数据（格式：日期,温度；例如"2024-10-01,22.5"）。要求编写程序：①从D盘"temp_data.txt"文件中读取所有记录；②统计温度≥25℃的天数；③将统计结果（包含日期范围和天数）写入D盘"high_temp_report.txt"文件。需处理文件不存在的情况（提示"源文件不存在"），使用顺序文件读写方式。答案：DimstrLineAsStringDimintCountAsIntegerDimstrFirstDateAsString,strLastDateAsStringDimblnFileExistsAsBoolean'检查文件是否存在IfDir("D:\temp_data.txt")=""ThenMsgBox"源文件不存在"ExitSubEndIf'读取文件并统计Open"D:\temp_data.txt"ForInputAs1DoWhileNotEOF(1)LineInput1,strLineIfstrLine<>""ThenDimarrData()AsStringarrData=Split(strLine,",")'验证数据格式（日期和温度）IfUBound(arrData)=1AndIsDate(arrData(0))AndIsNumeric(arrData(1))ThenDimdblTempAsDoubledblTemp=CDbl(arrData(1))IfdblTemp>=25ThenintCount=intCount+1EndIf'记录第一个和最后一个日期IfstrFirstDate=""ThenstrFirstDate=arrData(0)EndIfstrLastDate=arrData(0)EndIfEndIfLoopClose1'写入统计报告Open"D:\high_temp_report.txt"ForOutputAs2Print2,"温度统计报告（"&strFirstDate&"至"&strLastDate&"）"Print2,"温度≥25℃的天数："&intCount&"天"Close2六、对象与类设计题6.设计一个名为"Student"的类，要求包含以下功能：①私有字段：姓名（strName）、学号（strID）、成绩（dblScore）；②公共属性：姓名（可读可写）、学号（只读）、成绩（可读可写，设置时若成绩<0或>100则提示错误）；③公共方法：GetGrade()，根据成绩返回等级（≥90为"A"，80-89为"B"，70-79为"C"，60-69为"D"，<60为"E"）；④在主程序中创建类实例，设置姓名"李华"、学号"S001"、成绩88，调用GetGrade()方法并输出结果。答案：'Student类模块代码Privatem_strNameAsStringPrivatem_strIDAsStringPrivatem_dblScoreAsDouble'姓名属性（可读可写）PublicPropertyGetName()AsStringName=m_strNameEndPropertyPublicPropertyLetName(valueAsString)m_strName=valueEndProperty'学号属性（只读）PublicPropertyGetID()AsStringID=m_strIDEndProperty'学号仅在初始化时设置（可通过构造函数或方法）PublicSubSetID(valueAsString)Ifm_strID=""Then'确保学号仅设置一次m_strID=valueEndIfEndSub'成绩属性（带验证）PublicPropertyGetScore()AsDoubleScore=m_dblScoreEndPropertyPublicPropertyLetScore(valueAsDouble)Ifvalue<0Orvalue>100ThenMsgBox"成绩必须在0-100之间"ExitPropertyEndIfm_dblScore=valueEndProperty'GetGrade方法PublicFunctionGetGrade()AsStringSelectCasem_dblScoreCaseIs>=90GetGrade="A"Case80To89GetGrade="B"Case70To79GetGrade="C"Case60To69GetGrade="D"CaseElseGetGrade="E"EndSelectEndFunction'主程序调用DimstuAsNewStudentstu.Name="李华"stu.SetID("S001")stu.Score=88MsgBox"学生"&stu.Name&"（学号："&stu.ID&"）的等级为："&stu.GetGrade()七、图形处理与事件过程题7.在VB窗体中添加一个PictureBox控件（名称picDraw）和一个命令按钮（名称cmdDraw）。要求：当点击cmdDraw时，在picDraw中绘制：①半径为500的红色实心圆（圆心坐标(1500,1000)）；②从(500,500)到(2500,1500)的蓝色虚线（线宽2）；③在圆下方输出文字"图形测试"（字体大小12，居中显示）。答案：'窗体代码PrivateSubcmdDraw_Click()WithpicDraw'设置绘图单位为缇（默认）.ScaleMode=vbTwips'绘制红色实心圆.FillStyle=vbFSSolid.FillColor=vbRed.Circle(1500,1000),500,vbRed'第三个参数为边框颜色，实心由FillStyle决定'绘制蓝色虚线（线宽2）.DrawWidth=2.ForeColor=vbBlue.DashStyle=vbDash'虚线样式.Line(500,500)-(2500,1500)'输出文字（居中显示）.Font.Size=12.CurrentX=1500.TextWidth("图形测试")/2'计算居中X坐标.CurrentY=1000+500+200'圆下方（半径500，加200间距）.Print"图形测试"EndWithEndSub八、错误处理与调试题8.以下代码存在多处错误，请指出错误类型并修正：Dimarr(5)AsIntegerarr=Array(1,2,3,4,5)Fori=0To5Ifarr(i)>3ThenMsgBoxarr(i)EndIfNexti答案：错误1：动态数组与固定数组混淆。原声明Dimarr(5)AsInteger为固定长度数组（索引0-5，共6个元素），而Array函数返回的是变体类型数组，无法直接赋值给固定数组。修正：声明为动态数组并重新定义大小，或使用变体数组。正确声明：Dimarr()AsInteger或DimarrAsVariant错误2：数组索引越界。若使用arr()AsInteger，执行arr=Array(1,2,3,4,5)后，数组实际长度为5（索引0-4），循环i到5会访问arr(5)导致越界。修正：循环应到UBound(arr)。修正后代码：Dimarr()AsIntegerarr=Array(1,2,3,4,5)'注意：Array返回的是变体数组，需转换类型'或直接赋值（更安全）：'arr=NewInteger(){1,2,3,4,5}'若必须使用Array，需逐个转换（因Array返回变体）：ReDimarr(4)AsIntegerFori=0To4arr(i)=CInt(Array(1,2,3,4,5)(i))NextFori=0ToUBound(arr)Ifarr(i)>3ThenMsgBoxarr(i)EndIfNexti九、综合编程题（选做）9.设计一个简易图书管理系统，实现以下功能：①通过文本框输入书名、作者、价格；②点击"添加"按钮将数据保存到D盘"books.dat"二进制文件（每条记录包含书名（20字节）、作者（15字节）、价格（双精度））；③点击"查询"按钮，输入书名后显示对应书籍的作者和价格（若不存在则提示）。要求处理文件读写错误（如磁盘空间不足），使用错误处理语句。答案：'窗体控件：txtTitle（书名）、txtAuthor（作者）、txtPrice（价格）、cmdAdd（添加）、cmdQuery（查询）'定义记录类型TypeBookTitleAsString20'固定长度字符串AuthorAsString15PriceAsDoubleEndTypePrivateSubcmdAdd_Click()OnErrorGoToErrorHandlerDimbkAsBookDimstrTitleAsString,strAuthorAsStringDimdblPriceAsDouble'输入验证IftxtTitle.Text=""OrtxtAuthor.Text=""OrNotIsNumeric(txtPrice.Text)ThenMsgBox"请输入完整有效信息"ExitSubEndIf'填充记录（截断或补空格以符合固定长度）strTitle=Left(txtTitle.Text&Space(20),20)strAuthor=Left(txtAuthor.Text&Space(15),15)dblPrice=CDbl(txtPrice.Text)bk.Title=strTitlebk.Author