2017年浙江省高考信息技術模擬試卷（2）

一、選擇題（本大題共9小題，每小題2分，共24分．每小題列出的四個備選項中只有一個是符合題目要求的，不選、多選、錯選均不得分）

• 1．據報道，軟件安全公司Check Point的安全研究員在蘋果iOS系統(tǒng)的核心功能中發(fā)現了一個設計漏洞．因為漏洞的存在，用戶即使注銷Apple ID賬戶也會被保存登錄憑證．這體現了信息的（　?。?/h2>

  A．時效性	B．載體的依附性
  C．價值性	D．安全性
  組卷：14引用：1難度：0.9

  解析

• 2．小明登入到自己的網易郵箱給同學小李的QQ郵箱發(fā)送一篇論文，小李登陸郵箱接收小明的郵件，下列說法正確的是（　?。?br />

  A．小明訪問網易郵箱網址使用SMTP協(xié)議

  B．小李使用本地電子郵件軟件接收郵件使用了POP3協(xié)議

  C．郵件從網易服務器轉發(fā)到QQ服務器使用了HTTP協(xié)議

  D．小明登陸網易郵箱發(fā)送郵件采用FTP協(xié)議
  組卷：7引用：1難度：0.9

  解析

• 3．如圖是某用戶的電子郵箱管理窗口，從圖中我們可以看出（　?。?br />

  A．該用戶收件箱內共有4封郵件

  B．該用戶的電子郵箱地址為abcd_123678321@126．com

  C．該用戶的等級是1級

  D．該用戶當前查看的是收件箱
  組卷：5引用：2難度：0.9

  解析

• 4．關于該數據表有如下描述：
  
  ①數據表名稱為：百誠公司7月份暢銷空調銷量統(tǒng)計表．accdb
  ②數據表共有12條記錄
  ③在數據表中添加記錄，則字段個數也會增加
  ④“銷售額比例%”字段的數據類型可以為“文本”，也可以為“數字”
  ⑤數據類型為自動編號的字段值不能被編輯
  ⑥修改字段名，數據表中相應的字段值也會改變，
  其中正確的是（　?。?/h2>

  A．①②③④⑤

  B．②④⑤

  C．②③④

  D．①②④⑥
  組卷：7引用：1難度：0.7

  解析

• 5．如圖是求某地出租車收費的流程圖．當輸入里程數a的值為4.2時，則p的值為（　?。?br />

  A．8

  B．16.4

  C．18

  D．16
  組卷：5難度：0.5

  解析

【加試題】

• 16．任意一個大于2位的正整數（各個位上數全相同的除外，如111），如297，三個位上的數從大到小和從小到大各排一次，為972和279，相減，得693按上面做法再做一次，得到594，再做一次，得到495之后反復都得到495，495就為黑洞數．小麗編寫了一個查找4位正整數黑洞數的程序，功能如下：
  在文本框（text1）中輸入，一個任意的四位正整數（全相同的除外，如1111），點擊計算按鈕，在列表框（List1）中顯示計算結果，在標簽Label1中顯示找到的黑洞數，具體代碼如下所示，請完成下列問題：
  Dim su（1To 10）As Integer‘su（i）數組用來存放原始4位數和每次計算結果
  Dim a（1To 4）As Integer‘用來存放4位數每一位上的值
  Private Sub Command1_Click （　?。?br />su（1）=Val（Text1．Text）
  su（2）=zp（su（1））
  p=2
  Do While su（p）＜＞su（p-1）
  p=p+1
  

   

  
  Loop
  
  For i=1To p
  List1．AddItem su（i）
  Next i
  Label1．Caption=Str（su（p））
  End Sub
  
  Function zp（m As Integer） As Integer
  a（1）=m Mod 10
  a（2）=（m\10）Mod 10
  a（3）=（m\100）Mod 10
  a（4）=m\1000
  For i=1To 3
  For j=

   

  　Step-1
  If a（j）＞a（j-1）Then
  t=a（j）：a（j）=a（j-1）：a（j-1）=t
  End If
  Next j
  Next i
  

   

  
  End Function
  ①處程序代碼為

   

  ．
  ②處程序代碼為

   

  ．
  ③處程序代碼為

   

  ．
  組卷：8引用：1難度：0.1

  解析

• 17．以下程序的功能是隨機生成20個1到100之間的正整數，用選擇排序法將其按從大到小的順序排列后輸出．請將下列程序補充完整．
  Private Sub Command1_Click

   

  
  Dim a（20）As Integer,i As Integer
  Dim j As Integer,temp As Integer
  Prin“排序前：”
  For i=1 To 20
  a（i）=Int（Rnd*100）+1
  Print a（i）；
  Next i
  Print
  For i=1 To 19
  For

   

   To 20
  If

   

  Then
  t=a（i）
  a（i）=a（j）
  

   

  
  End If
  Next j
  Next i
  Print“排序后：”
  For i=1To 20
  Print a（i）；
  Next i
  End Sub
  （1）程序中橫線處①應填入

   

  ．
  （2）程序中橫線處②應填入

   

  ．
  （3）程序中橫線處③應填入

   

  ．
  組卷：21引用：1難度：0.1

  解析