2025年中学信息技术vb试题及答案

2025年中学信息技术vb试题及答案一、单项选择题（每小题2分，共20分）1.以下VB变量声明正确的是（）A.Dim123numAsIntegerB.Dimname$AsStringC.Dimscore(10)AsSingleD.DimisRight:Boolean2.执行语句a=3:b=5:c=a>bAnd10Mod3>1后，c的值为（）A.TrueB.FalseC.1D.03.要使文本框（Text1）只能输入数字，应设置的属性是（）A.Text1.MaxLength=10B.Text1.PasswordChar=""C.Text1.Enabled=FalseD.Text1.KeyPress事件中限制输入字符4.已知列表框List1中有5个项目，执行List1.RemoveItem2后，列表框剩余项目数为（）A.4B.3C.5D.25.运行以下程序段，输出结果是（）DimiAsInteger,sAsIntegers=0Fori=1To5Step2s=s+iNextiPrintsA.9B.6C.15D.106.若要将图片框Picture1中的内容清空，应使用的语句是（）A.Picture1.Picture=LoadPicture("")B.Picture1.ClsC.Picture1.Visible=FalseD.Picture1.BackColor=vbWhite7.以下能正确提供10到50之间（含10和50）随机整数的表达式是（）A.Int(Rnd40)+10B.Int(Rnd41)+10C.Int(Rnd50)+10D.Int(Rnd51)18.分析以下过程，调用sum(3)的返回值是（）Functionsum(nAsInteger)AsIntegerIfn=1Thensum=1Elsesum=n+sum(n1)EndIfEndFunctionA.6B.3C.1D.109.执行语句a="2025":b="信息技术":c=a&b后，c的值是（）A."2025信息技术"B.2025信息技术C."2025"+"信息技术"D.错误（类型不匹配）10.以下关于文件操作的描述，错误的是（）A.用Open"data.txt"ForInputAs1可打开文件用于读取B.写入文件时，Print语句会自动添加换行符C.文件号可以是1到511之间的整数D.关闭文件时必须按打开顺序关闭二、填空题（每空2分，共20分）1.表达式3^2+10\32的结果是______。2.若Text1.Text="abc"，Text2.Text="123"，则Text1.Text&Text2.Text的结果是______。3.要使命令按钮Command1的标题显示为“提交”，应设置其______属性为“提交”。4.数组a定义为Dima(3,4)AsInteger，则该数组共有______个元素。5.执行以下代码后，Label1.Caption的值是______。DimxAsIntegerx=15IfxMod3=0ThenLabel1.Caption="能被3整除"ElseIfxMod5=0ThenLabel1.Caption="能被5整除"ElseLabel1.Caption="都不能"EndIf6.以下循环执行的次数是______次。i=1DoWhilei<=5i=i+2Loop7.自定义函数fun的功能是计算两个数的平方和，补全代码：Functionfun(aAsInteger,bAsInteger)AsIntegerfun=______EndFunction8.要将列表框List1中选中的项目删除，应使用的语句是______。9.执行Open"d:\score.txt"ForAppendAs1后，向文件中写入数据时，新数据会添加到文件的______。10.以下程序段用于交换变量a和b的值，补全代码：t=aa=b______三、程序分析题（每小题10分，共30分）1.分析以下程序，写出运行后窗体上的输出结果。PrivateSubForm_Click()DimiAsInteger,jAsInteger,sAsIntegers=0Fori=1To3Forj=1Tois=s+jNextjNextiPrint"s=";sEndSub2.阅读以下代码，说明其功能。PrivateSubCommand1_Click()Dimarr(1To5)AsIntegerDimiAsInteger,maxAsIntegerFori=1To5arr(i)=Val(InputBox("输入第"&i&"个数："))Nextimax=arr(1)Fori=2To5Ifarr(i)>maxThenmax=arr(i)EndIfNextiMsgBox"最大值是："&maxEndSub3.以下代码用于计算斐波那契数列前10项（第1项为1，第2项为1），补全缺失的代码，并写出前5项的数值。PrivateSubCommand1_Click()Dimf(1To10)AsLongDimiAsIntegerf(1)=1f(2)=1Fori=3To10f(i)=______NextiFori=1To10Printf(i);NextiEndSub四、编程题（共30分）1.（12分）设计一个VB程序，实现以下功能：在文本框Text1中输入若干个学生的数学成绩（以逗号分隔），点击“计算”按钮Command1后，在文本框Text2中显示平均分（保留2位小数）。要求：（1）输入验证：若输入为空或包含非数字字符，弹出提示框“输入格式错误”；（2）平均分计算使用函数过程实现。2.（18分）某班级需要统计运动会报名情况，数据存储在d盘的“报名.txt”文件中，每行格式为“姓名,项目,班级”（如“李明,100米,3班”）。设计程序实现以下功能：（1）点击“读取数据”按钮Command1，将文件中的数据读取到列表框List1中（每行显示一条记录）；（2）点击“统计班级”按钮Command2，在文本框Text1中显示“3班”的报名人数；（3）点击“保存筛选”按钮Command3，将项目为“100米”的记录写入d盘的“100米报名.txt”文件。答案一、单项选择题1.C2.B3.D4.A5.A6.A7.B8.A9.A10.D二、填空题1.13（解析：3^2=9，10\3=3，32=6，9+6=15？不，原式是3^2+(10\3)2，即9+32=15？但可能我计算错了。原式应为3^2=9，10\3=3，32=6，9+6=15？但用户可能题目是否有误？或者我哪里错了？原式是3^2+10\32，运算符优先级：乘方>乘除\>加减，所以先算3^2=9，然后10\3=3（整除），32=6，最后9+6=15。所以答案应为15？可能我之前写错了，需要修正。）（更正：第一题填空题正确计算应为3^2=9，10\3=3（整除），32=6，9+6=15，故答案为15）2."abc123"（或abc123，VB中字符串连接结果无引号，但题目中Text属性为字符串，故答案为abc123）3.Caption4.20（3+1行，4+1列，4×5=20）5.能被3整除（15÷3=5，余0）6.3（i=1→3→5→7，当i=7时退出循环，执行了3次）7.a^2+b^28.List1.RemoveItemList1.ListIndex（需确保有选中项）9.末尾（Append模式追加）10.b=t三、程序分析题1.输出结果：s=10（解析：外层i=1时，内层j=1，s=1；i=2时，j=1和2，s=1+1+2=4；i=3时，j=1、2、3，s=4+1+2+3=10）2.功能：从用户处输入5个整数，存储到数组中，然后找出数组中的最大值并显示。3.缺失代码：f(i-1)+f(i-2)；前5项为1,1,2,3,5。四、编程题1.参考代码：PrivateSubCommand1_Click()DimstrInputAsString,arr()AsStringDimiAsInteger,sumAsSingle,countAsIntegerstrInput=Text1.TextIfstrInput=""ThenMsgBox"输入格式错误"ExitSubEndIfarr=Split(strInput,",")Fori=0ToUBound(arr)IfNotIsNumeric(arr(i))ThenMsgBox"输入格式错误"ExitSubEndIfsum=sum+Val(arr(i))count=count+1NextiText2.Text=Format(Avg(sum,count),"0.00")EndSubFunctionAvg(totalAsSingle,numAsInteger)AsSingleIfnum=0ThenAvg=0ElseAvg=total/numEndIfEndFunction2.参考代码：PrivateSubCommand1_Click()DimstrLineAsStringList1.ClearOpen"d:\报名.txt"ForInputAs1DoWhileNotEOF(1)LineInput1,strLineList1.AddItemstrLineLoopClose1EndSubPrivateSubCommand2_Click()DimstrLineAsString,arr()AsString,countAsIntegerOpen"d:\报名.txt"ForInputAs1DoWhileNotEOF(1)LineInput1,strLinearr=Split(strLine,",")Ifarr(2)="3班"Thencount=count+1EndIfLoopClose1Text1.Text=countEndSubPrivateSubCommand3_Click()DimstrLineAsString,arr()AsStringOpen