2022-2023學年云南省昭通市巧家一中高一（下）第二次測評信息技術試卷
發布：2024/4/20 14:35:0
一、選擇題
-
1．某VB程序段如下：
i=1：j=6：key=8
DoWhilei＜=j
m=（i+j）\2
Ifa（m）＜keyThen
j=m-1
Else
i=m+1
EndIf
Loop
數組元素a（1）到a（6）的值依次為“9，8，8，8，7，6”，運行該程序段后，下列說法正確的是（ ）組卷：0難度：0.4 -
2．下列關于信息和信息技術的說法，正確的是（ ?。?/h2>
組卷：2引用：1難度：0.7 -
3．位圖的最小單位為（ ?。蚨步悬c陣圖。
組卷：4難度：0.7 -
4．計算機能直接識別、理解執行的語言是（ ）
組卷：4引用：7難度：0.7 -
5．有如下程序段：
i=1：j=8：count=0：
f=False
Key=Val（Text1.Text）
Do While i＜=j
m=（i+j）\2
If a（m）=Key Then
count=count+1
f=True
Exit Do
If a（m）＜Key Then
i=m+1
Else
j=m-1
End If
Loop
數組元素a（1）到a（8）分別為1，2，3，4，5，6，6，7，在Text1輸入6，執行該程序段后，下面說法正確的是（ ）組卷：3引用：1難度：0.5 -
6．Flash有兩種動畫，即逐幀動畫和補間動畫，而補間動畫又分為（ ?。?/h2>
組卷：3難度：0.7 -
7．下列信息來源中，可以通過事物本身直接獲取第一手資料的是（ ?。?/h2>
組卷：3難度：0.8 -
8．姜平希望能在自己的計算機上快速鏈接到平時喜歡的網站上，比較好的做法是（ ?。?/h2>
組卷：6引用：5難度：0.9 -
9．下列有關瀏覽器與網頁的說法，正確的是（ ?。?/h2>
組卷：6難度：0.6 -
10．想制作一個以“釣魚島問題”為主題的電腦作品，可以使用的制作軟件是（ ?。?br />①powerpoint ②Dreamweaver ③word ④flash。
組卷：7引用：3難度：0.9
三、操作題
-
31．過橋問題。n個旅行者在夜晚要通過一座狹窄的橋，橋上最多只能上2個人且必須借助手電筒，手電筒只有一只。為了所有人在最短時間內過橋，設計算法如下：
（1）如果只有1人過橋，時間為個人過橋時間。
（2）如果有2人一起過橋，時間以慢的人為準。
（3）如果有3個人a、b、c,耗時Ta＜Tb＜Tc，過橋方案為讓a和b一起過橋，a拿手電筒回來，然后與c一起過橋。
（4）如果存在多于3個人，如a、b、……、y、z需要過橋，耗時Ta＜Tb…＜Ty＜Tz，這時有兩種可選方案，選擇其中用時少的，直至剩余少于4人。
①最快的1個將最慢的2個分別送過橋。
a拿手電筒與z過橋，然后a拿手電筒回來再與y一起過橋，a拿手電筒回來；
②最快的2個將最慢的2個送過橋。
讓a、b拿手電筒先過橋，a本手電筒回來，讓y、z手拿電筒過橋，然后b拿手電筒回來。
為驗證方案，小明設計了相應的VB程序。首先從數據庫中獲取每個人的過橋時間，并顯示在列表框List1中，單擊“計算”按鈕 Command1，在文本框Text1中輸出最短耗時，界面如圖a所示。
（1）V程序代碼如下，請在橫線處填入合適的代碼。
Dim n As Integer‘存放過河人數
Dim t（1 To 100）As Integer’存放每個人單獨過橋時間
Private Sub Form_ Load（ ?。?br />從數據庫中讀取每個人的過橋時間顯示在列表框List1中，并統計總人數n,代碼略
End Sub
Private Sub Commandl Click（ ?。?br />Dim i As Integer,k As Integer,j As Integer,temp As Integer
Dim suml As Integer,sum2 As Integer,tsum As Integer
sum1=0：sum2=0：tsum=0
For i=1 To n-1“對每個人的過橋耗時進行升序排序
k=i
For j=i+1 Ton
If①Then k=j
Next j
If k＜＞i then
temp=t（i）：t（i）=t（k）：t（k）=temp
End If
Next i
i=n
Do While i＞3
sum1=2*t（1）+t（i-1）+t（i）'方案①
sum2=t（1）+2*t（2）+t（i）'方案②
If suml＜sum2 Then
tsum=tsum+sum2
End If
i=
Loop
If n=1 Then'剩下1個人
tsum=tsum+t（1）
ElseIf n 2 Then'剩下2個人
tsum=tsum+t（2）
Els'剩下3個人
tsum=③
End if
Textl.Text=Str（tsum）
End Sub
（2）如有5個人，他們單獨過橋耗時（單位s）如圖b所示，則程序運行后文本框Text2中顯示的最短耗時是（s）組卷：7難度：0.3 -
32．小章想將a數組中n個元素排列成合唱隊列形態，具體方法如下：
①如果n是奇數，選出所有數據中最大元素，將其放在a數組正中間位置。
②從剩下待處理數據中選出最大的兩個元素，同時將較大元素放在已處理數據段的右側，較小元素放在已處理數據段的左側。
③反復執行操作②，直到所有數據處理完畢。按上述要求，小章編寫一個VB程序，功能如下：
在文本框Text1中輸入n,單擊“生成”按鈕Command1，并在文本框 List1 中顯示排序前 數據；單擊“排序”按鈕Command2，在列表框 List2 中輸出處理后的結果。程序運行界面如圖所示。
（1）下列哪個選項，可以將窗體Form1標題改為：“生成合唱隊列”（單選，填字 母：A．Form.Caption=“生成合唱隊列”/B．Label1．Caption=“生成合唱隊列”/C．Form1．Caption=“生成合唱隊列”）
（2）實現上述功能的VB程序如下，請在橫線處①②③填入合適代碼。
（3）程序加框處代碼有錯，請改正。
Dim a（1 To 100）As Integer
Dim n As Integer
Private Sub Command1_Click （ ?。?br />'在文本框 Text1 中輸入 n（n＜=100）
'排序前數據存儲在數組 a 中，并在文本框 List1 中顯示
'代碼略
End Sub
Private Sub Command2_Click （ ）
Dim i As Integer,j As Integer,t As Integer
Dim pMax1 As Integer,pMax2 As Integer pMax1=n\2+1：pMax2=n\2
If①Then
For i=1 To n
If a（i）＞a（pMax1）Then t x k w=a（pMax1）：a（pMax1）=a（i）：a（i）=t
Next i
pMax1=pMax1+1
End If
For i=1 To n\2
If ②Then t=a（pMax1）：a（pMax1）=a（pMax2）：a（pMax2）=t j=pMax1 Mod n+1
Do While j＜＞pMax2
If a（j）＞a（pMax1）Then
t=a（pMax1）：a（pMax1）=a（j）：a（j）=t t=a（pMax2）：a（pMax2）=a（j）：a（j）=t
t=a（pMax2）：a（pMax2）=a（j）：a（j）=t
End If
③
Loop
pMax1=pMax1+1
pMax2=pMax2-1
Next i
For i=1 To n
List2．AddItem Str（a（i））
Next i
End Sub組卷：0難度：0.5