2017-2018學年浙江省臺州中學高三（上）第四次統練信息技術試卷

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

• 1．下列描述中正確的是（　　）

  A．IE瀏覽器可以解釋并執行HTML語言

  B．網上交流表達信息時要遵循一定的標準，目的是信息表達的數字化

  C．商家將超市APP的鏈接地址制作成二維碼過程屬于信息的發布

  D．通過無線網絡傳輸的信息不依附與任何載體
  組卷：2引用：1難度：0.9

  解析

• 2．某協議的主要功能是完成對數據包的確認、流量控制和網絡擁塞；自動檢測數據包，并提供錯誤重發的功能，該協議的簡稱是（　　）

  A．HTTP

  B．SMTP

  C．TCP

  D．POP
  組卷：12引用：3難度：0.9

  解析

• 3．使用WinHex軟件查看字符“2017第一學期”的內碼，部分界面如圖所示。下列說法正確的是（　　）

  A．原文包含4個ASCII碼

  B．共占10個字節

  C．關系表達式“10”＞“2”的值為True

  D．字符“期”的內碼是“C6 DA”
  組卷：37引用：3難度：0.9

  解析

• 4．某算法的部分流程圖如圖所示，執行這部分流程后，輸出c的值是（　　）

  A．50

  B．34

  C．55

  D．60
  組卷：2引用：3難度：0.9

  解析

• 5．使用Access軟件打開數據庫，部分界面如圖所示，下列說法正確的是（　　）

  A．當前數據庫包含3張數據表

  B．數據表“學生聯系”有3條記錄

  C．可以將Access數據表中的數據導出到Excel

  D．在數據表“學生聯系”中輸入多條記錄時，可以先不輸入學號
  組卷：4引用：3難度：0.7

  解析

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

• 16．小明基于選擇排序算法編寫了一個VB程序，功能如下：某班有50個學生，從中選擇10個身高最高的同學，要求被選的任何兩個人不能身高一樣（所給的數據保證能選10個）。
  實現上述功能的VB程序如下，但加框處代碼有錯，請改正。
  Const  n=50
  Dim d（0 To n） As single,name（1 to n） as string
  '讀入50個學生的身高，依次存入d（1）…d（50），最高身高小于2，姓名存入name（1）…name（50）
  '代碼略
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,temp As single,k As Integer,r as string
  d（0）=2
  For i=1 To 10
  
  For j=i To n
  If d（j）＜d（i-1）Then
  IfThen
  k=j
  End If
  End If
  Next j
  If k＜＞i Then
  temp=d（k）：d（k）=d（i）：d（i）=temp
  r=name（k）：name（k）=name（i）：name（i）=r
  End If
  Next i
  For i=1 To 10‘輸出被選的10個人的名字和身高。
  List2．AddItem  name（i） & d（i）
  Next i
  End Sub
  組卷：10引用：2難度：0.4

  解析

• 17．酒店房間管理：酒店房間（房間數小于10000）編號按1、2、3…連續編號，老板對于沒有出租的房子使用如下的方法來登記管理。連續的空房間，登記第一間的編號和連續的空房間數，比如空房間1，2，6，7，8，10，則登記3條記錄，分別為（1  2），（6  3），（10  1）。
  某旅客退房了，需要把這房子也登記上去，有四種情況需要處理：
  1）上靠，例如退的房間號為3，則原來登記的3條記錄變成（ 1 3），（6  3），（10  1）。
  2）下靠，例如退的房間號為5，則原來登記的3條記錄變成（1  2），（ 5 4），（10  1）。
  3）上下不靠，例如退的房間號為4，則登記的記錄數變成4條（1  2），（ 4 1），（6  3），（10  1）。
  4）上下靠，例如退的房間號為9，則登記的記錄數變成2條（1，2），（6，5）。
  小王依據上述描述設計了如下VB程序。請回答下列問題：
  （1）當登記的記錄有3條，分別為（1，4），（6，2），（10，3）。現在某旅客退掉5號房間，則登記的記錄變成

   

  
  （2）請在橫線處填入合適的代碼。
  Const n=5000
  Dim a（0To n） As Integer'a（i）保存第i條記錄的開始房間號
  Dim b（0To n） As Integer'b（i）保存第i條記錄的房間數
  Dim c As Integer,k As Integer,sp As Integer'k為原始記錄數
  '讀取原始k條記錄的數據，依次存入a（1），b（1），a（2），b（2）…a（k），b（k），代碼略
  '為了程序處理方便，虛設了下面2條記錄
  a（0）=0：b（0）=0：sp=k+1：a（sp）=10000：b（sp）=0
  Private Sub Command1_Click （　　）
  Dim i As Integer
  c=Val（Text1Text）'c為退掉的房間號
  i=1
  Do While a（i）＜c'查找房間c,應該登記在某位置
  i=i+1
  Loop
  i=i-1
  '下面為處理退房登記問題
  If a（i）+b（i）=c Then
  If   ①

   

   Then'第4種情況，上下靠
  b（i）=b（i）+1+b（i+1）
  For j=i+1To sp-1
  a（j）=a（j+1）：b（j）=b（j+1）
  Next  j
  sp=sp-1
     Else'第1種情況，上靠
  b（i）=b（i）+1
  End If
  ElseIf  c+1=a（i+1）Then'第2種情況，下靠
  a（i+1）=c：b（i+1）=b（i+1）+1
  Else'第3種情況，上下不靠
  For j=②

   

  
  a（j）=a（j-1）：b（j）=b（j-1）
  Next j
  a（i+1）=c：b（i+1）=1：sp=sp+1
  End If
  ‘下面為輸出登記的記錄，不包括虛設的兩條記錄
  For i=1to   ③

   

  
  List3．AddItem“第“& Str（i） &“記錄（“& Str（a（i）） &“，“& Str（b（i）） &“）“
  Next i
  End Sub
  組卷：2引用：1難度：0.5

  解析