2019-2020學年浙江省臺州市高三（上）月考信息技術試卷（11月份）
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關信息的說法，錯誤的是（ ）
組卷：14引用：1難度：0.6 -
2．下列有關電子郵件的說法，正確的是（ ）
組卷：3引用：1難度：0.5 -
3．Access中的一張數據表設計視圖如圖所示。下列說法正確的是（ ）組卷：2引用：1難度：0.6 -
4．下列關于數制的說法，錯誤的是（ ）
組卷：11引用：2難度：0.4 -
5．使用Photoshop軟件制作“垃圾分類”作品，部分界面如圖所示。下列說法正確的是（ ）
組卷：7引用：1難度：0.5
二、非選擇題（本大題共4小題，其中第13小題4分，第14小題8分，第15小題7分，第16小題7分，共26分）
-
15．小王基于選擇排序算法編寫了一個VB程序，功能如下：讀取若干數據依次存儲在數組a中，并將數據分段排序，每段數據的元素個數及排序的次序要求依次存儲在數組b中。如圖，在文本框Text1中顯示數組a的原始數據，在文本框Text2中顯示每段數據的元素個數及排序次序要求（0表示升序、1表示降序）；單擊“排序”按鈕Command1，根據要求輸出對每段數據進行排序的結果。實現上述功能的VB程序如下：
Dim n As Integer
Im a（1 To 100）As integer
Dim b（1 To 100）As Integer
Private Sub Form _Load（ ）
'讀取若干數據依次存儲到數組a中，并將數據元素的總個數仔儲到變量n中
'將每段數據的元素個數及排序的次序依次存儲到數組b中：
'b（1）、b（2）分別存儲第1段數據的元素個數，排序的次序，
'b（3）、b（4）分別存儲第2段數據的元素個數、排序的次序，…
'代碼略
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）觀察代碼，排序后的數據輸出在對象中（填對象名）。
（2）程序中加框處代碼有錯，請改正。
（3）為了實現上述功能，請在橫線處填寫合適的代碼。
（4）若程序運行時，讀取了100個整數存儲到數組a中，數組b各元素的值依次為“30，1，20，0，40，0，10，1”，則程序運行到（4）處代碼時，endpos的值為。組卷：0引用：1難度：0.3 -
16．給定一個數組（有n個元素），小李通過邊分段、邊合并的方式將n個數據處理成一個非降序數據段（a（1）≤a（2）≤a（3）≤……≤a（n）），每一輪數據處理方法如下：
（1）查找相鄰兩個非降序數據段
在未處理的數據區域中，從前往后找出第一個最長非降序數據段。若該數據段后而沒有元素，則本輪處理完畢；否則在第1個數據段的后面，從前往后找出數組中第二個最長非降序數據段。
（2）合并兩個數據段
借助數組tmp,將查找到的兩個相鄰數據段合并成一個非降序數據段，然后將合并后的數據依次存回到原數組中。
（3）若數組中還有未處理的數據，則重復（1）（2）步驟。
每一輪數據處理完畢后，重新從數組第1個數據開始進行下一輪處理。若檢測到某一輪沒有合并處理，則說明n個數據已構成非降序數據段，數據處理結束。
（1）根據上述描述，若數組各元素為“3，9，7，6，8，2，1，5，7，4”，則第一輪合并處理完成后，數組中的數據依次是：（用“，”間隔）。
（2）實現上述功能的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個整數保存到數組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（ ）
Do While True
Ir Not Merge（ ） Then Exit Do
′在列表框List1中輸出這一輪合并后的數據，代碼略
Loop
End sub組卷：0引用：1難度：0.3