2019-2020學(xué)年浙江省臺州市高三（上）月考信息技術(shù)試卷（11月份）
發(fā)布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關(guān)信息的說法，錯誤的是（ ?。?/h2>
組卷：14引用：1難度：0.6 -
2．下列有關(guān)電子郵件的說法，正確的是（ ?。?/h2>
組卷：3引用：1難度：0.5 -
3．Access中的一張數(shù)據(jù)表設(shè)計視圖如圖所示。下列說法正確的是（ ?。?/h2>組卷：2引用：1難度：0.6 -
4．下列關(guān)于數(shù)制的說法，錯誤的是（ ?。?/h2>
組卷：11引用：2難度：0.4 -
5．使用Photoshop軟件制作“垃圾分類”作品，部分界面如圖所示。下列說法正確的是（ ?。?br />
組卷：7引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．小王基于選擇排序算法編寫了一個VB程序，功能如下：讀取若干數(shù)據(jù)依次存儲在數(shù)組a中，并將數(shù)據(jù)分段排序，每段數(shù)據(jù)的元素個數(shù)及排序的次序要求依次存儲在數(shù)組b中。如圖，在文本框Text1中顯示數(shù)組a的原始數(shù)據(jù)，在文本框Text2中顯示每段數(shù)據(jù)的元素個數(shù)及排序次序要求（0表示升序、1表示降序）；單擊“排序”按鈕Command1，根據(jù)要求輸出對每段數(shù)據(jù)進行排序的結(jié)果。實現(xiàn)上述功能的VB程序如下：
Dim n As Integer
Im a（1 To 100）As integer
Dim b（1 To 100）As Integer
Private Sub Form _Load（ ?。?br />'讀取若干數(shù)據(jù)依次存儲到數(shù)組a中，并將數(shù)據(jù)元素的總個數(shù)仔儲到變量n中
'將每段數(shù)據(jù)的元素個數(shù)及排序的次序依次存儲到數(shù)組b中：
'b（1）、b（2）分別存儲第1段數(shù)據(jù)的元素個數(shù)，排序的次序，
'b（3）、b（4）分別存儲第2段數(shù)據(jù)的元素個數(shù)、排序的次序，…
'代碼略
End Sub
Private Sub Commandl Click
Dim i As Integer,j As Integer,k As Integer,t As Integer
Dim pb As Integer,endpos As Integer
pb=1：endpos=b（1）
For i=1 To n-1
If i=endpos Then
pb=pb+2：i=endpos+1
①
End If
k=i
For j=i+1 To endpos
If
Thenk=j
Next j
Ifk＜＞i Then
②
End If
Next i
Text3 Text=″″
Fori=1 To n
Text3 Text-Text3 Text Str（a（i））
End Sub
（1）觀察代碼，排序后的數(shù)據(jù)輸出在對象中（填對象名）。
（2）程序中加框處代碼有錯，請改正。
（3）為了實現(xiàn)上述功能，請在橫線處填寫合適的代碼。
（4）若程序運行時，讀取了100個整數(shù)存儲到數(shù)組a中，數(shù)組b各元素的值依次為“30，1，20，0，40，0，10，1”，則程序運行到（4）處代碼時，endpos的值為。組卷：0引用：1難度：0.3 -
16．給定一個數(shù)組（有n個元素），小李通過邊分段、邊合并的方式將n個數(shù)據(jù)處理成一個非降序數(shù)據(jù)段（a（1）≤a（2）≤a（3）≤……≤a（n）），每一輪數(shù)據(jù)處理方法如下：
（1）查找相鄰兩個非降序數(shù)據(jù)段
在未處理的數(shù)據(jù)區(qū)域中，從前往后找出第一個最長非降序數(shù)據(jù)段。若該數(shù)據(jù)段后而沒有元素，則本輪處理完畢；否則在第1個數(shù)據(jù)段的后面，從前往后找出數(shù)組中第二個最長非降序數(shù)據(jù)段。
（2）合并兩個數(shù)據(jù)段
借助數(shù)組tmp,將查找到的兩個相鄰數(shù)據(jù)段合并成一個非降序數(shù)據(jù)段，然后將合并后的數(shù)據(jù)依次存回到原數(shù)組中。
（3）若數(shù)組中還有未處理的數(shù)據(jù)，則重復(fù)（1）（2）步驟。
每一輪數(shù)據(jù)處理完畢后，重新從數(shù)組第1個數(shù)據(jù)開始進行下一輪處理。若檢測到某一輪沒有合并處理，則說明n個數(shù)據(jù)已構(gòu)成非降序數(shù)據(jù)段，數(shù)據(jù)處理結(jié)束。
（1）根據(jù)上述描述，若數(shù)組各元素為“3，9，7，6，8，2，1，5，7，4”，則第一輪合并處理完成后，數(shù)組中的數(shù)據(jù)依次是：（用“，”間隔）。
（2）實現(xiàn)上述功能的VB程序如下，請在橫線處填入合適代碼。
Const n As Integer=10
Dim a（I To n+5）As integer
Dim tmp（I To n+5）As Integer
Private Sub Form Load
′讀取n個整數(shù)保存到數(shù)組a中，并在文本框 TextI中顯示，代碼略
End sub
Function Position（ low As Integer） As integer
Dim i As Integer
For i-low Ton-1
If①Then Exit For
Next i
Position-=i
End Function
Function Merged As Boolean
Dim i As Integer,flag As Boolean,pI As Integer.p2 As Integer
Dim low I As Integer,highI As Integer,high2 As Integer
flag False：lowl=1
Do While low I＜n
highl-Position（lowD）
If highI-n Then Exit Do Else flag True
high2-Position（highl+1）
pl-lowl：p2-highl+I
Do while②
If p2＞high2 Or pl c-highl And a（pl）＜a（p2）Then
tmp（i）a（p2）：pl=pl+1
tmp-a（p2）：p2-p2+1
End If
i=i+1
Loop
For i=low I To high2
a（0）=tmp（o）
Next i
③
Loop
Merge=fIng
End Function
Private Sub Commandl _Click（ ?。?br />Do While True
Ir Not Merge（ ） Then Exit Do
′在列表框List1中輸出這一輪合并后的數(shù)據(jù)，代碼略
Loop
End sub組卷：0引用：1難度：0.3