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