资源简介

浙江省 ２０２０ 年新高考选考科目原创猜题卷 ３
信息技术试题
一、选择题（本大题共 １２ 小题，每小题 ２ 分，共 ２４ 分。 每小
题列出的四个备选项中只有一个是符合题目要求的，不
选、多选、错选均不得分）
１．超市支付宝刷脸付款已经进入了人们的生活，消费者将商品
扫码，进入支付页面，选择“支付宝刷脸付”；随后进行人脸识
别，大约需要 ２ 秒；然后输入与账号绑定的手机号，确认后即
可支付 下列说法不正确
???
的是 （ ）
Ａ．人脸识别属于人工智能
Ｂ．支付过程需要访问和修改数据库个人信息
Ｃ．商品扫码过程属于光学字符识别
Ｄ．人工智能是信息技术发展的热点之一
答案 Ｃ 本题主要考查人工智能。 人脸识别是拍照代替
输入密码，属于人工智能，而商品扫码属于二维码或者条形码
信息获取，无图片转换为文字信息过程，因此不属于光学字符
识别。 故选 Ｃ。
２．下列方法不能有效获取网页上图片的是 （ ）
Ａ．使用“网页另存为”里的“网页（全部）”命令
Ｂ．图片上单击右键选择“图片另存为”命令
Ｃ．使用截图工具
Ｄ．使用“网页另存为”里的“网页（单一文件）”命令
答案 Ｄ 本题主要考查网络信息获取。 Ａ、Ｂ、Ｃ 选项都能
从网络上获取图片，而 Ｄ 选项是生成一个 ｍｈｔ 格式的文件，不
能单独提取图片，故选 Ｄ。
３．使用 Ｗｏｒｄ 软件编辑某文档，部分界面如图所示 下列说法正
确的是 （ ）
Ａ．由文中批注可知，此用户名缩写为“ｕ１１”，删除批注框不影
响文章标题
Ｂ．文中修订共 １ 处，接受修订，第二行修订处语句变为“心理
学和哲学”
Ｃ．将文中多处“人工智能”修改成“人工智能（Ａ．Ｉ．）”可用“自
动更正”来实现
Ｄ．在第二行“…和哲学 ”后面插入外部图片，默认的图片文字
环绕方式为“嵌入型”
答案 Ｄ 本题主要考查字处理。 Ａ 选项，“ｕ１１”中的“ｕ１”
是用户名缩写，第 ２ 个“１”表示批注序号；Ｂ 选项，文中修订共
２ 处，删除修订 １ 处，插入修订 １ 处；Ｃ 选项，多处修改应使用
“替换”功能，“自动更正”是输入时自动立即改正。 Ｄ 是正确
答案。
４．使用 ＧｏｌｄＷａｖｅ 处理如下音频，下列选择错误
??
的是 （ ）
Ａ．“剪裁”后执行“选取部分另存为”得到的音频文件时长 ４ 秒
Ｂ．“删除”后左声道从第 ６ 秒开始没有声音
Ｃ．执行“全选”→“左声道”→“删除”，按原格式保存，所得文
件容量不变
Ｄ．当前状态插入静音 ２ 秒，则右声道时长不变，仍为 １０ 秒
答案 Ｄ 本题主要考查 ＧｏｌｄＷａｖｅ 处理音频。 Ａ、Ｂ、Ｃ 选项
无误，Ｄ 选项，插入静音，左声道左边选取处增加 ２ 秒静音，右
声道最后也对应增加 ２ 秒，仍为 １０ 秒错。
５．使用 Ｆｌａｓｈ 制作如下动画，结果发现按钮图层第 １ 帧的内容是
多余的，按钮只需要出现在第
?????????
３０
··
帧
?
即可，以下操作错误
??
的是
（ ）
Ａ．“按钮”图层第 １ 帧执行“清除关键帧”操作
Ｂ．“按钮”图层第 １ 帧选择舞台内容，直接按“Ｄｅｌｅｔｅ”键删除
Ｃ．“按钮”图层选择第 １～２９ 帧，右键执行“清除帧”操作
Ｄ．“按钮”图层第 １ 帧执行“插入空白关键帧”操作，再对第 １
帧执行“清除关键帧”操作
答案 Ａ 本题主要考查 Ｆｌａｓｈ 帧的相关操作。 Ｂ 选项，按
钮图层第 １ 帧将舞台内容删除，黑点变白点，３０ 帧保持不变；Ｃ
选项，将 １～２９ 帧都选中，执行“清除帧”，使得选中的帧都变
成空白关键帧，即第 １ 帧为空白关键帧，第 ２～２９ 帧为空白的
普通帧状态；Ｄ 选项，第 １ 帧插入空白关键帧，则空白关键帧出
现在第 ２ 帧，再对第 １ 帧清除关键帧会把后一帧关键帧（空白
关键帧）移动到第 １ 帧，总帧数不变。 而 Ａ 选项直接对第 １ 帧
清除关键帧将导致第 ３０ 帧关键帧被替换到第 １ 帧的位置。 故
选 Ａ。
６．将如图 １０２４?１０２４ 像素 ＲＧＢ 模式（每个颜色分量占 ８ 位）的
“ｊｉｓｈｕ．ｂｍｐ”格式图片保存，生成的图片容量大小为 （ ）
Ａ．３ＭＢ Ｂ．０．６ＭＢ Ｃ．１ＭＢ Ｄ．０．２ＭＢ
答案 Ａ ＢＭＰ 图片容量＝ １０２４?１０２４?２４ ／ ８ ／ １０２４ ／ １０２４ ＝
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
1 6
３ＭＢ，故选 Ａ。
７．如图所示，初始界面如下，除代码窗口输入如下代码，其余未
做任何修改，单击 Ｃｏｍｍａｎｄ１ 得到 Ｔｅｘｔ２ 的输出结果为（ ）
Ａ．（空） Ｂ．Ｔｅｘｔ１．ｔｅｘｔＴｅｘｔ２．ｔｅｘｔ
Ｃ．Ｔｅｘｔ２Ｔｅｘｔ１ Ｄ．Ｔｅｘｔ２ Ｔｅｘｔ１
答案 Ｃ 本题主要考查 ＶＢ 程序基础。 文本框 Ｔｅｘｔ１ 和文
本框 Ｔｅｘｔ２ 初始值默认为“Ｔｅｘｔ１”和“Ｔｅｘｔ２”，用“＆”符号连接
字符串，得“Ｔｅｘｔ２Ｔｅｘｔ１”。
８．如下流程图所示，将“ ｉ＞０？”修改为“ ｉ＞ ＝ ０？”，则下列运行结果
正确的是 （ ）
Ａ．ｉ ＝ ０，ｓ＝ ６ Ｂ．ｉ ＝ ０，ｓ＝ ６
Ｃ．ｉ ＝ ２，ｓ＝ ６ Ｄ．ｉ ＝ ２，ｓ＝ ６
答案 Ｃ 本题主要考查流程图。 条件为 ｉ＞ ＝ ０，当 ｉ ＝ ０ 时
继续执行，ｓ 变为 ６，ｉ 变成 ２，不满足 ｉ＞ ＝ ０ 条件，跳出循环。
９．下列 ＶＢ 表达式中，只产生［１００，２００］上随机偶数的是 （ ）
Ａ．Ｉｎｔ（Ｒｎｄ?１０１）＋１００ Ｂ．Ｉｎｔ（Ｒｎｄ?５１）?２＋１００
Ｃ．Ｉｎｔ（Ｒｎｄ?５０）?２＋１００ Ｄ．（Ｉｎｔ（Ｒｎｄ?２）＋１）?１００
答案 Ｂ 本题主要考查 ＶＢ 中的常用函数 Ｒｎｄ（）和Ｉｎｔ（）。
Ｒｎｄ 范围为［０，１）上随机实数，１ 是取不到的，故选 Ｂ。
１０．在文本框 Ｔｅｘｔ１ 中输入一串字符，将其中的大写字母和小写
字母进行互换，其他符号不变，请在空格的位置选择正确的
选项 （ ）
Private Sub Command1_Click()
Dim s1 As String, s2 As String, ch As String
Dim i As Integer
s1 = Text1.Text: s2 = ""
①
For i = 1 To n
ch = Mid(s1, i, 1)
If ch > "A" And ch < "Z" Then
s2 = s2 + Chr(Asc(ch) + 32)
ElseIf ch > "a" And ch < "z" Then
②
Else
s2 = s2 + ch
End If
Next i
End Sub
Ａ．①ｎ＝Ａｂｓ（ｓ１） ②ｓ２ ＝ ｓ２ ＋ Ｃｈｒ（Ａｓｃ（ｃｈ） ３２）
Ｂ．①ｎ＝Ｌｅｎ（ｓ１） ②ｓ２ ＝ ｓ２ ＋ Ｃｈｒ（Ａｓｃ（ ＂ Ａ＂ ） ＋ Ａｓｃ（ｃｈ）
Ａｓｃ（＂ ａ＂ ））
Ｃ．①ｎ＝Ｓｑｒ（ｓ１） ②ｓ２ ＝ ｓ２ ＋ Ｃｈｒ（Ａｓｃ（ｃｈ） ３２）
Ｄ．①ｎ＝Ｖａｌ（ｓ１） ②ｓ２ ＝ ｓ２ ＋ Ｃｈｒ（Ａｓｃ（ ＂ Ａ＂ ） ＋ Ａｓｃ（ ｃｈ）
Ａｓｃ（＂ ａ＂ ））
答案 Ｂ 本题主要考查 ＶＢ 常用函数，基本运算。 求字符
串长度应使用 Ｌｅｎ（）函数，故选 Ｂ。
１１．某 ＶＢ 程序如下：
Private Sub Command1_Click() '带符号单字节负数二
进制编码
Dim n As Integer, p As Integer, q As Integer, m
As Integer
Dim I As Integer，s As String, a(1 To 8) As Inte
ger
n = Val(Text1.Text)
p = 1: s = "" '求原码
n = Abs(n): m = 8
Do While n > 0
a(m) = n Mod 2
n = n \2
m = m - 1
Loop
For i = 2 To 8
s = s + CStr(a(i))
Next i
List1.AddItem "该负数的原码：" + CStr(p)+s 'CStr()功
能为去掉空格，其他同 Str()
s = "" '求反码
For i = 2 To 8
a(i) = 1 - Val(a(i))
s = s + CStr(a(i))
Next i
List1.AddItem "该负数的反码：" + CStr(p) + s
s = "": q = 1: i = 8 '求补码
Do While i > 1
m = a(i) + q
a(i) = m Mod 2
q = m \2
s = CStr(a(i)) + s
i = i - 1
Loop
List1.AddItem "该负数的补码 （即计算机内二进制编
码）：" + CStr(p) + s
End Sub
根据上面程序，在 Ｔｅｘｔ１ 中输入 １５，可知 １５ 在计算机中存
储的二进制数为 （ ）
Ａ．１０００１１１１ Ｂ．１１１１００００ Ｃ．１１１１０００１ Ｄ．１１１１１
答案 Ｃ 本题主要考查 ＶＢ 基本运算，基本结构。 １５ 的
原码为 １０００１１１１，反码为 １１１１００００，则补码为 １１１１０００１，故
选 Ｃ。
１２．如图所示，Ｔｅｘｔ１ 中输入有序字符串“ａａａａｂｂｃｃｃｃｃｄｄｄｅｅｆｆｆｆｇｇｇ”
按照字母表顺序排列，中间可出现任意重复的情况，执行下
列代码后，求出 Ｔｅｘｔ２ 中输入字母的起止位置并输出到
Ｔｅｘｔ３，请完善程序
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
2 6
Private Sub Command1_Click()
'变量定义略
s ="0" + Text1.Text + "~" '字符"0"的 ASCII 码值
为 48,字符"~"的 ASCII 码值为 126
Key = Text2.Text
If Len(Key) > 1 Or Len(Key) = 0 Then Exit Sub
n = Len(s)
i = 1: j = n
Do While i <= j
m = (i + j + 1) \2
If Mid(s, m, 1) = Key And ① < Key Then
k1 = m: k2 = m: Exit Do
ElseIf Mid(s, m, 1) < Key Then
i = m + 1
Else
j = m - 1
End If
Loop
If i>j Then
Text3.Text ="未找到"
Else
For k2 = k1 + 1 To n
If Mid (s, k2, 1) = Key And ② > Key
Then Exit For
Next k2
Text3.Text = "[" + Str(k1-1) + "," + Str(k2-1)
+ "]"
End If
End Sub
完善程序①②处应该填入的正确答案是 （ ）
Ａ．①Ｍｉｄ（ｓ， ｍ ＋ １， １） ②Ｍｉｄ（ｓ， ｋ２ ＋ １， １）
Ｂ．①Ｍｉｄ（ｓ， ｍ １， １） ②Ｍｉｄ（ｓ， ｋ２ １， １）
Ｃ．①Ｍｉｄ（ｓ， ｍ ＋ １， １） ②Ｍｉｄ（ｓ， ｋ２ １， １）
Ｄ．①Ｍｉｄ（ｓ， ｍ １， １） ②Ｍｉｄ（ｓ， ｋ２ ＋ １， １）
答案 Ｄ 本题主要考查对分查找算法，ＶＢ 基本运算。
①处是 ｍ １ 位置的字母应＜Ｋｅｙ；②处是 ｋ２＋１ 位置的字母应
＞Ｋｅｙ，故选 Ｄ。
二、非选择题（本大题共 ４ 小题，第 １３ 小题 ４ 分，第 １４ 小题 ８
分，第 １５ 小题 ７ 分，第 １６ 小题 ７ 分，共 ２６ 分）
１３．２０１８ 年浙江省各地的房价均价如图所示，使用 Ｅｘｃｅｌ 表进行
如下处理 请回答下列问题：
（１）使用 ＲＡＮＫ 函数对 Ｃ３ 单元格求房价均价排名，再用自动
填充求出 Ｃ４：Ｃ１４ 的排名，发现 ＲＡＮＫ 函数表达式有误，
请写出 Ｃ３ 单元格的正确公式
（２）现要筛选出下图所示地区，可在右下自动筛选面板中①
②处选择 （Ａ．①“等于”②“?州” ／ Ｂ．①“结尾
是”②“州” ／ Ｃ．①“包含”②“州” ／ Ｄ．①“等于”②“??”；
此题为多选，全对得 ２ 分，少选得 １ 分，多选或选错不得
分）
（３）现对浙中地区两地市房价设计图表，如下图所示，请写出
数据源： ，Ａ１０：Ｂ１０
答案 （１） ＝ ＲＡＮＫ（Ｂ３，Ｂ＄３：Ｂ＄１４，０） 或者 ＝ＲＡＮＫ（Ｂ３，
＄Ｂ＄３：＄Ｂ＄１４，０）（其中 ０ 可以省略）
（２）ＡＢＣ
（３）Ａ２：Ｂ２，Ａ６：Ｂ６
解析 （１）排序函数数据区域 Ｂ３：Ｂ１４ 需绝对引用，因为往
下填充，所以数字前加＄；
（２）筛选条件：结尾是“州”或者等于“?州”或者包含“州”都
是正确的，“??”等于没有筛选；
（３）数据区域为“金华”和“绍兴”两地的“均价”，故包含 Ａ２
和 Ｂ２。
１４．小兰创作了主题为 “人间仙境” 的多媒体作品 她用
Ｐｈｏｔｏｓｈｏｐ 软件制作了一张图，然后用 Ｆｌａｓｈ 软件制作动画
请回答下列问题：
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
3 6
图 ａ
（１）如图 ａ 所示，下列说法正确的是
（多选，填字母：Ａ．图层“山”和图层“植被”是链接
图层，且图层“植被”被完全锁定，故不能将图层“山”移
动到图层“植被”上面 ／ Ｂ．要将图片保存为具有透明背景
的 ＰＮＧ 格式，可以直接将“背景”图层删除 ／ Ｃ．修改文字
图层“人间仙境”的字体大小，可以使用自由变换实现 ／
Ｄ．保存该文档为 ＢＭＰ 格式，则容量大小为９１２．６ＫＢ）
（注：全部选对得 ２ 分，选对但不全的得 １ 分，不选或者选
错不得分）
图 ｂ
（２）如图 ｂ 所示，文字图层第 １ 帧到第 ２０ 帧实现文字“人间
仙境”变成位图“老鹰”的形状补间动画，图 ｃ 分别是第 １
帧文字“人间仙境”和第 ２０ 帧位图“老鹰”，但发现动画
没有成功，需要对第 １ 帧和第 ２０ 帧进行分离，分别需要
分离 次
图 ｃ
（３）点击按钮元件进入按钮编辑界面，如图 ｄ 所示，下列说法
正确的是 （单选）
图 ｄ
Ａ．音效图层“指针经过”帧设置了音效，当测试时鼠标悬
浮在按钮上，能听到声音
Ｂ．文字图层最后一帧为空白关键帧，可以选中该点击帧
并在舞台上添加内容使其有效
Ｃ．删除文字图层，使按钮变成一个隐形按钮，且有效
Ｄ．对文字图层最后一帧空白关键帧执行“清除关键帧”
操作使其有效
（４）已知音效图层第一帧音效设置如图 ｅ 所示，对当前场景
执行“播放”，当播放到第 ６０ 帧，动画停止时，音乐是否
停止： （填：是 ／ 否）
图 ｅ
（５）对“退出”按钮设置按钮动作，实现点击按钮时停止音乐
播放同时退出影片播放，则设置的按钮动作为
答案 （１） ＣＤ
（２）２， １
（３）Ｄ
（４）否
（５） ｏｎ（ｐｒｅｓｓ）｛ｓｔｏｐＡｌｌＳｏｕｎｄｓ（）；ｆｓｃｏｍｍａｎｄ（“ｑｕｉｔ”）；｝
解析 （１）考点：Ｐｈｏｔｏｓｈｏｐ 图层相关操作。 Ａ 链接图层指
图片中相对位置绑定，包括使用自由变换，因“植被”图层被
完全锁定，故两个图层内容都不能被移动或者自由变换，但
不影响图层位置变换；Ｂ 系统默认的背景图层在多图层情况
下是可以被删除的，而这个背景图层文字没有倾斜，且为完
全锁定，故不能被删除，无法保存为透明背景的 ＰＮＧ 格式。
ＣＤ 都是正确答案。
（２）考点：形状补间。 多个文字形状变化为老鹰的位图，文字
需分离 ２ 次，位图需分离 １ 次。
（３）考点：按钮、音效。 Ａ 按钮无效故无声音；Ｂ 文字图层锁
定，无法在空白关键帧上添加内容；Ｃ 只有音效的按钮是无效
按钮；Ｄ 图层锁定状态对空白关键帧执行“清除关键帧”是可
以的，故选 Ｄ。
（４）考点：播放模式，音效。 播放时音效可以检测，且为事件，
所以第 ６０ 帧音效还在继续，２１．８ ｓ 才放完。
（５）考点：按钮动作。 ｏｎ（ｐｒｅｓｓ） ｛ ｝不能省略，停止所有声音
为 ｓｔｏｐＡｌｌＳｏｕｎｄｓ（）；退出影片播放为 ｆｓｃｏｍｍａｎｄ（“ｑｕｉｔ”）。
１５．下图为杭州地铁二号线“三墩”—“建国北路”各站里程数
（公里），根据杭州市地铁计价规则，票价 ２ 元起步，２ 元可乘
４ 公里，４～１２ 公里，每加一元乘 ４ 公里，１２～２４ 公里，每加一
元可乘 ６ 公里，２４ 公里以上，每加一元可乘 ８ 公里 Ａ 同学
是一名 ＶＢ 程序爱好者，现编写了一个 ＶＢ 程序来计算任意
两站之间需要的票价（元） 初始化各站站名存放数组 ａ（ ｉ）
中，“三墩”站为起点其他各站为终点的里程数，分别存放在
数组 ｂ（ｉ）中，在 Ｔｅｘｔ１ 中输入起点站 Ｓ１，Ｔｅｘｔ２ 中输入终点站
Ｓ２，求出里程数 Ｌ 公里，并利用公式计算求出票价 Ｘ 元，输出
到 Ｔｅｘｔ３ 中，并在标签 Ｌａｂｅｌ４ 中输出“一共坐了 ｎ 站”的结果
提示（如起点站“三墩”，终点站“三坝”，则 ｎ ＝ ２），请回答下
列问题：
地铁二号线部分站点里程数
站名数组 ａ１ ａ２ ａ３ ａ４ ａ ａ６ ａ７ ａ８ ａ９ ａ１０ ａ１１ ａ１２
站名 三墩 虾龙圩 三坝 文新 丰潭路 古翠路 学院路 沈塘桥 武林门 凤起路 中河北路 建国北路
距离数组 ｂ１ ｂ２ ｂ３ ｂ４ ｂ ｂ６ ｂ７ ｂ８ ｂ９ ｂ１０ ｂ１１ ｂ１２
里程 ｋｍ ０ １ ２ ２ ４ ３ ２ ６ ７ １ ９ ２ １１ １１ ７ １２ ６ １３
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
4 6
（１）现要更改“Ｌａｂｅｌ３”为“票价”的标签提示框，应修改图中
哪一 项 （ Ａ． Ｌａｂｅｌ３． Ｌａｂｅｌ ／ Ｂ． Ｌａｂｅｌ３． Ｔｅｘｔ ／ Ｃ．
Ｌａｂｅｌ３．（名称） ／ Ｄ．Ｌａｂｅｌ３．Ｃａｐｔｉｏｎ）
（２）Ａ 同学编写 ＶＢ 程序如下，请补全程序：
Dim a(1 To 13) As String '用于存储站名
Dim b(1 To 13) As Single '用于存储里程数（公里）
Private Sub Command1_Click() '输入的站名均
有效
Dim S1 As String, S2 As String, i As Integer,
L As Single, Price As Single
S1 = Text1.Text: S2 = Text2.Text: n = 0: L
= 0
For i = 1 To 13
If S2 = a(i) Or S1 = a(i) Then L = ① : n
= Abs(i - n)
Next i
If L <= 4 Then
Price = 2
ElseIf L <= 12 Then
Price = ②
ElseIf L <= 24 Then
Price = 4 + ((L - 12) + 5.9) \6
Else
Price = 6 + ((L - 24) + 7.9) \8
End If
Text3.Text = Str(Price) + "元": Label4.
Caption = "一共坐了" + Str(n) + "站"
End Sub
Private Sub Form_Load() '初始化站名数据 a(i)和
里程数 b(i)
a(1)="三墩":a(2) ="虾龙圩":a(3)="三坝":a
(4)="文新":a(5)="丰潭路"
a(6)="古翠路":a(7) ="学院路":a(8) ="沈塘
桥":a(9)="武林门":a(10)="凤起路"
a(11)="中河北路":a(12)="建国北路"
b(1)=0:b(2)=1.2:b(3)=2.4:b(4)=3.5:b(5)
=5.2:b(6)=6:b(7)=7.1:b(8)=9.2
b(9)=11.5:b(10)=11.7:b(11)=12.6:b(12)=
13.5
End Sub
①
②
（３）Ａ 同学现要从起点站“建国北路”坐车去终点站“文新”，
请问票价为 元，一共需坐 站
答案 （１）Ｄ
（２） ①Ａｂｓ（ｂ（ ｉ） Ｌ） ② ２＋（（Ｌ ４） ＋３．９） ＼ ４ 或者 ２＋（Ｌ
０．１） ＼４
（３） ４；８
解析 （１） 考点：ＶＢ 基础，对象名，属性名。 故选 Ｄ。
（２）考点：函数应用。 例：“三坝”—“丰潭路”，Ｓ１ ＝ “三坝”，
当 ｉ ＝ ３ 时 Ｓ１＝ａ（３）条件满足，则这时 ｎ＝ ３，Ｌ＝ ２．４（相对于三
墩来说），Ｓ２＝“丰潭路”，当 ｉ ＝ ５ 时，Ｓ２＝ ａ（５）条件满足，这时
ｎ＝ ５，Ｌ ＝ ｂ５ Ｌ（原） ＝ ５．２ ２．４ ＝ ２．８，效仿后面 ｎ ＝ Ａｂｓ（ ｉ
ｎ），故①处 Ｌ＝ Ａｂｓ（ｂ（ ｉ） Ｌ）；根据题目信息，４～ １２ 公里时，
超出部分每 ４ 公里＋１ 元，②处 ４ 公里以外的里程数为 Ｌ ４，
每 ４ 公里加钱（（Ｌ ４） ＋３．９） ＼ ４ 或者（Ｌ ０．１） ＼ ４，再加起步 ４
公里以内的 ２ 元共计 ２＋（（Ｌ ４） ＋３．９） ＼ ４ 或者 ２＋（Ｌ ０．１）
＼４。
（３）根据图表得 ２＋（１０ ０．１） ＼４ ＝ ４ 元，１２ ４＝ ８ 站。
１６．高一新生入学，班主任统计学生信息（２４ 位男生，２４ 位女生）
生成数据库文件，利用 Ｖｉｓｕａｌ Ｂａｓｉｃ 软件制作一个根据身高排
座位的小程序，并实现输入名字可以查询座位 基本算法：
数据库信息包含学生姓名，性别，身高等，利用 ＶＢ 数据库连
接读取数据分别生成数组姓名 ｎ（ ｉ），性别 ｘ（ ｉ），身高 ｈ（ ｉ），
默认按照学生姓名排序，并显示到 Ｌｉｓｔ１ 中；点击按钮 Ｃｏｍ
ｍａｎｄ１（座位排布），按照身高（女男女男……）间隔排序，即
女生按 ｈ（１），ｈ（３），ｈ（５），……升序排序，男生按 ｈ（２），ｈ
（４），ｈ（６），……升序排序，再按 ８ 位同学一横排（女男女男
女男女男）的方式输出到 Ｌｉｓｔ２ 在文本框 Ｔｅｘｔ１ 中输入姓
名，点击 Ｃｏｍｍａｎｄ２（座位查询）后，可在 Ｔｅｘｔ２ 中显示姓名对
应座位（座位数组 ｗ（ｉ）值为“１ ５”表示第 １ 排第 ５ 列），例如
下图所示，Ｔｅｘｔ１ 输入“王芳”，则 Ｔｅｘｔ２ 显示“王芳的座位：２
５”，如找不到，则显示“未找到” 请回答下列问题：
（１）程序如下，请在空缺处补全程序：
Dim n (1 To 48) As String, x (1 To 48) As
String, h (1 To 48) As Integer, w (1 To 48)
As String
Dim t As String, g As Integer '用于数据交换的
临时变量
Const sum=48
Private Sub Form_Load()
'数据库连接，将姓名，性别，身高数据分别读入 n(i),
x(i)和 h(i)中，代码略
End Sub
Private Sub Command1_Click()
For i = 1 To sum-1 Step 2
k = i
For j = i + 1 To sum
If (k = i And x(i) = "男" And x(j) = "女")
Or ( ① ) Then k = j
Next j
If k <> i Then
t = n(k): n(k) = n(i): n(i) = t
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
5 6
t = x(k): x(k) = x(i): x(i) = t
g = h(k): h(k) = h(i): h(i) = g
End If
k = i + 1
For j = i + 2 To sum
If (k = i + 1 And x(i+1) = "女" And x(j) =
"男") Or (x(j) = "男" And h(k) > h(j))
Then k = j
Next j
If k <> i + 1 Then
t = n(k): n(k) = n(i + 1): n(i + 1) = t
t = x(k): x(k) = x(i + 1): x(i + 1) = t
g = h(k): h(k) = h(i + 1): h(i + 1) = g
End If
Next i
s1 = " "
For i = 1 To sum
w(i) = Str((i - 1) \8 + 1) + "-" + Str( ② )
s1 = s1 + n(i) + " "
If i Mod 8 = 0 Then List2.AddItem s1: s1 = " "
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, key As String
key = Text1.Text
For i = 1 To sum
If key = n(i) Then Text2.Text = key + "的座
位：" + w(i): Exit For
Next i
If ③ Then Text2. Text = " 未 找 到 " +
Text1.Text
End Sub
①
②
③
（２）如果出现重名如张敏 １６３ ／ 张敏 １５８，则查询张敏，Ｔｅｘｔ２
中将显示 （填字母：Ａ．张敏 １６３ ／ Ｂ．张
敏 １５８）
答案 （１）①ｘ（ ｊ） ＝ ＂女＂ Ａｎｄ ｈ（ｋ） ＞ ｈ（ ｊ） ②（ ｉ １）
Ｍｏｄ ８ ＋ １ ③ｉ＞ｓｕｍ 或者 ｉ＞４８
（２）Ｂ
解析 （１）①当第 ｊ 位置为女生，且满足身高＜ｈ（ｋ）时，记
录 ｋ＝ ｊ；②求的是第几列，根据前面第（ ｉ １） ＼ ８ ＋ １ 排，则
对应的列数为（ ｉ １）ｍｏｄ ８＋１；③顺序查找，ｉ＞ｓｕｍ 证明查找
全部内容后没有找到，故为答案。
（２）同名问题，因为身高矮的同学排在前面，根据顺序查找只
输出了个子矮的同学，个子高的没有处理，所以选 Ｂ。
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
????
6 6

展开更多......

收起↑