2015年浙江省杭州市高考信息技術模擬試卷（10）
發(fā)布：2024/4/20 14:35:0
一、客觀題
-
1．浙江某村大面積種植的大白菜滯銷，大學生村官在網(wǎng)上發(fā)布了大白菜銷售信息，引來各地訂單，大白菜銷售一空，從而避免了村民的經(jīng)濟損失．該事例中，主要體現(xiàn)了信息的（ ）
組卷：7引用：4難度：0.9 -
2．用UltraEdit軟件觀察“jy@cab.jye.ai”這幾個字符的內(nèi)碼，如圖所示．
則“cat”這幾個字符的內(nèi)碼是（ ）組卷：2引用：4難度：0.9 -
3．現(xiàn)代社會研發(fā)和使用機器人越來越多，在國內(nèi)外都在進行一些機器人比賽，在中學生的比賽中有常見的機器人滅火、機器人足球賽等等，這主要體現(xiàn)了信息技術中的（ ）
組卷：8引用：2難度：0.9 -
4．某Access數(shù)據(jù)表打開后如圖所示，下列描述中正確的是（ ）
①數(shù)據(jù)表名稱是：books
②數(shù)據(jù)表中共有3條記錄
③數(shù)據(jù)表中共有6個字段
④其中author字段的數(shù)據(jù)類型應為文本。組卷：6引用：8難度：0.7 -
5．小宇在一本書上發(fā)現(xiàn)一篇較好的介紹如何增強體質(zhì)的文章，他決定使用掃描儀和OCR軟件將文字導出并進行編輯．正確的步驟是（ ）
①對圖片進行傾斜校正等預處理；②將文字存儲成文本（TXT）文件或RTF文件；
③對文字進行校對；④進行版面分析和文字識別；⑤使用掃描儀獲取圖片．組卷：8引用：5難度：0.9 -
6．小萍使用Word撰寫了一篇號召節(jié)能減排的文章，想請語文教師給出修改建議，下列操作最合理的是（ ）
組卷：3引用：4難度：0.9 -
7．小陳申請了一個網(wǎng)銀賬號，登錄網(wǎng)銀賬號時，要輸入密碼，一般情況下，如果密碼輸入的錯誤次數(shù)超過3次，那么當日網(wǎng)銀賬號將被鎖定，次日自動解鎖．下圖是登陸網(wǎng)銀的流程圖，小陳不小心輸入密碼錯誤了2次，第3次才正確，那么她的操作流程應該是（ ）組卷：4引用：10難度：0.7
二、主觀題
-
21．輸入一個三位數(shù)的整數(shù)，要求將此三位數(shù)的各位上的數(shù)字重新排列，組成一個盡可能大的三位數(shù)．例如：輸入213，重新排列可得到盡可能大的三位數(shù)是321．
現(xiàn)要求編寫VB程序（運行界面如圖所示），實現(xiàn)如下功能：在文本框Text1中輸入一個三位數(shù)整數(shù)，單擊“求解”按鈕Command1，在文本框Text2中顯示重新組合后的最大三位數(shù)整數(shù)．某同學按此要求編寫的程序如下，其中函數(shù)max（x）用于求解最大三位數(shù)整數(shù)，但加框處代碼有錯，請改正．
①②
Function max（x As Integer） As Integer
Dim a As Integer,b As Integer,c As Integer,t As Integer
a=x\100
b=
'①
c=x mod 10
If a＜b Then t=a：a=b：b=t
If a＜c Then t=a：a=c：c=t
If b＜c Then t=c：c=b：b=t
max=
'②
End Function
Private Sub Command1_Click
Dim n As Integer,y As Integer
n=Val（Text1．Text）
y=max（n）
Text2．Text=Str（y）
End Sub.組卷：19引用：2難度：0.1 -
22．【加試題】下列VB程序的功能是：程序運行時，單擊命令按鈕Command1后，產(chǎn)生10個[1，999]范圍內(nèi)互不相同的隨機整數(shù)，依次顯示在列表框List1中，然后將它們按從小到大的順序排序，排序結(jié)果顯示在列表框List2中．
數(shù)組a用于存儲產(chǎn)生的10個隨機整數(shù)，函數(shù)f（x）用于判斷隨機整數(shù)x與已生成的整數(shù)是否有重復，若有重復則返回True,否則返回False.
（1）虛線框內(nèi)程序段所采用的排序算法名稱是．（填：冒泡排序/選擇排序）
（2）在程序①和②橫線處填入適當?shù)恼Z句或表達式，把程序補充完整．
Dim a（1To 10）As Integer
Function f（x As Integer）As Boolean
'代碼略
End Function
Private Sub Command1_Click（ ）
Dim n As Integer'n用于統(tǒng)計已經(jīng)產(chǎn)生的隨機整數(shù)個數(shù)
Dim i As integer,j As Integer
Dim x As Integer,k As Integer
Randomize'初始化Rnd函數(shù)
n=0
List1．Clear'清除列表框中內(nèi)容
List2．Clear
Do While n＜10
x=lnt（Rnd*999）+1'產(chǎn)生[1，999]范圍內(nèi)的隨機整數(shù)
If Not f（x） Then
n=n+1
a（n）=x
List1．AddItem Str（）
End If
Loop
For i=1To 9'進行排序
For j=10To i+1
If a（j）＜a（j-1）Then
k=a（j）：a（j）=a（j-1）：a（j-1）=k
End If
Next j
Next i
For i=1To 10
List2．AddItem Str（a（i））
Next i
End Sub.組卷：17引用：2難度：0.3