2015年浙江省杭州市高考信息技術模擬試卷（10）

一、客觀題

• 1．浙江某村大面積種植的大白菜滯銷，大學生村官在網上發布了大白菜銷售信息，引來各地訂單，大白菜銷售一空，從而避免了村民的經濟損失．該事例中，主要體現了信息的（　　）

  A．共享性

  B．載體依附性

  C．真偽性

  D．普遍性
  組卷：7引用：4難度：0.9

  解析

• 2．用UltraEdit軟件觀察“jy@cab.jye.ai”這幾個字符的內碼，如圖所示．
  
  則“cat”這幾個字符的內碼是（　　）

  A．63 61 74

  B．61 62 74

  C．40 63 74

  D．63 61 7E
  組卷：2引用：4難度：0.9

  解析

• 3．現代社會研發和使用機器人越來越多，在國內外都在進行一些機器人比賽，在中學生的比賽中有常見的機器人滅火、機器人足球賽等等，這主要體現了信息技術中的（　　）

  A．網絡技術	B．人工智能技術
  C．語音技術	D．多媒體技術
  組卷：8引用：2難度：0.9

  解析

• 4．某Access數據表打開后如圖所示，下列描述中正確的是（　　）
  
  ①數據表名稱是：books
  ②數據表中共有3條記錄
  ③數據表中共有6個字段
  ④其中author字段的數據類型應為文本。

  A．①②④

  B．①③④

  C．①②③

  D．①④
  組卷：6引用：8難度：0.7

  解析

• 5．小宇在一本書上發現一篇較好的介紹如何增強體質的文章，他決定使用掃描儀和OCR軟件將文字導出并進行編輯．正確的步驟是（　　）
  ①對圖片進行傾斜校正等預處理；②將文字存儲成文本（TXT）文件或RTF文件；
  ③對文字進行校對；④進行版面分析和文字識別；⑤使用掃描儀獲取圖片．

  A．①④③②⑤

  B．⑤①④③②

  C．⑤①④②③

  D．①④②③⑤
  組卷：8引用：5難度：0.9

  解析

• 6．小萍使用Word撰寫了一篇號召節能減排的文章，想請語文教師給出修改建議，下列操作最合理的是（　　）

  A．自動修正

  B．修訂

  C．插入文本框

  D．頁眉和頁腳
  組卷：3引用：4難度：0.9

  解析

• 7．小陳申請了一個網銀賬號，登錄網銀賬號時，要輸入密碼，一般情況下，如果密碼輸入的錯誤次數超過3次，那么當日網銀賬號將被鎖定，次日自動解鎖．下圖是登陸網銀的流程圖，小陳不小心輸入密碼錯誤了2次，第3次才正確，那么她的操作流程應該是（　　）

  A．①→②→③→①→②→③→①→②→③→④→⑤

  B．①→②→③→①→②→③→④→⑤

  C．①→②→③→④→⑤

  D．①→②→③→④→⑤→⑥
  組卷：4引用：10難度：0.7

  解析

二、主觀題

• 21．輸入一個三位數的整數，要求將此三位數的各位上的數字重新排列，組成一個盡可能大的三位數．例如：輸入213，重新排列可得到盡可能大的三位數是321．
  現要求編寫VB程序（運行界面如圖所示），實現如下功能：在文本框Text1中輸入一個三位數整數，單擊“求解”按鈕Command1，在文本框Text2中顯示重新組合后的最大三位數整數．某同學按此要求編寫的程序如下，其中函數max（x）用于求解最大三位數整數，但加框處代碼有錯，請改正．
  ①

   

       ②

   

  
  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后，產生10個[1，999]范圍內互不相同的隨機整數，依次顯示在列表框List1中，然后將它們按從小到大的順序排序，排序結果顯示在列表框List2中．
  數組a用于存儲產生的10個隨機整數，函數f（x）用于判斷隨機整數x與已生成的整數是否有重復，若有重復則返回True,否則返回False.
  （1）虛線框內程序段所采用的排序算法名稱是

   

  ．（填：冒泡排序/選擇排序）
  （2）在程序①和②橫線處填入適當的語句或表達式，把程序補充完整．
  Dim a（1To 10）As Integer
  Function f（x As Integer）As Boolean
  '代碼略
  End Function
  Private Sub Command1_Click（　　）
  Dim n As Integer'n用于統計已經產生的隨機整數個數
  Dim i As integer,j As Integer
  Dim x As Integer,k As Integer
  Randomize'初始化Rnd函數
  n=0
  List1．Clear'清除列表框中內容
  List2．Clear
  Do While n＜10
  x=lnt（Rnd*999）+1'產生[1，999]范圍內的隨機整數
  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

  解析