2025年VB考试重点冲刺试题及答案

2025年VB考试重点冲刺试题及答案一、基础语法与变量操作1.指出以下VB代码中的错误并修正：```vbDimtotalAsIntegertotal="123"+456Dimname$="张三":age%=20If10>5Thenprint"条件成立"```答案：错误1：字符串"123"与数值456直接相加，需转换为数值类型。修正为`total=Val("123")+456`。错误2：`print`语句需首字母大写为`Print`（VB区分部分关键字大小写）。修正后代码：```vbDimtotalAsIntegertotal=Val("123")+456Dimname$="张三":Dimage%=20'或合并声明为Dimname$="张三",age%=20If10>5ThenPrint"条件成立"```2.写出以下代码的执行结果：```vbDimaAsDouble,bAsStringa=3.1415926b=Format(a,"0.00%")PrintLen(b);Mid(b,3,2)```答案：执行结果为`614`。解析：`Format(a,"0.00%")`将3.1415926转换为百分比格式（314.16%），字符串长度为6（"314.16%"）；`Mid(b,3,2)`从第3位开始取2个字符，即"14"。二、流程控制结构3.编写VB代码，计算1到100中所有能被3整除但不能被5整除的数的和。答案：```vbDimsumAsInteger,iAsIntegersum=0Fori=1To100IfiMod3=0AndAlsoiMod5<>0Thensum=sum+iEndIfNextiPrint"符合条件的数之和为："&sum'结果为1368（验证：3+6+9+12+…+99中排除15、30…90，计算得1368）```4.输入一个年份，判断是否为闰年（闰年条件：能被4整除但不能被100整除，或能被400整除）。要求用SelectCase语句实现。答案：```vbDimyearAsIntegeryear=InputBox("请输入年份：")SelectCaseTrueCaseyearMod400=0Printyear&"是闰年"CaseyearMod100=0Printyear&"不是闰年"CaseyearMod4=0Printyear&"是闰年"CaseElsePrintyear&"不是闰年"EndSelect```三、数组与数据结构5.声明一个5×5的二维数组，用随机函数（Rnd）提供1-100的整数填充，计算并输出主对角线（i=j）元素的平均值。答案：```vbDimarr(4,4)AsInteger,sumAsInteger,countAsInteger,iAsInteger,jAsIntegerRandomizeFori=0To4Forj=0To4arr(i,j)=Int(Rnd100)+1NextjNextisum=0:count=0Fori=0To4sum=sum+arr(i,i)count=count+1NextiPrint"主对角线平均值为："&sum/count'count固定为5，结果为sum/5```6.对一维数组a（元素为15,8,23,4,19,30）进行升序冒泡排序，写出每一轮排序后的数组状态及最终结果。答案：初始数组：[15,8,23,4,19,30]第1轮（比较5次）：8,15,4,19,23,30（交换15↔8，23↔4，23↔19）第2轮（比较4次）：8,4,15,19,23,30（交换15↔4）第3轮（比较3次）：4,8,15,19,23,30（无交换）第4轮（比较2次）：无交换，提前结束最终排序结果：[4,8,15,19,23,30]四、过程与函数7.编写一个Function过程`GCD(mAsInteger,nAsInteger)`，计算两个正整数的最大公约数（要求用辗转相除法）。答案：```vbFunctionGCD(mAsInteger,nAsInteger)AsIntegerDimtempAsIntegerWhilen<>0temp=mModnm=nn=tempEndWhileGCD=mEndFunction'示例调用：PrintGCD(24,36)输出12```8.设计一个Sub过程`Swap(ByRefxAsInteger,ByValyAsInteger)`，交换x和y的值，并说明参数传递方式的区别。答案：```vbSubSwap(ByRefxAsInteger,ByValyAsInteger)DimtempAsIntegertemp=xx=yy=temp'y为按值传递，修改不影响外部变量EndSub'参数区别：ByRef（引用传递）会同步修改外部变量值；ByVal（值传递）仅修改过程内副本，不影响外部。'示例：调用前a=5,b=10；调用Swap(a,b)后，a=10，b仍为10（因y是值传递）。```五、文件操作9.现有文本文件"scores.txt"（路径为D:\），每行存储一个学生的数学成绩（如"95","88","76"），编写代码读取所有成绩，计算平均分并写入"average.txt"（同路径）。答案：```vbDimscoreAsString,sumAsDouble,countAsInteger,avgAsDoubleOpen"D:\scores.txt"ForInputAs1sum=0:count=0WhileNotEOF(1)LineInput1,scoresum=sum+Val(score)count=count+1WendClose1Ifcount>0Thenavg=sum/countElseavg=0EndIfOpen"D:\average.txt"ForOutputAs2Print2,"平均分："&avgClose2```10.用随机文件方式存储3名学生的信息（学号：字符串，长度10；姓名：字符串，长度8；成绩：整数），编写代码写入并读取第一条记录。答案：```vbTypeStudentIDAsString10NameAsString8ScoreAsIntegerEndTypeDimsAsStudent,iAsInteger'写入Open"D:\students.dat"ForRandomAs1Len=Len(s)Fori=1To3s.ID="S"&Format(i,"000")s.Name=InputBox("输入第"&i&"名学生姓名：")s.Score=Val(InputBox("输入第"&i&"名学提供绩："))Put1,i,sNextiClose1'读取第一条记录Open"D:\students.dat"ForRandomAs1Len=Len(s)Get1,1,sPrint"学号："&s.ID&"姓名："&s.Name&"成绩："&s.ScoreClose1```六、对象与事件处理11.设计一个窗体，包含两个文本框（Text1、Text2）和一个按钮（Command1）。要求：输入两个数值后点击按钮，若数值为正整数则计算其乘积并显示在Text2；否则弹出错误提示。答案：窗体代码：```vbPrivateSubCommand1_Click()Dimnum1AsInteger,num2AsInteger,productAsIntegerIfIsNumeric(Text1.Text)AndAlsoText1.Text>0AndAlsoInt(Text1.Text)=Text1.TextThennum1=Val(Text1.Text)ElseMsgBox"请输入正整数！"Text1.SetFocusExitSubEndIfIfIsNumeric(Text2.Text)AndAlsoText2.Text>0AndAlsoInt(Text2.Text)=Text2.TextThennum2=Val(Text2.Text)ElseMsgBox"请输入正整数！"Text2.SetFocusExitSubEndIfproduct=num1num2Text2.Text=productEndSub```七、错误处理12.编写代码读取用户输入的数值并计算其平方根，要求加入错误处理（捕获非数值输入、负数输入等异常）。答案：```vbDiminputNumAsDouble,resultAsDoubleOnErrorGoToErrorHandlerinputNum=Val(InputBox("请输入一个非负数："))IfinputNum<0ThenErr.Raise5,"平方根计算","输入不能为负数"'自定义错误EndIfresult=Sqr(inputNum)Print"平方根为："&resultExitSubError