2017年10月浙江省十校聯盟選考信息技術試卷

一、選擇題（每小題2分，共24分．在每小題列出的4個選項中，只有一項是符合題目要求的）

• 1．下列關于信息的說法，正確的是（　?。?/h2>

  A．微信具有朋友圈功能，用戶可以發(fā)布圖文信息，這主要體現了信息的真?zhèn)涡?/label>

  B．古代沒有信息技術，用計算機處理信息的技術才是信息技術

  C．小林將自己個人基本信息存儲為二維碼的過程屬于信息的采集

  D．支付寶提供“手機資金安全險”功能主要是為了保障信息安全
  組卷：10引用：2難度：0.9

  解析

• 2．下列說法不正確的是（　?。?/h2>

  A．瀏覽器的主要功能是解釋執(zhí)行HTTP語言

  B．用收藏夾收藏網頁是對網頁地址進行保存

  C．網頁文件可以通過Dreamweaver、FrontPage、記事本等編輯

  D．SMTP協議的功能是把電子郵件送到收件人的電子郵箱中
  組卷：14引用：2難度：0.9

  解析

• 3．使用Word軟件編輯某文檔，部分界面如圖所示：
  
  下列說法正確的是（　　）

  A．這段文字有1處批注，批注者為Z1

  B．刪除批注，文字“小冰”同時被刪除

  C．修訂前，第二行文字是“青蛙兒正在遠遠的淺水/她嫁了許多的顏”

  D．接受所有修訂后，第一行文字是“看那星，閃爍的幾顆星/西山上的太陽/”
  組卷：4引用：2難度：0.9

  解析

• 4．關于Access數據表的操作，說法正確的是（　?。?/h2>

  A．可以在數據表的任何位置添加新記錄

  B．數據類型的修改只能通過設計視圖完成

  C．當數據表打開時，不能修改數據表的名稱

  D．QQ注冊成功后，QQ后臺的數據庫進行了修改記錄操作
  組卷：7引用：2難度：0.5

  解析

• 5．某算法的部分流程圖如圖所示，執(zhí)行這部分流程后，下列說法正確的是（　?。?br />

  A．變量a,b的值分別為10，0

  B．變量a,b的值分別為5，0

  C．步驟b←b-a被執(zhí)行3次

  D．步驟a＞b被執(zhí)行6次
  組卷：3引用：3難度：0.7

  解析

二、非選擇題

• 16．小林編寫了一個實現英文句子每個單詞首字母大寫功能的VB程序，運行界面如圖所示．文本框Text1顯示原文內容，單擊“首字母大寫”按鈕Command1后，Text2顯示首字母大寫的結果．
  實現上述功能的VB程序如下，但加框處代碼有錯，請改正．
  Private　Sub　Command1_Click （　?。?br />Dim a（1 To 1000）As String
  Dim s As String  result As String
  s=Text1．Text：n=Len（s）
  For i=1 To n
  a（i）=Mid（s,i,l）
  Next i
  If a（i）＞''a''And a（1）＜=“z“Then a（1）=Chr（Asc（a（1））-32）
  result=a（1）
  For i=2 To  n-1
  If Then'（1）
  If a（i+1）＞=''a''And a（i+1）＜=''z''Then
  a（i+1）=Chr（Asc（a（i+1））-32）
  result=result+a（i）
  End If
  Eslse
  result=result+a（i）
  End If
  Next i
  '（2）
  End Sub.
  組卷：4引用：1難度：0.1

  解析

• 17．小林編寫了一個統(tǒng)計高三16個班級選考技術人數占比的VB程序．運行界面如圖所示，窗體加載時，從數據庫中調用數據，統(tǒng)計各班選考技術的人數占比，并在列表框List1中顯示“班級”和“選技術占比”．單擊“排序”按鈕Command,數據按選技術占比降序排序，在List2中顯示排序結果．實現上述功能的VB程序如下，請回答下列問題：
  （1）分析程序，可知調用的數據表的名稱為

   

  ．
  （2）請在橫線處填入合適的代碼．①

   

  、②

   

  、③

   

  
  Dim n As Integer,i As  Integer,j As Integer'變量n用于統(tǒng)計學生總數
  Dim rate（l  To 16）As Integer,num（1 To 16）As Integer,class （1 To 16）As  Integer
  Dim tech （1 To 50）As Integer,cinfo（1 To 5000）As lnteger,subj（1 To 5000）As String
  Private　Sub　Command1_Click （　?。?br />Dim i As Integer,As Integer,s As Integer
  For i=1 To 15
  For j=

   

  
  If rate（j）＞rate （j-1）Then
  t=rate （j）：rate（j）=rate（j-1）：rate（j-1）：=t
  s=class（j）：class（j）=class（j-1）：class（j-1）=s
  End If
  Next j
  Next i
  List2：AddItem''班級''+''''+''選技術占比''
  For i=1 To 16
  List2．AddItem ads（class（i），3）+''''+ads（rate（i），7）+''%''
  Next i
  End Sub
  Private Sub Form_-Load（　?。?br />Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  conn.ConnectionString=''Provider=Microsoft.ACE．OLEDB.12.0DATA Source=''&
  App.Path&''\stuimfo.jye.ai''
  conn.open
  Set rs.ActiveConnection=conn
  rs.open''SELECT*FROM xkqk''
  此處代碼略，代碼實現將學生班級信息存儲到數組cinfo中，選考科目存儲到數組subj中
  For i=1 To n
  

   

  ’將各班人數存儲到數組num中
  Next i
  For  i=1 To 16
  class （i）=i
  If

   

  Then
  If subj（j）=''技術''Then
  tech（i）=tech（i）+1
  End If
  End If
  Next  j
  rate（i）=Round（tech（i）/num（i）*100，2）
  ’Round（　?。┓祷刂付ㄎ粩颠M行四舍五入的數值
  List 1．AddItem ads（class（i），3）+''''+ads（rate（i），7）+''%''
  Next i
  ’ads（　　）整數轉換長度固定的字符串
  Function ads （x As Integer,n  As Integer）As String
  代碼略
  End Function.
  組卷：6引用：1難度：0.1

  解析