2018-2019學年浙江省稽陽聯誼學校高三（下）月考信息技術試卷（3月份）
發布：2024/12/18 3:30:1
一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）
-
1．下列有關信息與信息技術的說法，正確的是（ ）
組卷：45引用：1難度：0.7 -
2．關于信息技術名詞簡稱的解釋，下列說法不正確的是（ ）
組卷：40引用：2難度：0.7 -
3．用Word軟件編輯某文檔，如圖所示，下列說法正確的是（ ）
組卷：17引用：4難度：0.4 -
4．使用Access軟件打開數據庫，部分界面如圖所示。下列說法正確的是（ ）
組卷：12引用：1難度：0.5 -
5．某算法的部分流程圖如圖所示。執行該流程，輸出s的值約為（ ）
組卷：5引用：1難度：0.4
二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分．）
-
16．本程序的功能是在列表框List1中隨機產生n（n為偶數）個[1，20]之間的不重復正整數，存入數組a中。點擊“排序”按鈕Command1，對n個數進行排序。使得奇數位上是降序，偶數位上是升序，且a（1）＜a（2），并在List2中顯示排序后的結果。實現該功能的VB程序如下，但波浪線處代碼有錯，請改正。
Const n=8
Dim a（1 To n） As Integer,b（1 To n） As Integer
Private Sub Form_Load （ ）
‘隨機產生n個[1，20]之間的不重復的正整數，并在list1中顯示具體代碼略
End Sub
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer,t As Integer,p as integer,p as integer
For i=1 To n-1
For j=n To i+1 Step-1
If a（j）＜a（j-1）Then
t=a（j）：a（j）=a（j-1）：a（j-1）=t
end If
Next j
Next i
p=n：
（1）
For i=1 To n Step 2
（2）
b（i+1）=a（q）
p=p-2
q=q+1
Next i
For i=1 To n
List2．AddItem Str（b（i））
Next i
End Sub組卷：5引用：1難度：0.5 -
17．用一個6*5矩陣表示地圖，分別用a數組元素表示，第1行從左到右為a（1）到a（6），依此類推，右下角為a（30）。其中數字0表示不通，數字1表示暢通。現在要從左上角到右下角尋找一條暢通的路徑。線路規則如下：
?路線每個點只能向右或向下
?任何一個岔口優先向右走，右側不通再向下走
?一條路線中每個點只能走一次，不能重復
算法思路：探路過程中，記錄每個坐標到數組lu；遇到岔路口（向右向下都通），則記錄路口坐標到數組cha；遇到前方無路時，需要返回到上一個路口，標記路口右側坐標為0；當前方無路，岔路口數組也退回到0，說明整體不通，否則根據規則走到右下為止，最后輸出整體線路坐標。
實現算法的程序如下，運行結果如右圖所示。
回答下列問題：
（1）根據規則，如圖迷宮矩陣正確路線的第6個點是a數組的第個元素（填數字）
（2）在程序橫線處填上合適代碼，使程序完整。
Dim a（1 To 50）As Integer
Private Sub Command1_Click （ ）
Dim i As Integer,j As Integer,pos As Integer
Dim cha（1 To 10）As Integer'記錄一條線路中各個岔路口坐標
Dim lu（1 To 10）As Integer'記錄路線經過的坐標
pos=1：j=0：lu（1）=1：i=1
Do While i＜=9‘第1個和最后1個固定，中間有9個需要路過的坐標
If pos Mod 6＜＞0 And a（zb+1）=1 Then'向右暢通
If pos+6＜=30 and a（zb+6）=1 Then‘記錄岔路口
j=j+1
①
End If
pos=pos+1
i=i+1
②
ElseIf pos+6＜=30 And a（pos+6）=1 Then'向下暢通
pos=pos+6
i=i+1
lu（i）=pos
Else'坐標退回到上一個岔路口
If j=0 Then Exit Do
Do While lu（i）＜＞cha（j）
③
Loop
a（cha（j）+1）=0’標記此路口右側不可用
pos=cha（j）
j=j-1
End If
Loop
If j=0 Then
Text1．Text=“沒有暢通道路“
Else
For i=1 To 10
Text1．Text=Text1．Text+Str（lu（i））
Next i
End If
End Sub組卷：0引用：1難度：0.9