vb高中基础会考试题及答案

vb高中基础会考试题及答案一、选择题（每小题2分，共30分）1.以下符合VB变量命名规则的是（）A.2024ScoreB.Name-1C.Total$D.语文成绩2.要存储字符串“VB程序设计基础”，应声明的变量类型是（）A.IntegerB.StringC.DoubleD.Boolean3.表达式3+52^2的计算结果是（）A.13B.23C.43D.524.执行Mid("Information",5,3)后，返回的字符串是（）A."rma"B."orm"C."mat"D."for"5.当用户单击命令按钮时，触发的事件是（）A.LoadB.ClickC.ChangeD.DblClick6.执行以下循环语句时，循环体执行的次数是（）Fori=1To10Step2PrintiNextiA.5次B.6次C.10次D.4次7.声明数组Dimarr(3To7)AsInteger后，数组包含的元素个数是（）A.4B.5C.6D.78.已知x=0，执行语句Ifx>0Theny=1ElseIfx=0Theny=0Elsey=-1后，y的值是（）A.1B.0C.-1D.未定义9.InputBox函数返回的数据类型是（）A.数值型B.字符串型C.布尔型D.变体类型10.执行以下程序段后，输出结果是（）a=5b=3a=a+bb=aba=abPrinta,bA.53B.35C.85D.8311.要提供1到100之间（含1和100）的随机整数，正确的表达式是（）A.Int(Rnd100)B.Int(Rnd100)+1C.Int(Rnd99)+1D.Int(Rnd101)12.以下能正确判断变量s是否为偶数的表达式是（）A.s/2=0B.sMod2=0C.s\2=0D.s^2=013.执行语句s="2024"&"VB"后，变量s的值是（）A."2024VB"B."2024+VB"C.2024VB（数值）D.出错14.列表框List1中已有3个项目，执行List1.Clear后，列表框的ListCount属性值是（）A.0B.1C.3D.415.要设置文本框Text1中显示的内容，应修改的属性是（）A.NameB.TextC.CaptionD.Font二、填空题（每空2分，共20分）1.声明一个双精度浮点型变量score，语句是__________。2.表达式(5>3)Or(2<1)的结果是__________（填写True或False）。3.执行语句a=Val("123abc")后，变量a的值是__________。4.已知数组Dimnums()={10,20,30}，执行ReDimPreservenums(4)后，数组的第5个元素（索引4）的默认值是__________。5.执行以下循环后，变量x的值是__________。x=0DoWhilex<5x=x+2Loop6.字符串s="信息技术"，则Len(s)的值是__________。7.执行以下程序段后，输出结果是__________。n=1DoUntiln>3Printn;n=n+1Loop8.要将变量a和b的值交换，不使用临时变量，可通过以下语句实现：a=a+bb=aba=__________9.文本框Text1中输入“123”，执行x=Val(Text1.Text)后，x的数据类型是__________。10.执行以下程序段后，标签Label1的Caption属性值是__________。s="Hello"Label1.Caption=UCase(s)三、程序改错题（每小题5分，共10分。找出错误并改正，错误可能有1-2处）1.以下程序的功能是计算1到n的和（n由用户输入），但存在错误。错误1：__________错误2：__________修改后：PrivateSubCommand1_Click()n=InputBox("请输入n")sum=0Fori=1Tonsum=sum+iNextiPrintsumEndSub2.以下程序的功能是统计字符串s中数字字符的个数，存在逻辑错误。错误1：__________错误2：__________修改后：PrivateSubCommand1_Click()s="2024vb123"count=0Fori=1ToLen(s)c=Mid(s,i,1)Ifc>="0"Andc<="9"Thencount=count+1EndIfNextiMsgBox"数字个数："&countEndSub四、程序设计题（共40分）1.（15分）某班级开展社团活动，需要统计5名学生的活动得分（分数为整数）。要求：（1）通过输入框输入5名学生的得分；（2）计算平均分（保留1位小数）；（3）在标签Label1中显示平均分，格式为“平均分：85.5”。2.（25分）设计一个程序，实现以下功能：（1）输入一个四位正整数（如2024）；（2）将其各位数字反转，得到新数（如2024反转后为4202）；（3）在文本框Text2中显示反转后的结果；（4）如果反转后的数大于原数，在标签Label1中显示“新数更大”，否则显示“原数更大或相等”。（要求：写出完整的事件处理代码，包括变量声明、输入输出和逻辑判断）答案一、选择题1.D2.B3.B4.A5.B6.A7.B8.B9.B10.B11.B12.B13.A14.A15.B二、填空题1.DimscoreAsDouble2.True3.1234.05.66.47.1238.ab9.Integer10.HELLO三、程序改错题1.错误1：变量n未声明类型（或n为字符串类型，需转换为数值）；错误2：sum未声明。修改后：PrivateSubCommand1_Click()DimnAsInteger,sumAsIntegern=Val(InputBox("请输入n"))sum=0Fori=1Tonsum=sum+iNextiPrintsumEndSub2.无错误（注：原程序逻辑正确，若假设题目设定错误，可能为“c为字符类型，比较时需用字符'0'和'9'”，但原代码已正确）。若硬要修改，可能题目意图为“变量count未声明”，则修改：PrivateSubCommand1_Click()DimsAsString,cAsString,countAsIntegers="2024vb123"count=0Fori=1ToLen(s)c=Mid(s,i,1)Ifc>="0"Andc<="9"Thencount=count+1EndIfNextiMsgBox"数字个数："&countEndSub四、程序设计题1.参考代码：PrivateSubCommand1_Click()DimiAsInteger,scoreAsInteger,totalAsIntegerDimavgAsDoubletotal=0Fori=1To5score=Val(InputBox("请输入第"&i&"名学生的得分："))total=total+scoreNextiavg=total/5Label1.Caption="平均分："&Format(avg,"0.0")EndSub2.参考代码：PrivateSubCommand1_Click()DimnumAsLong,originalAsLong,reversedAsLongDimthousandsAsInteger,hundredsAsInteger,tensAsInteger,unitsAsIntegernum=Val(Text1.Text)'假设输入框为Text1original=num'拆分各位数字thousands=num\1000num=numMod1000hundreds=num\100num=numMod100tens=num\10units=numMod10'反转组合rev