2018-2019學(xué)年浙江省金華十校高三（上）月考信息技術(shù)試卷（9月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共9小題，每小題2分，共24分．在每小題給出的四個(gè)選項(xiàng)中，只有一個(gè)符合題目要求）
-
1．考古人員通過對(duì)出土文物進(jìn)行研究分析，推測(cè)古人的政治、文化、經(jīng)濟(jì)活動(dòng)狀況。以下說法不正確的是（ ?。?/h2>
組卷：17引用：2難度：0.6 -
2．下列說法中，正確的是（ ）
組卷：16引用：3難度：0.5 -
3．使用OCB軟件將某產(chǎn)品海報(bào)識(shí)別后使用Word編輯，界面如圖所示，以下說法不正確的是（ ）
組卷：0引用：1難度：0.5 -
4．使用 Access 軟件統(tǒng)計(jì)某班高三畢業(yè)生高考成績(jī)，如圖所示：
以下說法正確的是（ ?。?/h2>組卷：0引用：1難度：0.4 -
5．某算法的流程圖如圖所示，該流程執(zhí)行后，以下說法不正確的是（ ?。?br />
組卷：0引用：1難度：0.4
【加試題】
-
16．查找峰值問題：隨機(jī)生成n個(gè)正整數(shù)（假設(shè)n=20，取值范圍為0～100），存儲(chǔ)于數(shù)組a 中，將這些數(shù)按順序映射在坐標(biāo)軸上，相鄰的數(shù)用直線相連，構(gòu)建了類似于“心電圖”的折線：
編寫VB程序統(tǒng)計(jì)所有的峰值（peak）、峰值數(shù)量（ count）和最高點(diǎn)（high）。
實(shí)現(xiàn)上述功能的ⅤB程序如下，橫線處的代碼有錯(cuò)誤，請(qǐng)改正。
Const n=20
Dim a（l To n）As Integer
Private Sub Form_Load（ ?。?br />“隨機(jī)生成n個(gè)數(shù)，存儲(chǔ)于數(shù)組a中，并輸出在Listl中。
“代碼略。
End sub
Private Sub Command1_Click（ ?。?br /> 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）+“個(gè)峰值：“+Str（peak）
If peak＞high Then high=peak
②
Else
i=i+1
End If
Loop
List2．AddItem“共有：““+Str（coun+）+“個(gè)峰值：“+Str（peak）
List2．AddItem“最高點(diǎn)是：“+Str（high）
End Sub組卷：0引用：1難度：0.5
【加試題】
-
17．波波同學(xué)一直夢(mèng)想買彩票中500萬大獎(jiǎng)，他收集了最近100期“雙色球”開獎(jiǎng)信息，存儲(chǔ)于 data.accdb文件中，并使用VB軟件編寫了“雙色球投注建議”程序，程序根據(jù)最近100期開獎(jiǎng)信息統(tǒng)計(jì)出現(xiàn)概率最低的6個(gè)紅色球號(hào)碼和1個(gè)藍(lán)色球號(hào)碼，給出投注建議。如果藍(lán)色球有多個(gè)概率最低的號(hào)碼，則輸出多個(gè)，紅色球不考慮并列概率最低情況。
注：福彩“雙色球”玩法：在1-33個(gè)紅色球號(hào)碼中隨機(jī)生成6個(gè)號(hào)碼，在1-16個(gè)藍(lán)色球號(hào)碼中隨機(jī)生成1個(gè)號(hào)碼，共計(jì)6+1個(gè)號(hào)碼開獎(jiǎng)。
程序運(yùn)行界面如圖所示：
（1）實(shí)現(xiàn)上述功能的VB程序如下請(qǐng)完善橫線處的代碼。
Dim red（1 To 600）As Integer“用于存儲(chǔ)100*6紅色球信息
Dim blue（1 To 100）As Integer“用于存儲(chǔ)100*1藍(lán)色球信息
Private Sub Form_Load（ ）
“本過程用于從數(shù)據(jù)庫(kù) data.accdb中讀取最近100期雙色球開獎(jiǎng)信息
“將100*6個(gè)紅色球開獎(jiǎng)信息依次存儲(chǔ)在數(shù)組red（ ?。┲?br />“將100*1個(gè)藍(lán)色球開獎(jiǎng)信息依次存儲(chǔ)在數(shù)組blue（ ?。┲?br />“將最近100期開獎(jiǎng)信息格式化后顯示在列表框Listl中
“本過程代碼略
End Sub
Private Sub Commandl_Click（ ?。?br />Dim min As Integer
Dim s As string
Dim f（1 To 33）As Integer
“------以下開始處理藍(lán)色球部分---------
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“藍(lán)色球重點(diǎn)買入：“+s
“---------以下開始處理紅色球部分--------
For r=1 To 600
②
Next r
③
（2）在某次紅球部分處理時(shí)，若數(shù)組f中的，f（1）至f（33）的值依次為：For i=1 To 6“查找概率最低的6個(gè)紅球數(shù)字
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“紅色球重點(diǎn)買入：“+s“第（2）題紅球購(gòu)買建議
End Sub
結(jié)合表格處代碼的算法，輸出的內(nèi)容是：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
紅色球重點(diǎn)買入：（按輸出順序?qū)懗?個(gè)紅球號(hào)碼）。組卷：0引用：1難度：0.5