2025年高中信息考试有关vb试题及答案

2025年高中信息考试有关vb试题及答案一、选择题（每小题3分，共30分）1.以下符合VB变量命名规则的是（）A.2025ScoreB.ForC.Total_AmountD.成绩$2.执行语句“a=3:b=5:c=a>b”后，变量c的数据类型及值分别为（）A.布尔型，TrueB.布尔型，FalseC.整型，0D.整型，-13.表达式“10\3+5Mod23”的计算结果是（）A.3B.4C.5D.64.已知x=7，执行以下程序段后，y的值为（）Ifx<0Theny=x2ElseIfx<5Theny=x+3Elsey=xx1EndIfA.14B.10C.48D.505.执行“Fori=1To10Step3”循环时，循环体的执行次数是（）A.3次B.4次C.5次D.6次6.定义数组“Dimarr(2To5,0To1)AsInteger”，该数组的元素个数是（）A.8B.10C.12D.157.关于VB函数过程的描述，正确的是（）A.函数过程必须有参数B.函数名不能作为变量使用C.用ByVal声明的参数是按值传递，不会改变实参的值D.函数过程结束时必须用ExitFunction退出8.执行“s="Information";PrintMid(s,3,4)”的输出结果是（）A.formB.ormaC.infoD.nfor9.要将数据追加到文本文件“data.txt”中，应使用的Open语句是（）A.Open"data.txt"ForInputAs1B.Open"data.txt"ForOutputAs1C.Open"data.txt"ForAppendAs1D.Open"data.txt"ForRandomAs110.程序运行时，用户输入非数字字符导致程序崩溃，该错误属于（）A.语法错误B.逻辑错误C.运行时错误D.编译错误二、填空题（每空3分，共15分）1.执行“a=5:b=2:c=a^b+b\a”后，c的值为________。2.已知程序段：n=0Fori=1To10IfiMod3=0Thenn=n+1Nexti执行后，n的值为________。3.数组arr定义为“Dimarr(5)AsInteger”，初始值为{1,3,5,7,9,11}，执行“arr(2)=arr(5)arr(0)”后，arr(2)的值为________。4.执行以下程序段：s=0Fori=1To3Forj=1Tois=s+jNextjNextiPrints输出结果为________。5.自定义函数“Functionf(nAsInteger)AsInteger”，若输入n=5，函数体内执行“f=nf(n-1)”且f(0)=1，则函数返回值为________。三、程序分析题（共35分）1.（10分）分析以下程序，写出运行后文本框Text1的输出内容。PrivateSubCommand1_Click()Dima(5)AsInteger,iAsInteger,jAsInteger,tAsIntegera(0)=9:a(1)=2:a(2)=7:a(3)=4:a(4)=1:a(5)=6Fori=0To4Forj=0To4iIfa(j)>a(j+1)Thent=a(j)a(j)=a(j+1)a(j+1)=tEndIfNextjNextiText1.Text=Join(a,",")EndSub2.（12分）以下程序用于统计班级学生的身高分布（单位：cm），分析并补全代码。PrivateSubCommand1_Click()DimhAsInteger,lowAsInteger,midAsInteger,highAsIntegerlow=0:mid=0:high=0Fori=1To5h=Val(InputBox("请输入第"&i&"位学生的身高"))Ifh<160Thenlow=low+1[①]mid=mid+1Elsehigh=high+1EndIfNextiLabel1.Caption="低于160cm："&low&"人"Label2.Caption="160-179cm："&mid&"人"Label3.Caption="180cm及以上："&high&"人"EndSub（1）补全①处的条件表达式。（2）若输入的5个身高为158、175、182、163、179，运行后Label2的显示内容是？3.（13分）分析以下程序，写出运行后窗体的输出结果。PrivateSubForm_Click()DimsAsString,iAsInteger,countAsIntegers="VisualBasic2025"count=0Fori=1ToLen(s)c=Mid(s,i,1)Ifc>="A"Andc<="Z"Thencount=count+1ElseIfc>="a"Andc<="z"Thencount=count+1EndIfNextiPrint"字母总数：";countEndSub四、编程题（共20分）1.（10分）编写程序：输入10个整数存入数组，找出其中的最大值和最小值，并计算所有数的平均值（保留2位小数）。要求：使用InputBox输入数据，结果通过MsgBox输出。2.（10分）编写程序：模拟“幸运抽号”游戏，程序提供1个1-50之间的随机整数作为中奖号码，用户通过文本框输入猜测的数字，点击“判断”按钮后，若猜测正确则提示“中奖！”，若猜测过大则提示“太大了，再试试”，若过小则提示“太小了，再试试”。要求：限制最多猜测5次，若5次未中则提示“机会用完，下次加油！”。答案一、选择题1.C2.B3.B4.C5.B6.A7.C8.D9.C10.C二、填空题1.25（解析：5^2=25，2\5=0，25+0=25）2.3（解析：1-10中能被3整除的数为3、6、9，共3个）3.10（解析：arr(5)=11，arr(0)=1，11-1=10）4.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）5.120（解析：f(5)=5×f(4)=5×4×f(3)=…=5×4×3×2×1×f(0)=120）三、程序分析题1.输出内容：1,2,4,6,7,9（解析：冒泡排序升序排列，原数组[9,2,7,4,1,6]经5轮排序后完成）2.（1）ElseIfh<=179Then（2）Label2显示“160-179cm：3人”（解析：输入数据中175、163、179符合该区间）3.输出结果：字母总数：11（解析：字符串"VisualBasic2025"中字母为V,i,s,u,a,l,B,a,s,i,c，共11个，数字和空格不计）四、编程题1.参考代码：PrivateSubCommand1_Click()Dimarr(9)AsInteger,iAsInteger,maxAsInteger,minAsInteger,sumAsInteger,avgAsSingleFori=0To9arr(i)=Val(InputBox("请输入第"&i+1&"个整数"))Nextimax=arr(0):min=arr(0):sum=0Fori=0To9Ifarr(i)>maxThenmax=arr(i)Ifarr(i)<minThenmin=arr(i)sum=sum+arr(i)Nextiavg=sum/10MsgBox"最大值："&max&vbCrLf&"最小值："&min&vbCrLf&"平均值："&Format(avg,"0.00")EndSub2.参考代码：PrivateSubCommand1_Click()'判断按钮DimguessAsInteger,timesAsInteger,luckyAsIntegerStaticcntAsInteger'记录已猜测次数Ifcnt=0ThenRandomizelucky=Int(Rnd50)+1'提供1-50随机数EndIfguess=Val(Text1.Text)cnt=cnt+1Ifgue