2016年浙江省普通高校高考信息技术模拟试卷（4）
发布：2024/12/13 17:0:3
一、选择题（本大题共12小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）
-
1．下列有关信息的说法，不正确的是（ ）
组卷：11引用：2难度：0.9 -
2．如果二进制101101B的权值可以表示为：543210，那么十六进制16A3H的权值可以表示为（ ）
组卷：4引用：1难度：0.9 -
3．在IE浏览器中要将“浙江高考”网站首页保存到本地计算机，有如下操作：
①在“保存网页”对话框中，单击“保存”按钮
②打开“浙江高考”网站的首页
③单击“文件”菜单下的“另存为”选项
④在“保存网页”对话框中，选择要保存的文件夹
正确的顺序是（ ）组卷：8引用：1难度：0.9 -
4．光学字符识别（OCR）技术，可以实现的功能是（ ）
组卷：6引用：2难度：0.5 -
5．使用 Access软件创建一张数据表，其结构如第图所示：在该数据表中录入数据时，下列操作能实现的是（ ）组卷：5引用：2难度：0.5
二、解答题（共5小题，满分26分）
-
16．编写VB应用程序，当用户输入的一串由字母、数字等字符组成的字符串，统计其中每个字母出现的次数（不分大小写）．程序运行时界面如图1所示．
（1）设计应用程序界面时，为添加标签对象“输入字串：”，应使用图2所示的“控件工具箱”中的（填写相应编写），并在图3所示的“属性窗口”中，将属性设置为“输入字串：”．
（2）程序运行时，在Text1中输入字符串，单击“统计”按钮，在List1中显示统计结果．请在横线处填入合适代码．
‘函数IsLetter（x）功能，若x是字母，则返回值为字母x在字母序列“A”～“Z”中的序号，如字母“A”的序号为0，字母“D”的序号为3．若x不是字母，则返回值为-1．
Function IsLetter（x As String） As Integer
If“A“＜=x And x＜=“Z“Then
IsLetter=Asc（x）-Asc（“A“）
ElseIf“a“＜=x And x＜=“z“Then
IsLetter=Asc（x）-Asc（“a“）
Else
End If
End Function
Private Sub Command1_Click
Dim f（25）As Integer,m As Integer,n As Integer
Dim s As String,c As String
List1．Clear
For m=0To 25‘初始化数组f
f（m）=0
Next m
s=Text1．Text
For m=1To Len（s）‘依次读取字符串中的每个字符进行判断
c=Mid（s,m,1）
n=IsLetter（c）
If n＜＞-1Then f（n）=f（n）+1
Next m
For m=0To 25‘输出统计结果，没有出现的字母不输出
IfThen
List1．AddItem （Chr（m+Asc（“a“）） &“：“& f（m））
End If
Next m
End Sub.组卷：11引用：4难度：0.1 -
17．某超市举行抽奖活动，规定积分排名（从大到小）在前10位的会员可以参加特等奖抽奖．下列程序能根据左边列表框中的积分数据统计出积分最高的前10位会员卡号（程序界面如第17题图所示），数组a和b分别保存会员卡号和对应的积分，单击“统计前10名”按钮（Command1）后，积分最高的前10名会员卡号和对应积分就显示在右边的列表框List2中．
Private Sub Command1_Click
Dim t1As String,t2As Long,k As Integer
For i=1To 10
k=i
For j=i+1To n'n表示所有参与排序的会员人数
If b（j）＞b（k） Then k=j'①
Next j
If k＜＞i Then'②
t1=a（i）：a（i）=a（k）：a（k）=t1
t2=b（i）：b（i）=b（k）：b（k）=t2
End If
Next j
Next i
List2．AddItem“会员卡号“+““+“会员积分“
End Sub
（1）如果要统计出积分最低的10名会员，只需在上述程序段中标有①②的行中选择一行进行修改即可，那么应该修改的代码行为（填：①/②），该行代码应该修改为．
（2）上列程序中标有③的方框内应填写的程序段为：、．组卷：9引用：2难度：0.1
