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

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

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

  A．信息采集

  B．信息編碼

  C．信息發(fā)布

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

  解析

• 2．用UltraEdit軟件觀察“Yellow黃色”這幾個字符的內(nèi)碼，如圖所示：
  
  則“Zoo”這幾個字符的內(nèi)碼是（　　）

  A．60 4F 4F

  B．60 6F 6F

  C．5A 6F 6F

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

  解析

• 3．某網(wǎng)店有評價如圖所示，則該評價屬于（　　）
  

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

  解析

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

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

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

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

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

  解析

• 5．某access數(shù)據(jù)庫打開后如圖所示，下列描述正確的是（　?。?br />

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

  B．該數(shù)據(jù)庫里共有5張表

  C．表“connectionlog”是一張空表

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

  解析

• 6．某算法流程圖如圖所示，該算法實現(xiàn)的功能為（　　）
  

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

  解析

二、綜合題：共7分．

• 19．自冪數(shù)是指一個 n 位數(shù)，它的每個位上的數(shù)字的 n 次冪之和等于它本身。使用枚舉法尋找5位數(shù)以內(nèi)的自冪數(shù)算法如下：
  （1）使用循環(huán)列出1到99999中的每一個數(shù)zmsknz
  （2）通過自定義函數(shù)ddknzms拆解得到每個數(shù)中的每位數(shù)上的數(shù)碼及它們對應(yīng)的n次冪之和
  （3）將zmsknz與ddknzms進行比較，若相等則說明是自冪數(shù)，可將其加入列表。
  編寫VB程序，使用枚舉法得到5位數(shù)以內(nèi)的自冪數(shù)，程序設(shè)計界面如圖所示：
  請根據(jù)算法及相應(yīng)注釋將下面的程序補充完整：
  Function ddknzms（zmsknz As Long） As Long'得到可能的自冪數(shù)
  Dim zmsknz_str As String'字符串類型自冪數(shù)可能值
  Dim zmsknz_length As Integer,zmswsxh As Integer'字符串類型自冪數(shù)可能值字符個數(shù)
  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．某校學生會選舉需要從學校數(shù)據(jù)庫中隨機抽取若干名學生作為監(jiān)票人。該數(shù)據(jù)庫文件名為school。mdb,其中數(shù)據(jù)表student存儲有關(guān)學生學號（xuehao）、姓名（xingming）相關(guān)信息，括號內(nèi)的內(nèi)容為對應(yīng)字段名。該程序編輯界面如圖所示，相關(guān)對象名可參考標識圖。
  cqxhxm
  xskcqxhxm
  當主持人點擊按鈕“生成抽號”后，下方的標簽會顯示可抽取的學號姓名，一定時間后顯示被抽取作為監(jiān)票人的學號姓名。
  cz
  cq
  'xxxss：學校學生數(shù)，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'初始化數(shù)組kcq,使每個元素數(shù)據(jù)都處于可顯示狀態(tài)
  For i=0To xxxss-1
  ①

   

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

   

  
  End Sub
  
  Private Sub Form_Load （　?。?從數(shù)據(jù)庫中提取需要的學號姓名相關(guān)數(shù)據(jù)并初始化數(shù)組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.path&“\school.mdb“；
  conn.open str_conn
  str_sql=“select*from students“
  rs.open str_sql
  Do While Not rs.eof
  xxxss=xxxss+1
  xhxm（xxxss）=rs.fields（“xuehao“）&rs.fields（“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引用：1難度：0.1

  解析