2016年浙江省杭州市高考信息技術試卷
發(fā)布:2024/4/20 14:35:0
一、客觀題
-
1.浙江某村大面積種植的大白菜滯銷,大學生村官在網(wǎng)上發(fā)布了大白菜銷售信息,引來各地訂單,大白菜銷售一空,從而避免了村民的經(jīng)濟損失.該事例中,主要體現(xiàn)了信息的( ?。?/h2>
組卷:7引用:4難度:0.9 -
2.用UltraEdit軟件觀察“jy@cab.jye.ai”這幾個字符的內碼,如圖所示.
則“cat”這幾個字符的內碼是( )組卷:2引用:4難度:0.9 -
3.現(xiàn)代社會研發(fā)和使用機器人越來越多,在國內外都在進行一些機器人比賽,在中學生的比賽中有常見的機器人滅火、機器人足球賽等等,這主要體現(xiàn)了信息技術中的( ?。?/h2>
組卷:8引用:2難度:0.9 -
4.某Access數(shù)據(jù)表打開后如圖所示,下列描述中正確的是( ?。?br />
①數(shù)據(jù)表名稱是:books
②數(shù)據(jù)表中共有3條記錄
③數(shù)據(jù)表中共有6個字段
④其中author字段的數(shù)據(jù)類型應為文本。組卷:6引用:8難度:0.7 -
5.小宇在一本書上發(fā)現(xiàn)一篇較好的介紹如何增強體質的文章,他決定使用掃描儀和OCR軟件將文字導出并進行編輯.正確的步驟是( )
①對圖片進行傾斜校正等預處理;②將文字存儲成文本(TXT)文件或RTF文件;
③對文字進行校對;④進行版面分析和文字識別;⑤使用掃描儀獲取圖片.組卷:8引用:5難度:0.9 -
6.小萍使用Word撰寫了一篇號召節(jié)能減排的文章,想請語文教師給出修改建議,下列操作最合理的是( ?。?/h2>
組卷: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程序的功能是:程序運行時,單擊命令按鈕Commandl后,產生10個[1,999]范圍內互不相同的隨機整數(shù),依次顯示在列表框List1中,然后將它們按從小到大的順序排序,排序結果顯示在列表框List2中.
數(shù)組a用于存儲產生的10個隨機整數(shù),函數(shù)f(x)用于判斷隨機整數(shù)x與已生成的整數(shù)是否有重復,若有重復則返回True,否則返回False.
(1)虛線框內程序段所采用的排序算法名稱是.(填:冒泡排序/選擇排序)
(2)在程序(1)和(2)橫線處,填入適當?shù)恼Z句或表達式,把程序補充完整.
Dim a(1To 10)As Integer
Function f(x As Integer) As Boolean
′代碼略
End Function
Private Sub Commandl_Click ( )
Dim n As Integer′n用于統(tǒng)計已經(jīng)產生的隨機整數(shù)個數(shù)
Dim i As Integer.j As Integer
Dim x As Integer.k As Integer
Randomize′初始化Rnd函數(shù)
n=0
List1.Clear′清除列表框中內容
List2.Clear
Do While n<10
x=Int(Rnd*999)+1′產生[1,999]范圍內的隨機整數(shù)
If Not f(x) Then
n=n+1
a(n)=x
List1.AddItem Str((1)
End If
Loop
For i=1 To 9
For j=10 To i+1
If a(j)<a(j-1)Then
k=a( ?。﹋: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.組卷:5引用:2難度:0.1