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