2019-2020學年浙江省金華十校高二（下）期末信息技術(shù)試卷
發(fā)布：2024/4/20 14:35:0
一、選擇題
-
1．下列說法正確的是（ ）
組卷：1引用：1難度：0.7 -
2．簡單郵件傳輸協(xié)議（SMTP）用于（ ）
組卷：4引用：2難度：0.7 -
3．使用 UltraEdit 軟件觀察字符“一帶一路 B&R 2019”的內(nèi)碼，部分界面如圖所示。下列說法正確的是（ ?。?br />
組卷：2引用：1難度：0.5 -
4．使用Word軟件編輯某文檔，部分界面如圖所示，下列說法正確的是（ ?。?br />
組卷：4引用：1難度：0.6 -
5．下列關(guān)于 Access 的說法正確的是（ ?。?/h2>
組卷：3引用：1難度：0.5
二、非選擇題
-
15．星期天，小杰來到動物園游玩，園內(nèi)共有N個景點，每個景點都有一個標號，標號為1至N．現(xiàn)在只知道每個景點有一條路連接下一個景點。小杰想知道，根據(jù)這些道路信息，從其中一個景點出發(fā)，最后再回到出發(fā)景點，最多能游玩多少個景點。例如，共有N=5個景點，每個景點連接的下一個景點分別是2，4，5，5，2，如下表所示。
則他可以從2號景點出發(fā)，最多可以游玩2號4號、5號三個景點，程序運行界面如圖所示。景點號 1 2 3 4 5 下一景點號 2 4 5 5 2
程序代碼如下：
Private Sub Command1_Click （ ）
Dim a（1 To 100）As Integer,d（1 To 100）As Integer
'數(shù)組a存放下一景點號
Dim jd As String,m As String,c As Integer,i As Integer
Dim s As Integer,p As Integer,k As Integer,ans As Integer
jd=Text1．Text+″，″
s=0：c=0
For i=1 To Len（jd）
m=Mid（jd,i,1）
If m＜＞″，″Then
s=s*10+Val（m）
Else
c=c+1：a（c）=s：s=0'含義
End If
Next i
For i=1 To c
d（i）=0
Next
ans=0：k=0
For i=1 Toc'枚舉游覽起點
If d（i）=0 Then
p=i
Do While d（p）=0
k=k+1：d（p）=k：p=p+1'改錯
Loop
y='填空
If y＞ans Then ans=y
k=0
End If
Next i
Text2．Text=Str（ans）
End Sub
（1）若要實現(xiàn)顯示“景點連接情況：”的Textl在程序運行時默認為空，則需要將Text1的屬性設置為空。
（2）若有7個景點，且每個景點的連接情況為6，3，7，2，7，5，4，則小杰最多可以游玩的景點數(shù)是。
（3）程序代碼中，“含義”處的“a（c）=s”語句代表的含義是。
（4）程序代碼中，“改錯”處的語句有誤，應改為。
（5）程序代碼中，將“填空”處的語句補充完整。組卷：0引用：1難度：0.5 -
16．給定一個序列 a,這個序列由 n 個數(shù)組成（n 個數(shù)依次保存 在數(shù)組 a（1）～a（n）中），現(xiàn)在給定一個整數(shù) p,要求將序列 a的前 p 個數(shù)與后 n-p 個數(shù)對調(diào)，且不改變這 p 個數(shù)（和 n-p個數(shù)）之間的相對位置。例如長度為 5 的序列 1，2，3，4，5，當 p=2 時重排的結(jié)果為 3，4，5，1，2。
我們可以用兩種不同的方法來實現(xiàn)這一目的：
方法一：逐個地將數(shù)組 a 的后 n-p 個數(shù)依次移動到前面去。
數(shù)組 a：
↓1 2 3 4 5
↓3 1 2 4 5
↓3 4 1 2 5
方法二：將前 p 個數(shù)看作一個區(qū)間，后 n-p 個數(shù)看作另一個區(qū)間，依次將數(shù)交換，同時縮小區(qū)間的大??；若某一個區(qū)間達到末尾，則調(diào)整區(qū)間的范圍，直到兩個區(qū)間剛好同時達到末尾，即調(diào)整結(jié)束。3 4 5 1 2
數(shù)組 a：
互換并調(diào)整區(qū)間：第一個區(qū)間結(jié)束且第二個區(qū)間還有元素，調(diào)整區(qū)間 1 和區(qū)間 2 的范圍，如圖將區(qū)間 1 調(diào)整為[3，4]，區(qū)間 2 調(diào)整為[5：5]。
互換并調(diào)整區(qū)間：第二個區(qū)間結(jié)束且第一個區(qū)間還有元素，僅調(diào)整第 1 個區(qū)間的起始位置。
互換并結(jié)束：兩個區(qū)間同時到達末尾。
小明依據(jù)上面的方法設計了 VB 程序如下：3 4 5 1 2
Dim a（1 To 100），i As Integer,j As Integer,tmp As Integer,p As Integer
Dim start1 As Integer,end1 As Integer,start2 As Integer,end2 As Integer'將序列保存到數(shù)組 a中，序列長度保存到 n 中，移動數(shù)字的個數(shù)保存在 p 中
Private Sub Command2_Click （ ?。?用方法一實現(xiàn)
For i=p+1 To n
tmp=a（i）
For j=i To ①Step-1
a（j）=a（j-1）
Next j
②=tmp
Next i
End Sub
Private Sub Command3_Click （ ?。?用方法二實現(xiàn)
start1=1：end1=p'第 1 個區(qū)間的起始狀態(tài)
start2=p+1：end2=n'第 2 個區(qū)間的起始狀態(tài)
i=start1：j=start2
Do While ③
i=start1：j=start2
Do While i＜=end1 And j＜=end2
tmp=a（i）：a（i）=a（j）：a（j）=tmp
i=i+1：j=j+1
Loop
If i＜=end1 Then'第 2 個區(qū)間結(jié)束且第 1 個
區(qū)間還有元素
start1=i
ElseIf j＜=end2 Then'第 1 個區(qū)間結(jié)束且第 2
個區(qū)間還有元素
start1=i：④
start2=j
End If
Loop
End Sub
請回答下列問題：
（1）若序列為：9，8，13，22，7，6，5，37，6，p=4 時，使用方法一，則 a（3）的值依次是 13，（用逗號隔開，順序填寫曾存儲過的值）。
（2）請在橫線處填入合適的代碼。
①
②
③
④組卷：0引用：2難度：0.5