2016-2017學(xué)年浙江省“七彩陽光”新高考研究聯(lián)盟高二（上）期中信息技術(shù)試卷

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

• 1．下列關(guān)于信息的說法，不正確的是（　　）

  A．書本上的文字所表述的內(nèi)容是信息

  B．同一信息可以依附于多種載體，也可以不依附于任何載體

  C．信息具有時效性

  D．因特網(wǎng)上的信息能進(jìn)行加工處理的
  組卷：7引用：2難度：0.9

  解析

• 2．下列關(guān)于網(wǎng)站和網(wǎng)頁說法不正確的是（　　）

  A．網(wǎng)頁文件是用HTML語言來描述的

  B．HTTP協(xié)議用于瀏覽器與Web服務(wù)器之間的信息傳輸

  C．記事本可以用于編輯簡單的網(wǎng)頁

  D．網(wǎng)站其實就是通過文字超鏈接將多個網(wǎng)頁集合在一起的
  組卷：3引用：3難度：0.9

  解析

• 3．下列應(yīng)用中，沒有使用光學(xué)字符識別（OCR）技術(shù)的是（　?。?/h2>

  A．小猿搜題是一款為初高中學(xué)生創(chuàng)造的拍照搜題軟件

  B．汽車牌照識別是對含有汽車牌照的圖象進(jìn)行分析處理，從而確定提取和識別出車牌號

  C．某字典軟件通過拍攝自動輸入英語單詞，并顯示該單詞的漢字解釋及例句

  D．用數(shù)碼相機拍攝練習(xí)題并通過QQ與同學(xué)交流解題技巧
  組卷：6引用：2難度：0.9

  解析

• 4．關(guān)于Access數(shù)據(jù)庫的說法，不正確的是（　?。?/h2>

  A．在數(shù)據(jù)表中輸入數(shù)據(jù)之后，則不能將任何字段的數(shù)據(jù)類型改為“自動編號”

  B．新增字段可以將其字段類型定義為“自動編號”

  C．“自動編號”中的值不能修改，刪除此編號就沒有此編號

  D．被設(shè)為“主鍵”（標(biāo)志為一個鑰匙圖標(biāo)）的字段值可以重復(fù)
  組卷：3引用：2難度：0.7

  解析

• 5．某算法流程圖如圖所示：執(zhí)行該算法，輸出變量s和變量i的值分別為（　?。?/h2>

  A．4   8

  B．8   16

  C．16   128

  D．128   256
  組卷：0引用：2難度：0.5

  解析

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

• 16．刪除重復(fù)字符的程序。程序功能如下：在文本框Text1中輸入字符串，單擊“刪除重復(fù)字符”按鈕，在文本框Text2中輸出處理后的結(jié)果。程序運行效果如圖所示。實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正。
  Private Sub Command1_ Click （　　）
  x=TextI Text
  n=Len（x）
  s=s+Mid（x,1.1）
  For i=2 To n
  flag=0
  For j=1 To Len（s）
  If Then
  flag=1：Exit For
  End If
  Next  j
  If Then
  s=s+Mid（x,i.D
  End If
  Next i
  Text2，Text=s
  End Sub
  組卷：0引用：1難度：0.3

  解析

• 17．小明編寫了一個查名次的程序。程序功能如下：運行程序，讀取數(shù)據(jù)庫，將相關(guān)信息讀入到數(shù)組中（xh存放學(xué)號，xm存放姓名，zf存放總分，mc存放名次）并在列表框 list I中顯示學(xué)生的相關(guān)信息，單擊“排名次”按鈕，在列表框list2中顯示帶有名次的學(xué)生相關(guān)信息（總分相同的名次一樣）。在文本框中輸入學(xué)生的學(xué)號，單擊“查名次”按鈕，則在窗體中顯示該學(xué)號對應(yīng)的學(xué)生姓名與名次。程序運行效果如圖所示。
  
  實現(xiàn)上述功能的VB程序如下：
  （1）通過分析代碼可知該數(shù)據(jù)表的名稱為

   

  
  （2）實現(xiàn)上述功能的VB程序如下：請在橫線處填入合適代碼。
  Dim xh（n） As Strin
  Dim xm（n）As String
  Dim zf（n） As Integer
  Dim mc（n） As Integer
  Private Sub Form _Load （　?。?br />Dim conn As New AlXODB Connection
  Dim rs as new adodb,recordset
  Dim n As Integer i As Integer,k As Integer
  conn,ConncctionString-“Provider=Microsoft.ACE OLEDB，12.0：Data Source=
  +App.Path+“\student.jye.ai”
  conn open
  Set rs,ActiveConnection=conn
  rs,“Open SELECT*FROM score“
  ListI．Additem“學(xué)號”+“”+“姓名”+”“”+“總分“
  n=0
  Do While not rs EOF'到最后一條記錄后退出循環(huán)
  n=n+1
  xh（n）=rs.Fields（“學(xué)號”）
  xm（n）=s.Fields（“姓名“）
  zf（n）=rs.Fields（“總分“）
  ListI，AddItem xh（i）+“”+xm（i）+“”+Str（zf（i））
  

   

  ‘移動到下一條記錄
  Loop
  rs Close
  conn.Close
  Set rs=Nothing
  Set conn=Nothing
  Private Sub Commandl Click（　　）
  For i=I To n
  k=i
  For j=i+I To n
  If zf（j）＜zf（k） Then k=j
  Next j
  If

   

  Then
  Templ xh（i）：xh（i）=xh（k）：xh（k）=Templ
  Temp2=xm（i）：xm（i）=xm（k）：xm（k）=Temp2
  Temp3=zf（i）：zf（i）=zf（k）：zf（k）=Temp3
  End If
  Next i
  mc（1）=1
  For i=2 To n
  If zf（i）=zf（i-1）Then
  

   

  
  Else
  mc（i）=i
  End If
  Next i
  List2．AddItem“學(xué)號“+“”+“姓名”+“總分”+“名次”
  For i=I To n
  List2 AddItem xh（i）+“”+xm（i）+“”+Str（zf（i））+“”+

   

  
  Next i
  End Sub
  組卷：0引用：1難度：0.5

  解析