2013-2014學年浙江省衢州市龍游二中高三（上）期中信息技術試卷
發布：2024/4/20 14:35:0
一、本大題共30小題，每小題2分，計60分．在每小題列出的四個備選項中只有一個符合題目要求，請將其代碼按題號填涂至答題卡上．錯選、多選或未選均無分．
-
1．綜藝片《爸爸去哪兒》吸引了不同年齡段觀眾觀看，攝像工作人員從現場拍攝視頻，經后期剪輯后，再將其通過衛星信號傳遞到千家萬戶，那么，拍攝視頻的過程屬于（ ）
組卷：5引用：2難度：0.9 -
2．如圖所示是“上”字的8×8點陣碼，假設空白方塊用“0”表示，黑方塊用“1”表示．從上往下數第5行用“0”和“1”從左向右排列的信息編碼是（ ）組卷：6引用：7難度：0.5 -
3．中國人民解放軍保密條例的第三條規定“全軍所有單位和人員都有保守軍事秘密的義務”，該管理規定主要針對的是信息資源中的（ ）
組卷：7引用：1難度：0.9 -
4．如圖是小王向小張發送電子郵件過程的示意圖，下列說法正確的是（ ）
組卷：4引用：1難度：0.9 -
5．在美、英等西方國家的超市里，顧客在收銀臺處只要輸入自己的指紋就可以完成付款，這主要體現了信息安全保護方法中的（ ）
組卷：5引用：2難度：0.9 -
6．某同學在制作“健康與生活”專業網站時如果需要在網頁中添加背景音樂“健康歌”，他可以選擇的音頻格式是（ ）
組卷：6引用：1難度：0.9 -
7．下列關于網頁的說法，正確的是（ ）
組卷：8引用：2難度：0.9 -
8．如圖為駕駛證考試部分的流程圖，該流程圖的結構屬于（ ）
組卷：5引用：1難度：0.9 -
9．為了做好售后服務，某公司每年都做一次用戶調查．今年的調查結果如下：非常滿意的占20%，滿意的占60%，不滿意的占15%，非常不滿意的占5%．若用圖表來表示上述調查結果，比較合理的是（ ）
組卷：8引用：6難度：0.5 -
10．在用FrontPage制作網頁過程中，網頁中應該插入的圖片是t03．jpg,結果小明誤將t01．jpg插入了，為了改正錯誤，小明在已插入的圖片t01．jpg上右擊，從“快捷菜單”中選擇“圖片屬性”，出現了如圖2所示的“圖片屬性”對話框，那么，小明接下來應該單擊的是（ ）
組卷：3引用：1難度：0.9 -
11．伴隨著信息化建設進程的推進，手機已成為人們信息交流的重要工具之一．每時每刻海量手機話費的實時統計、查詢等業務都離不開網絡數據庫技術的支持．以上實例說明（ ）
組卷：5引用：2難度：0.7 -
12．國際互聯網標準化組織按標準制定了各種通信協議，如TCP/IP協議、FTP協議、HTTP協議等，其主要目的是信息表達的（ ）
組卷：5引用：1難度：0.9
二、非選擇題部分本大題共8小題，共30空，第31題至34題每空1分，第35題至38題每空2分，共計40分．
-
37．數組排序．點擊“產生隨機數”按鈕，讓計算機隨機產生10個整數，并對這10個整數進行標號，再點擊“排序”按鈕，對這10個整數進行從大到小排序．如圖所示．
程序代碼如下：
Dim a（1To 10）As Integer
Dim i,j,k,kt As Integer
Private Sub Command1_Click （ ）
List1．Clear'清除列表框數據
For i=1To 10
Randomize'隨機數初始化
a（i）=Int（Rnd*1000）
List1．AddItem Str（i）+”=”+Str（a（i））
Next i
Command2．Enabled=True'激活排序按鈕
End Sub
Private Sub Command2_Click
For i=1To 9
k=i
For j=____①___To 10
If a（j）＞a（k） Then k=j
Next j
If i＜＞k Then
_②____
End If
Next i
List2．Clear
For i=1To 10
List2．AddItem Str（i）+”=”+Str（a（i））
Next i
End Sub
請在①、②橫線處填入合適的語句或表達式，把程序補充完整：
程序中①橫線處應填入；
程序中②橫線處應填入．組卷：1引用：1難度：0.1 -
38．學校要進行元旦文藝匯演了，學生會讓薛明來擔任總記分員，任務就是根據各個評委所打分數，去掉一個最高分和一個最低分，然后計算平均分．薛明很快編寫了這個程序，該程序的界面如圖所示：
程序運行時，每輸入一個分數單擊“確定”按鈕（Command1），就將該分數記入總分，同時在下面顯示到目前為止已輸入的所有分數．當所有的分數輸入完畢后，單擊“統計-＞”按鈕（Command2），程序就會在右邊顯示總分和最后的平均分．請回答下面的問題：
1）寫出上述圖形中所標識的③對象所屬的類？如④所屬的類為“文本框”．
③
2）以下是薛明編寫的統計程序，請完善程序．
Dim total As Integer,ans As Single,x As Integer,max As Integer
Dim min As Integer,s As Integer
Private Sub Command1_Click
x=Val（Text1．Text）
total=total+x
s=s+1
If ④Then max=x
If x＜min Then min=x
List1．AddItem x
End Sub
Private Sub Command2_Click
Label4．Caption=Str（total）
ans= ⑤
ans=ans/（s-2）
Label6．Caption= ⑥
End Sub
Private Sub Form_Load
total=0
s=0
min=10000
max=0
End Sub.組卷：3引用：1難度：0.1