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

一、選擇題（共9小題，每小題2分，滿分18分）

• 1．微信“掃一掃”功能能夠掃描二維碼得到相關人員的名片或網站網址信息，該過程屬于（　?。?/h2>

  A．信息采集

  B．信息編碼

  C．信息發(fā)布

  D．信息表達
  組卷：6引用：2難度：0.9

  解析

• 2．用UltraEdit軟件觀察“Yellow黃色”這幾個字符的內碼，如圖所示：
  
  則“Zoo”這幾個字符的內碼是（　?。?/h2>

  A．60 4F 4F

  B．60 6F 6F

  C．5A 6F 6F

  D．5A 6F 4F
  組卷：6引用：2難度：0.9

  解析

• 3．某網店有評價如圖所示，則該評價屬于（　?。?br />

  A．個人推薦	B．統(tǒng)計評價
  C．專家評價	D．核心刊物評價
  組卷：6引用：2難度：0.9

  解析

• 4．使用Word編輯某文檔，部分界面如圖所示
  
  如果全部接受圖中所示的修訂內容，則第一句中的文字將變?yōu)椋ā　。?/h2>

  A．紅外簡稱為IR，它是一種電磁波，波長范圍為760nm～1mm之間

  B．紅外線英文簡稱為IR，它是一種電磁波，波長范圍為760nm～1mm之間

  C．紅外簡稱是紅外線，它是一種電磁波，波長范圍為760nm～1mm之間

  D．紅外簡稱為IR，它是一種電磁波，紅外編碼的波長范圍為760nm～1mm之間
  組卷：7引用：2難度：0.9

  解析

• 5．某access數據庫打開后如圖所示，下列描述正確的是（　　）
  

  A．該數據庫文件名為“l(fā)og：數據庫”

  B．該數據庫里共有5張表

  C．表“connectionlog”是一張空表

  D．表“user_syfwrzb”只有2條記錄
  組卷：6引用：2難度：0.7

  解析

• 6．某算法流程圖如圖所示，該算法實現的功能為（　?。?br />

  A．交換x,y兩數的值	B．求x,y兩數最大值
  C．求x,y兩數最小值	D．以上都不對
  組卷：8引用：4難度：0.5

  解析

二、綜合題：共7分．

• 19．自冪數是指一個 n 位數，它的每個位上的數字的 n 次冪之和等于它本身。使用枚舉法尋找5位數以內的自冪數算法如下：
  （1）使用循環(huán)列出1到99999中的每一個數zmsknz
  （2）通過自定義函數ddknzms拆解得到每個數中的每位數上的數碼及它們對應的n次冪之和
  （3）將zmsknz與ddknzms進行比較，若相等則說明是自冪數，可將其加入列表。
  編寫VB程序，使用枚舉法得到5位數以內的自冪數，程序設計界面如圖所示：
  請根據算法及相應注釋將下面的程序補充完整：
  Function ddknzms（zmsknz As Long） As Long'得到可能的自冪數
  Dim zmsknz_str As String'字符串類型自冪數可能值
  Dim zmsknz_length As Integer,zmswsxh As Integer'字符串類型自冪數可能值字符個數
  zmsknz_str=Trim（Str（zmsknz））
  zmsknz_length=Len（zmsknz_str）
  For zmswsxh=1To zmsknz_length
  ddknzms=ddknzms+Val（Mid（zmsknz_str,zmswsxh,1））^①

   

  
  Next zmswsxh
  End Function
  Private Sub Command1_Click
  Const ZMSWS=
  Dim zmsknz As Long,zmsknz_zz As Long
  zmsknz_zz=10^ZMSWS-1
  For zmsknz=1To zmsknz_zz
  If  ②

   

  Then List1．AddItem （Str（zmsknz））
  Next zmsknz
  End Sub。
  組卷：8引用：1難度：0.1

  解析

• 20．某校學生會選舉需要從學校數據庫中隨機抽取若干名學生作為監(jiān)票人。該數據庫文件名為school。mdb,其中數據表student存儲有關學生學號（xuehao）、姓名（xingming）相關信息，括號內的內容為對應字段名。該程序編輯界面如圖所示，相關對象名可參考標識圖。
  cqxhxm
  xskcqxhxm
  當主持人點擊按鈕“生成抽號”后，下方的標簽會顯示可抽取的學號姓名，一定時間后顯示被抽取作為監(jiān)票人的學號姓名。
  cz
  cq
  'xxxss：學校學生數，kcq：可抽取
  'xhxm：學號姓名，kcq：可抽取
  Dim xxxss As Integer
  xhxmbq
  Dim xhxm（3000）As String
  Dim kcq（3000）As Boolean
  
  'cq_Click：啟用兩個定時器
  Private Sub cq_Click （　?。?br />cqxhxm.Enabled=True
  xskcqxhxm.Enabled=True
  End Sub
  
  Private Sub cz_Click'初始化數組kcq,使每個元素數據都處于可顯示狀態(tài)
  For i=0To xxxss-1
  ①

   

  
  Next i
  End Sub
  
  Private Sub xskcqxhxm_Timer'若數組kcq第x個元素處于可抽取狀態(tài)，則顯示數組xhxm第x個元素
  x=Int（Rnd*xxxss）
  If kcq（x） Then xhxmbq.jye.ai=kcq（x）'②

   

  
  End Sub
  
  Private Sub Form_Load （　?。?從數據庫中提取需要的學號姓名相關數據并初始化數組kcq
  Randomize
  xxxss=0
  Dim conn As New ADODB．Connection,rs As New ADODB．Recordset
  Dim str_conn as String,str_sql As String
  str_conn=“driver=Microsoft access driver（*．mdb）；DBQ=“&app.jye.ai&“\school.jye.ai“；
  conn.jye.ai str_conn
  str_sql=“select*from students“
  rs.jye.ai str_sql
  Do While Not rs.eof
  xxxss=xxxss+1
  xhxm（xxxss）=rs.jye.ai（“xuehao“）&rs.jye.ai（“xingming“）
  rs.movenext
  Loop
  For i=0To xxxss-1
  kcq（i）=True
  Next i
  End Sub
  
  Private Sub cqxhxm_Timer'決定抽取的學號姓名作為監(jiān)票人
  xskcqxhxm.Enabled=False
  For i=0To xxxss-1
  If xhxmbq.Caption=xhxm（i） Then kcq（i）=False
  Next i
  cqxhxm.Enabled=False
  End Sub。
  組卷：3難度：0.1

  解析