2019-2020学年浙江省丽水市五校高中发展共同体高二（下）期中信息技术试卷
发布：2024/4/20 14:35:0
一、选择题（本大题共12小题，每小题2分，共24分。在每小题给出的四个选项中，只有一个符合题目要求）
-
1．下列有关信息的说法，不正确的是（ ）
组卷：17引用：3难度：0.9 -
2．下列有关网页和邮件的说法，正确的是（ ）
组卷：1引用：1难度：0.6 -
3．对于数据库和数据表，下列说法正确的是（ ）
组卷：0引用：1难度：0.6 -
4．利用Word软件编辑了一篇关于“Python简介”的文档，部分界面如图所示，下列说法正确的是（ ）
组卷：2引用：1难度：0.6 -
5．用UltraEdit软件来观察字符内码，结果如图所示，下列说法中正确的是（ ）
组卷：2引用：1难度：0.5
二、非选择题（本大题共4小题，其中第13小题4分，第14小题8分，第15小题7分，第16小题7分，共26分）
-
15．小张设计了某企业职工IC卡查询系统，输入职工的卡号，可以查出该卡号对应的余额。所有职工的IC卡号和相应的余额已分别保存在zg数组（按从小到大排序）和ye数组中，第i个职工卡号保存在zg（i）中，对应的卡号余额保存在ye（i）中。
程序界面如图所示，左边列表框List1中显示的是部分职工的卡号和余额，在文本框Text1中输入职工的IC卡号，单击“查询余额”按钮（Command1）后，如果找到此卡号，则在标签Lab3中显示“此卡号余额为”和对应的余额值，如果未找到则显示“找不到此卡号，请重新输入”。
解决此问题的部分程序段如下：
Constn=500'设卡号总数为500
Dimzg（1Ton）AsLong
Dimye（1Ton）AsSingle
PrivateSubForm1_Load （ ）
'此过程用于对数组zg和数组ye进行初始赋值，代码略
EndSub
PrivateSubCommand1_Click （ ）
DimxAsLong,iAsLong,jAsLong,mAsLong,findAsBoolean
x=Val（Text1．Text）
i=1：j=n：find=False
DoWhile′改错
m=Int（（i+j）/2
Ifx=zg（m）Then
①
ElseIf②Then
j=m-1
Else
i=m+1
EndIf
Loop
Iffind=trueThen
Lab3．Caption=″此卡号余额为″+Str（ye（m））+″元″
Else
Lab3．Caption=″找不到此卡号，请重新输入″
EndIf
EndSub
（1）在设计程序界面时，要使命令按钮上显示“查询余额”，应修改命令按钮的属性值。
（2）程序中加框处代码有错，请改正。
（3）在程序①、②画线处填入适当的语句或表达式。将程序补充完整：程序中①画线处应填入。程序中②画线处应填入。组卷：0引用：1难度：0.3 -
16．某班级学生为毕业晚会的一个节目设计一个仿“V”字造型，先筛选出班级中n名学生的所有男生，然后将参演的男生按照身高，摆出中间低两边高（先右后左）的造型，如图1所示。王林同学用VB编写模拟“节目造型”程序，功能如下：从数据库中导出所有学生编号、性别和身高数据；单击“筛选排序”按钮Command2，根据身高仿“V”字和造型进行有序排列，并将结果显示在文本框Text2中。程序运行界面如图2所示。举例说明如下：
身高顺序：男3号＞男6号＞男7号＞男5号＞男4号＞男2号＞男1号原1-7号男生身高 171172180174176179178 筛选排序后序列 171172174176178179180 “造型设计”后序列 180178174171172176179 
Dimh（1Ton）AsInteger
Dimheight1（1Ton）AsInteger
Dimheight2（1Ton）AsInteger
DimnAsInteger,iAsInteger,jAsInteger,numAsInteger,tmpAsInteger
Dimsex（1Ton）AsString
PrivateSubForm_Load （ ）
'n名学生的身高和性别由数据库导出，分别存储在数组h和sex中，代码略！
EndSub
PrivateSubCommand1_Click （ ）
b=0
Fori=1Ton'n名学生中的男生
Ifsex（i）=“男”Then①：height1（num）=h（i）
Nexti
Fori=1Tonum-1
Forj=numToi+1Step-1
Ifheight1（j）＜height1（j-1）Then
tmp=height1（j）：height1（j）=height1（j-1）：height1（j-1）=tmp
EndIf
Nextj
Nexti
Fori=1Tonum
Text1．Text=Text1．Text+““+Str（height1（i））
Nexti
EndSub
PrivateSubCommand2_Click （ ）
Dimleft,rightAsInteger,iAsInteger,midAsInteger
mid=Int（（1+num）/2）
left=0：right=0
height2（mid）=height1（1）
Fori=1To（num-1）\2
right=right+1
height2（mid+right）=height1（2*i）
left=left+1
②
Nexti
IfnumMod2=0Then③
Fori=1Tonum
Text2．Text=Text2．Text+““+Str（height2（i））
Nexti
EndSub
（1）若参演的8名男生身高为“180、171、173、174、178、175、176、170”，程序执行结束后height1（5）的值是。
（2）在程序①、②、③画线处填入适当的语句或表达式。将程序补充完整：程序中①画线处应填入；程序中②画线处应填入；程序中③画线处应填入；组卷：0引用：1难度：0.3
