2017年3月浙江省十校聯盟選考信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題（本大題共12小題，每小題2分，共24分.在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列軟件中，主要用于編輯“靜待花開。psd”文件的是（ ）
組卷：8引用：3難度：0.9 -
2．下列關于信息獲取與交流的說法中正確的是（ ）
組卷：12引用：2難度：0.9 -
3．在Word中輸入“boxs”時，會立刻變成“boxes”，這是因為Word軟件具有（ ）
組卷：14引用：3難度：0.9 -
4．下列關于Access數據庫與數據表的說法不正確的是（ ）
組卷：11引用：1難度：0.5 -
5．某算法的部分流程圖如圖所示，執行這部分流程后，下列說法正確的是（ ）
組卷：5引用：1難度：0.7
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）
-
16．某地2017.1-2017.2月的日期及日最高氣溫數據保存在數據庫中．現要求根據日最高氣溫，找出這兩個月中連續降溫的次數、連續最長降溫天數及其日期．小劉為此編寫了VB程序，程序運行時，單擊按鈕Commandl后，在標簽Labell和Label2上輸出運行結果．實現上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Dim a（1 To 59）As String’依次存儲2017.1-2017.2 月的日期數據
Dim b（1 To 59）As Integer’依次存儲2017.1-2017.2月的日最高氣溫數據
Private Sub Form_Load（ ）
’本過程從數據庫中按2017.1-2017.2的日期次序，讀取日期和日最高氣溫數據，分別并存儲在數組a和數組b中
’代碼略
End Sub
Private Sub Commandl_Click（ ）
Dim d As Integer,n As Integer
Dim dmax As Integer,m As Integer
n=0：d=1：dmax=1
For i=2 To 59
d=d+1
Else
d=1
End If
If d=2 Then n=n+1
If d＞dmax Then
dmax=d
m=i
End If
Next i
Label 1．Caption=〃連續降溫次數〃& Str（n）
Label 2．Caption=〃連續最長降溫日期為：
&〃持續天數為：〃& Str（dmax）
End Sub.組卷：12引用：1難度：0.1 -
17．小劉在研究n個數的冒泡排序算法時，發現可以從兩個方面進行優化：
（1）在每遍冒泡過程中，若最后一次交換的是last與last-1位置的數，則last位置之前的相鄰數據均已有序．進行下一遍冒泡時，無序區域設置為[last,n]，這樣一遍排序可能使當前無序區域縮小．
（2）若在某一遍排序中沒有數據交換，說明待排序數據都已經有序，冒泡排序過程可在此遍排序后終止．因此可以引入一個邏輯變量flag,記錄在每遍排序過程中是否發生了交換，每遍排序結束時檢查flag,若未發生過交換則終止排序．
小劉按上述方法編寫的冒泡優化VB程序，功能如下：單擊“生成數據”按鈕Commandl后，生成一組隨機的兩位整數存入數組a,并顯示在列表框Listl中．單擊“排序”按鈕Command2后，對數組a 中的數據進行降序排序，排序后的數據顯示在列表框List2中，排序過程中實際的 泡遍數顯示在標簽Label2上．程序運行界面如圖所示．
實現上述功能的VB程序如下，請回答下列問題：
（1）若按小劉優化后的冒泡排序算法，對數據28，15，10，8，12進行降序排序，冒泡的遍數為（填數字）．
（2）請在①②③橫線處填入合適的代碼．
Dim a（1 To 20）As Integer
Private Sub Command1_Click（ ）
Dim i As Integer,j As Integer
Listl.Clear：List2．Clear
Randomize
’產生20個無重復的隨機整數，范圍為[10，99]，并存儲在數組a中
For i=1 To 20
a（i）=
j=1
For j=1 To i-1
If a（i）=a（j）Then
i=i-1
Exit For’退出循環
End If
Next j
Next i
For i=1 To 20
Listl.Addltem Str（a（i））
Next i
End Sub
Private Sub Command2_Click（ ）
Dim flag As Boolean,i As Integer,j As Integer
Dim temp As Integer,num As Integer,last As Integer
num=0：last=1
flag=True
Do While
flag=False
For
If a（j）＞a（j-1）Then
temp=a（j）：a（j）=a（j-1）：a（j-1）=temp
last=j
flag=True’有交換發生
End If
Next j
num=num+1
Loop
For i=1 To 20
List2．Additem Str（a（i））
Next i
Label3．Caption=〃本次排序的冒泡遍數為：〃& Str（num）
End Sub.組卷：13引用：1難度：0.1