2026年浙江省普通高中学业水平考试 信息技术VB模块试题及详细答案

2026年浙江省普通高中学业水平考试信息技术VB模块试题及详细答案考试说明：本试卷满分50分，考试时间40分钟。题型包含选择题、程序填空题、程序阅读题、编程应用题，严格参照浙江省学考信息技术VB模块命题标准，答题规范与评分标准完全贴合考场要求。一、单项选择题（本大题共10小题，每小题2分，共20分。每小题只有一个正确选项）1.在VisualBasic6.0中，窗体文件的默认扩展名是（）A..vbpB..frmC..basD..cls2.下列VB变量名中，符合合法命名规则的是（）A.3scoreB.score_1C.score-1D.Dim3.表达式Int(-3.8)+Round(2.5)的运算结果是（）A.-1B.-2C.-3D.-44.若a=5，b=2，下列逻辑表达式结果为True的是（）A.a<bAnda>0B.a>bOrb>5C.Not(a>b)D.a=b5.在VB中，用于接收用户键盘输入数据的函数是（）A.Print()B.InputBox()C.MsgBox()D.Val()6.循环语句Fori=2To10Step2的循环执行次数为（）A.4次B.5次C.6次D.9次7.已知s="ZJ2026"，则Mid(s,3,2)的返回值是（）A.20B.J2C.02D.268.下列VB数据类型中，可存储小数数值的是（）A.IntegerB.LongC.SingleD.Boolean9.分支语句中，能够实现多条件分段判断的语句是（）A.If...ThenB.If...Then...ElseIf...ElseC.DoWhileD.ForNext10.清空文本框Text1中所有内容的正确代码是（）A.Text1.ClearB.Text1.Text=""C.Text1.ClsD.Text1=Null二、程序填空题（本大题共2小题，每空2分，共12分）11.【求和计算】以下程序功能：输入正整数n，计算1+2+3+...+n的累加和，完善代码。PlainText

PrivateSubCommand1_Click()

DimnAsInteger,sAsLong,iAsInteger

n=Val(InputBox("请输入正整数n"))

s=0

Fori=1To【①】

s=【②】

Nexti

Print"累加和为：";s

EndSub12.【字符统计】以下程序功能：统计字符串中大写字母A的个数，完善代码。PlainText

PrivateSubCommand2_Click()

DimsAsString,cntAsInteger,iAsInteger

s=Text1.Text

cnt=0

Fori=1ToLen(s)

If【③】="A"Then

cnt=cnt+1

EndIf

Nexti

Text2.Text=Str(cnt)

EndSub三、程序阅读题（本大题共2小题，每小题4分，共8分）13.阅读下列程序，写出运行结果PlainText

PrivateSubCommand3_Click()

DimaAsInteger,bAsInteger,tAsInteger

a=12

b=5

IfaModb=0Then

Print"整除"

Else

Print"不整除"

EndIf

EndSub程序运行输出结果：__________14.阅读下列程序，写出运行结果PlainText

PrivateSubCommand4_Click()

DimiAsInteger,sumAsInteger

sum=0

Fori=1To5

IfiMod2=1Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub程序运行输出结果：__________四、编程应用题（本大题1小题，10分）15.编写VB程序，实现如下功能：在文本框Text1中输入一个百分制成绩（0-100），点击判断按钮后，在Text2中输出成绩等级。等级划分规则：90-100分为优秀，80-89分为良好，60-79分为合格，0-59分为不合格。要求代码规范、逻辑完整，包含输入取值判断。参考答案及详细解析一、单项选择题（每题2分，共20分）1.答案：B解析：.vbp是工程文件，.frm是窗体文件，.bas是标准模块文件，.cls是类模块文件，窗体文件默认后缀为.frm。2.答案：B解析：VB变量名不能以数字开头、不能包含特殊符号（-、空格等）、不能使用系统关键字。A以数字开头，C含连接符，D是关键字，均不合法。3.答案：A解析：Int函数向下取整，Int(-3.8)=-4；Round函数四舍五入，Round(2.5)=2；两者相加-4+2=-1。4.答案：B解析：已知a=5，b=2。A选项a<b不成立；B选项a>b成立，Or运算一真则真；C选项Not(True)结果为假；D选项数值不相等。5.答案：B解析：InputBox用于弹出输入框接收用户输入；Print用于输出内容；MsgBox用于弹出提示框；Val用于将字符串转为数值。6.答案：B解析：初值2、终值10、步长2，执行次数：(10-2)/2+1=5次，依次为2、4、6、8、10。7.答案：A解析：Mid(字符串,起始位置,截取长度)，字符串下标从1开始，s="ZJ2026"，第3位开始截取2位，结果为“20”。8.答案：C解析：Integer、Long为整型，只能存储整数；Boolean为布尔型，只有True/False；Single为单精度浮点型，可存储小数。9.答案：B解析：If...Then...ElseIf...Else语句可实现多条件依次判断，适配分段场景；其余选项仅支持单条件或循环逻辑。10.答案：B解析：文本框清空的标准写法是给Text属性赋值空字符串；Clear、Cls方法不适用于文本框控件，Null无法清空文本内容。二、程序填空题（每空2分，共12分）11.【答案】①n②s+i解析：本题实现1到n累加求和，循环终值为输入的n，每次循环将当前i值累加到变量s中，完成累加计算。12.【答案】③Mid(s,i,1)解析：循环逐个遍历字符串每一位字符，通过Mid函数截取第i位单个字符，判断是否为大写A，匹配成功则计数加1。三、程序阅读题（每题4分，共8分）13.答案：不整除解析：a=12，b=5，12对5取模余数为2，不等于0，不满足整除条件，执行Else分支，输出“不整除”。14.答案：9解析：循环遍历1-5，筛选奇数累加，奇数为1、3、5，求和1+3+5=9，最终输出结果为9。四、编程应用题（10分）【参考答案代码】PlainText

PrivateSubCommand1_Click()

DimscoreAsSingle

'读取文本框输入成绩并转换为数值

score=Val(Text1.Text)

'合法性判断

Ifscore<0Orscore>100Then

Text2.Text="成绩输入无效"

ElseIfscore>=90Then

Text2.Text="优秀"

ElseIfscore>=80Then

Text2.Text="良好"

ElseIfscore>=60Then

Text2.Text="合格"

Else

Text2.Text="不合格"

End