2020-2021學(xué)年浙江省溫州市十校聯(lián)合體高二（下）期末信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題(本大題共12小題,每小題2分,共24分。每小題列出的四個備選項中只有一個是符合題目要求的,不選、多選、錯選均不得分)、
-
1．下列有關(guān)信息和信息處理的說法，正確的是（ ?。?/h2>
組卷：5引用：2難度：0.7 -
2．下列應(yīng)用中，不屬于人工智能應(yīng)用范疇的是（ ?。?/h2>
組卷：8引用：1難度：0.6 -
3．用 Access 軟件設(shè)計某大學(xué)新生管理信息系統(tǒng)的數(shù)據(jù)庫，其中“基本信息表”中需要存儲如表所示的數(shù)據(jù)。
下列關(guān)于該新生管理信息系統(tǒng)的描述，正確的是（ ）學(xué)號 姓名 性別 出生年份 戶籍所在地 注冊日期 是否住校 202002001 張陽 男 2002 溫州市甌海區(qū) 2020/8/31 是 202003001 李玥 女 2001 寧波市北侖區(qū) 2020/8/30 否 ... ... ... ... ... ... ... 組卷：11引用：3難度：0.4 -
4．某數(shù)轉(zhuǎn)換為十進制數(shù)為 n,若n\5=5，則該數(shù)可能是（ ）
組卷：5引用：1難度：0.5 -
5．使用 Photoshop 軟件制作“四月你好”的作品，部分編輯界面如圖所示。
下列說法正確的是（ ?。?/h2>組卷：2引用：1難度：0.4
二、非選擇題(本大題共4小題,共26分)
-
15．為方便習(xí)題講解，需對某次考試中選擇題得分率數(shù)據(jù)進行統(tǒng)計分析，找出選擇題得分率最低的前m 項對應(yīng)的題號及考點（若有與第 m 項得分率相同的，一并選?。?。
編寫 VB 程序，實現(xiàn)上述功能。運行程序時，先讀取每個選擇題的題號、得分率和考點，顯示在列表框 List1 中。在文本框 Text1 中輸入得分率最低的前 m 項值，單擊“統(tǒng)計”按鈕，按照得分率從小到大升序排序，并在列表框 List2 中輸出得分率最低前 m 項的題號、得分率及考點。程序運行界面如圖所示。
請回答下列問題：
（1）“統(tǒng)計”按鈕的事件過程名是。
（2）實現(xiàn)上述功能的 VB 程序如下，請在橫線處填入合適的代碼。
（3）程序中加框處代碼有錯，請改正。
Dim n As Integer
Dim th（0 To 100）As Integer,df（0 To 100）As Single,kd（1 To 100）As String Private Sub Form_Load（ ）
'讀取題號、得分率和考點分別存入數(shù)組 th、df 和 kd 數(shù)組，在列表框 List1 中顯示，代碼略
'選擇題的個數(shù)存入變量 n,代碼略End Sub
Function dq（x As String,k As Integer） As String
'固定數(shù)據(jù)的位數(shù)
dq=x
Do While①
dq=dq+““
Loop
End Function
Private Sub Select_Click（ ?。?br />Dim m As Integer,i As Integer,j As Integer,p As Integer,t As Integer,mm As Integer
List2.Clear
m=Val（Text1.Text）
i=1
Do While i＜=n-1
p=i
For j=i+1 To n
If ②Then p=j
Next j
If p＜＞i Then
t=th（i）：th（i）=th（p）：th（p）=t
End If
If
Then Exit Do'改 錯
i=i+1
Loop
③
For i=1 To mm
List2.AddItem dq（Str（th（i）），6）+dq（Str（df（th（i））），8）+dq（kd（th（i）），12）
Next i End Sub組卷：0引用：1難度：0.3 -
16．在某區(qū)間內(nèi)有若干個障礙物，現(xiàn)需找出一個最大的空正方形用于建設(shè)方形場地。如圖所示，將該區(qū)間用網(wǎng)格表示（區(qū)間范圍 m*n,m、n 的值均在 1-1000 之間），障礙物（黑色圓點） 位于若干個網(wǎng)點上，障礙物個數(shù)及位置隨機生成。
對 w*h（10*8）網(wǎng)格數(shù)據(jù)進行存儲，無障礙物的位置對應(yīng)數(shù)組元素數(shù)值為 0，有障礙物的位置對應(yīng)數(shù)組元素數(shù)值為 1。數(shù)組 d 中數(shù)據(jù)初始化后，對應(yīng)數(shù)組元素數(shù)值 d（2）=1：d（27）=1：d（33）=1：d（45）=1：d（52）=1：d（57）=1，其他數(shù)組元素數(shù)值為 0。對應(yīng)最大空正方形的起始位置為 3，邊長為 4。
找最大空正方形的方法如下：①從當(dāng)前位置右下角開始逐漸擴大正方形邊長，直到有障礙物出現(xiàn)，不能再擴展為止；②取下一個位置，按照步驟①繼續(xù)查找，最后 1 列為邊界，該位置上無需查找。（1）給定 7*8 網(wǎng)格，有障礙物的位置為 d（8）=1：d（18）=1：d（27）=1：d（36）=1：d（52）=1，則對應(yīng)最大空正方形的起始位置和邊長分別為。（注：兩個數(shù)字之間請用逗號“”，隔開）
（2）小李根據(jù)上述描述，設(shè)計了一個查找最大的空正方形起始位置和邊長的算法。算法的 VB 程序如下請在橫線處填入合適的代碼。
Const w=10 Const h=8
Dim d（1 To w*h） As Integer Private Sub Form_Load（ ?。?br />'數(shù)組初始化，無障礙物的位置對應(yīng)數(shù)組元素值為 0，有障礙物的位置對應(yīng)數(shù)組元素數(shù)值為 1
End Sub
Private Sub Command1_Click（ ?。?br />Dim i As Integer,length As Integer,maxw As Integer
Dim max As Integer
max=0
For i=1 To w*h
If i Mod w＜＞0 Then'判斷該位置是否需要查找
①
If length＞max Then max=length：maxw=i
End If
Next i
'輸出最大空正方形的起始位置和邊長，代碼略。End Sub
Function scan（k As Integer） As Integer
Dim j As Integer
Dim t As Integer,s As Integer
Dim dw As Integer
t=1
Do While k\w+1+t＜h And②
s=0
dw=k+w+1
For j=1 To t^2
s=s+d（dw+w*（（j-1）\t）+（j-1）Mod t）
Next j
If③Then
Exit Do'退出循環(huán)
Else
t=t+1
End If
Loop
scan=t End Function組卷：0引用：1難度：0.5