2018-2019学年浙江省金华十校高三（上）月考信息技术试卷（9月份）
发布：2024/4/20 14:35:0
一、选择題（本大题共9小题，每小题2分，共24分．在每小题给出的四个选项中，只有一个符合题目要求）
-
1．考古人员通过对出土文物进行研究分析，推测古人的政治、文化、经济活动状况。以下说法不正确的是（ ）
组卷：17引用：2难度：0.6 -
2．下列说法中，正确的是（ ）
组卷：16引用：3难度：0.5 -
3．使用OCB软件将某产品海报识别后使用Word编辑，界面如图所示，以下说法不正确的是（ ）
组卷：0引用：1难度：0.5 -
4．使用 Access 软件统计某班高三毕业生高考成绩，如图所示：
以下说法正确的是（ ）组卷：0引用：1难度：0.4 -
5．某算法的流程图如图所示，该流程执行后，以下说法不正确的是（ ）
组卷：0引用：1难度：0.4
【加试题】
-
16．查找峰值问题：随机生成n个正整数（假设n=20，取值范围为0～100），存储于数组a 中，将这些数按顺序映射在坐标轴上，相邻的数用直线相连，构建了类似于“心电图”的折线：
编写VB程序统计所有的峰值（peak）、峰值数量（ count）和最高点（high）。
实现上述功能的ⅤB程序如下，横线处的代码有错误，请改正。
Const n=20
Dim a（l To n）As Integer
Private Sub Form_Load（ ）
“随机生成n个数，存储于数组a中，并输出在Listl中。
“代码略。
End sub
Private Sub Command1_Click（ ）
Dim count As Integer
Dim high As Integer
Dim peak As Integer
Dim i As Integerj As Integer
count=0
if a（1）＞a（2）then count=1
high=-1
i=1
Do While i＜n-1
j=i+1
If a（j）＞a（j-1）Then
Do While a（j）＞a（j-1）
j=j+1
Lop
count=count+1
①
List2．AddItem“第“+Str（count）+“个峰值：“+Str（peak）
If peak＞high Then high=peak
②
Else
i=i+1
End If
Loop
List2．AddItem“共有：““+Str（coun+）+“个峰值：“+Str（peak）
List2．AddItem“最高点是：“+Str（high）
End Sub组卷：0引用：1难度：0.5
【加试题】
-
17．波波同学一直梦想买彩票中500万大奖，他收集了最近100期“双色球”开奖信息，存储于 data.accdb文件中，并使用VB软件编写了“双色球投注建议”程序，程序根据最近100期开奖信息统计出现概率最低的6个红色球号码和1个蓝色球号码，给出投注建议。如果蓝色球有多个概率最低的号码，则输出多个，红色球不考虑并列概率最低情况。
注：福彩“双色球”玩法：在1-33个红色球号码中随机生成6个号码，在1-16个蓝色球号码中随机生成1个号码，共计6+1个号码开奖。
程序运行界面如图所示：
（1）实现上述功能的VB程序如下请完善横线处的代码。
Dim red（1 To 600）As Integer“用于存储100*6红色球信息
Dim blue（1 To 100）As Integer“用于存储100*1蓝色球信息
Private Sub Form_Load（ ）
“本过程用于从数据库 data.accdb中读取最近100期双色球开奖信息
“将100*6个红色球开奖信息依次存储在数组red（ ）中
“将100*1个蓝色球开奖信息依次存储在数组blue（ ）中
“将最近100期开奖信息格式化后显示在列表框Listl中
“本过程代码略
End Sub
Private Sub Commandl_Click（ ）
Dim min As Integer
Dim s As string
Dim f（1 To 33）As Integer
“------以下开始处理蓝色球部分---------
For b=1 To 100
f（blue（b））=f（blue（b））+1
Next b
min=100
For i=1 To 16
If f（i＜min Then min=f（i）
Next i
For i 1 To 16
If f （i）=min Then s=①
f（i）=0
Next i
List2．AddItem“蓝色球重点买入：“+s
“---------以下开始处理红色球部分--------
For r=1 To 600
②
Next r
③
（2）在某次红球部分处理时，若数组f中的，f（1）至f（33）的值依次为：For i=1 To 6“查找概率最低的6个红球数字
k=1
For j=2 To 33
if f（j）＜f（k） Then k=j
Next j
s=s+Str（k）
f（k）=100
Next i
list2．AddItem“红色球重点买入：“+s“第（2）题红球购买建议
End Sub
结合表格处代码的算法，输出的内容是：f（1）-f（11） 6 8 20 25 16 21 14 20 24 28 26 f（12）-f（22） 1 30 8 1 10 10 33 28 32 20 6 f（23）-f（23） 4 34 29 18 25 30 4 13 30 20 6
红色球重点买入：（按输出顺序写出6个红球号码）。组卷：0引用：1难度：0.5
