2016-2017學年浙江省“七彩陽光”新高考研究聯盟高三（下）期初信息技術試卷

一、選擇題（本大題共12小題，每小題2分，共24分．在每小題給出的四個選項中，只有一個符合題目要求）

• 1．2015年12月，鐵道部在12306網站發布了一則“公告”，如圖所示．
  
  下列說法不正確的是（　?。?/h2>

  A．網上虛假信息很多，該消息可信度不高

  B．公布這則公告，是為了維護信息安全

  C．此公告使用的信息表達技術是網絡

  D．此公告使用的信息表達方式是文字
  組卷：8引用：2難度：0.9

  解析

• 2．小剛想假期和同學一起去上海迪士尼樂園游玩，他用瀏覽器訪問了上海迪士尼樂園網站https：//www.shanghaidisneyresort.jye.ai/，該網站所采用的協議是（　?。?/h2>

  A．FTP

  B．SMTP

  C．HTTP

  D．POP3
  組卷：3引用：4難度：0.9

  解析

• 3．Word字處理軟件編輯某文檔后，部分界面如圖所：
  
  對于圖中所示部分的文檔，下列說法不正確的是（　?。?/h2>

  A．共有2處修訂

  B．共有2個用戶添加了批注

  C．接受修訂后，文檔中的相關內容變為“家族地位顯赫”

  D．拒絕修訂后，文檔中的相關內容變為“家族社會地位顯赫”
  組卷：12引用：2難度：0.9

  解析

• 4．《周易》八卦中隱藏著二進制的計數原理，其中包含兩個基本元素“-”和“--”．如圖所示，可將八卦中的兩個符號與二進制的“0”和“1”相互對應，如果“巽”對應的二進制數是“011”，則“震”對應的二進制數是（　　）

  A．110

  B．101

  C．011

  D．100
  組卷：24引用：2難度：0.9

  解析

• 5．某 Access 數據表如圖所示，下列描述中不正確的是（　?。?br />

  A．該數據庫中共有4張數據表

  B．該數據表中共有9條記錄

  C．該數據表中“是否動畫”字段為“是/否”類型

  D．若將此數據表導出為EXCEL文件，有10行7列
  組卷：8引用：1難度：0.9

  解析

二、非選擇題（本大題共5小題，其中第13小題4分，第14小題5分，第15小題8分，第16小題4分，第17小題5分，共26分）

• 16．小明設計了一個VB程序（界面如圖所示），隨機產生n（n＜=100）個大于等于a（a＜=100）且小于等于b（b＜=100）的整數，并在列表框List1中降序顯示．
  實現上述功能的VB代碼如下：
  請在橫線處填入合適代碼．
  Private Sub Command1_Click（　　）Dim a As Integer,b As Integer
  Dim n As Integer,t As Integer
  Dim m（1To 100）As Integer
    a=Val（Text1．Text）
  b=Val（Text2．Text）
  n=Val（Text3．Text）
  If  a＞b Then t=a：a=b：b=t
  Randomize
  ①

   

  
  For i=2To n
  m（i）=Int（Rnd*（b-a+1））+a
  If m（i）＞m（i-1）Then
  ②

   

  
  For j=i-1To 1Step-1
  If temp＜m（j） Then Exit For
  m（j+1）=m（j）
  Next j
  ③

   

  
  End If
  Next i
  For i=1To n
  List1．AddItem Str（m（i））
  Next i
  End Sub
  程序①處的代碼是

   

  
  程序②處的代碼是

   

  
  程序③處的代碼是

   

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

  解析

• 17．編寫VB程序，實現如下功能：單擊“生成密文”按鈕Command2，在文本框Text3中產生與每個小寫字母對應的密文（每個明文字母對應1個不重復的密文字母）．在文本框Text1中輸入單詞字符串，單擊“加密”按鈕Command1后，進行逐個字符加密，加密方法：在“明文”中找到相應字符，再得到明文對應位置的密文，并在文本框Text2中顯示對應密文（運行效果如圖所示）．實現上述功能的VB代碼如下：
  Dim m2As String
  Private Sub Command1_Click

   

  
  Dim flag（1To 26）As Boolean
  Dim num As Integer,t As Integer
  Randomize
  num=1
  Text3．Text=““
  For i=1To 26
  flag（i）=False
  Next i
  Do While num＜=26
  x=Int（Rnd*26）+97
  ①

   

  
  If  flag（t）=False Then
  m2=m2+Chr（x）
  num=num+1
  ②
  End If
  Loop
  Text3．Text=m2
  End Sub
  Private Sub Command2_Click

   

  
  Dim s As String,m As String,result As String
  Dim k As String,c As Integer
  s=Text1．Text
  m=“abcdefghijklmnopqrstuvwxyz“
  For i=1To Len（s）
  k=Mid（s,i,1）
  If  k＞=“A“And k＜=“Z“Then
  k=Chr（Asc（k）+32）
  End If
  c=1：continue=True
  Do While③  
  If k=Mid（m,c,1）Then
  continue=False
  End If
  c=c+1
  Loop
  ④
  Next i
  Text2．Text=result
  End Sub
  程序①處的代碼是

   

  
  程序②處的代碼是

   

  
  程序③處的代碼是

   

  
  程序④處的代碼是

   

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

  解析