2018-2019學年浙江省杭州市西湖高級中學高二（下）月考信息技術試卷（5月份）
發(fā)布：2024/11/30 1:30:2
一、選擇題（本大題共12小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分．）
-
1．某軟件通過分析買家的信用評價數(shù)據(jù)，告訴店主該買家是屬于正常買家還是屬于“職業(yè)差評師”，對此以下說法錯誤的是（ ）
組卷：11引用：3難度：0.9 -
2．下列關于網(wǎng)站和網(wǎng)頁說法不正確的是（ ）
組卷：18引用：2難度：0.5 -
3．小華使用清華 TH-OCR 軟件進行字符識別時，若要取消已劃分的識別區(qū)域，可使用“圖象”菜單下的命令是（ ）
組卷：17引用：2難度：0.4 -
4．使用Access軟件創(chuàng)建的數(shù)據(jù)表，其設計視圖的部分界面如圖所示，下列說法不正確的是（ ?。?br />
組卷：19引用：3難度：0.5 -
5．關于位圖和矢量圖的說法，下列正確的是（ ?。?/h2>
組卷：11引用：2難度：0.6
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．統(tǒng)計學中的“中位數(shù)”是這樣的一種數(shù)：一組數(shù)據(jù)里的一半的數(shù)據(jù)比它大，而另外一半數(shù)據(jù)比它小。計算一組數(shù)據(jù)的中位數(shù)的方法是：把所有數(shù)據(jù)按照非升的次序排列。如果數(shù)據(jù)的個數(shù)是奇數(shù)，則中間那個數(shù)就是這組數(shù)據(jù)的中位數(shù)；如果個數(shù)是偶數(shù)，則中間兩個數(shù)的算術平均值是中位數(shù)。
小詩收集了全市部分教職員工的工資數(shù)據(jù)，設計了找中位數(shù)的程序如下。小詩收集的人員工資數(shù)據(jù)放在了 Access 數(shù)據(jù)庫中。小詩的程序在窗體加載時讀出了所有人員的數(shù)據(jù)：姓名放在數(shù)組a中，對應的工資放在數(shù)組b中，數(shù)據(jù)總記錄數(shù)放在n中。單擊按鈕 Command1后先以工資按非升的次序排序，然后找出中位數(shù)。
（1）要使程序運行時，從數(shù)據(jù)庫中讀取所有人員的數(shù)據(jù)，可在事件過程中添加相關代碼。（單選，填字母：A．Form1_load/B．Form_load/C．Form1．Caption）
Dim a（1 To 1000）As String
Dim b（1 To 1000）As Single
Dim n As Integer
‘數(shù)據(jù)庫讀取所有人員的數(shù)據(jù)代碼略
Private Sub Command1_Click （ ?。?br />Dim i As Integer,j As Integer,k As Integer
Dim tmp1 As Single,tmp2 As String
Dim median As Single
For i=n To 2 step-1
k=i
For j=i-1 To 1 step-1
If
Then
k=j
End If
Next j
If k＜＞i Then
tmp1=b（k）：b（k）=b（i）：b（i）=tmp1
tmp2=a（k）：a（k）=a（i）：a（i）=tmp2
End If
Next i
For i=1 To n
List1．AddItem Str（i） &““& a（i） &““& Str（b（i））
Next i
If n Mod 2=0 Then
median=② Else
median=b（n\2+1）
End If
Label1．Caption=“中位數(shù)是：“& Str（median）
End Sub
（2）將橫線處代碼補充完整。
（3）程序代碼中，波浪線處有錯，請改正。
（4）如圖所示，數(shù)據(jù)庫中一共有個教職員工。組卷：11引用：2難度：0.3 -
16．在Excel中進行數(shù)據(jù)排序，先按主關鍵字進行排序，主關鍵字相同的記錄再按次關鍵字進行排序。編寫一個VB程序，功能如下：在文本框Text1中隨機產生100個兩位數(shù)的正整數(shù)作為主關鍵字，在文本框Text2中隨機產生100個兩位數(shù)的正整數(shù)作為次關鍵字，單擊“排序”按鈕Command1，在列表框List1中顯示排序后的結果（主、次關鍵字均為降序）。程序運行界面如圖所示。
（1）觀察代碼，該排序過程中，交換次數(shù)最多能達到次。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入正確語句。
Dim z（1 To 100）As Integer
Dim c（1 To 100）As Integer
‘文本框獲取主、次數(shù)組數(shù)據(jù)代碼略
Private Sub Command1_Click （ ?。?br />Dim i As Integer,j As Integer
i=1
Do While i＜=99
j=100
Do While ①
If z（j）＞z（j-1）Or ②Then
t=z（j）：z（j）=z（j-1）：z（j-1）=t
t=c（j）：c（j）=c（j-1）：c（j-1）=t
End If
j=j-1
Loop
③
Loop
List1．AddItem““+“主“+““+“次“
For i=1 To 100
List1．AddItem Str（z（i））+Str（c（i））
Next i
End Sub組卷：8引用：2難度：0.4