2017-2018學(xué)年浙江省紹興市諸暨市牌頭中學(xué)高三（上）期中信息技術(shù)試卷

一、選擇題（本大題共9小題，每小題2分，共24分，每小題列出的四個(gè)備選項(xiàng)中只有一個(gè)符合題目要求的，不選、多選、錯(cuò)選均不得分）

• 1．小陳去周莊旅游，景點(diǎn)門票兩日內(nèi)有效，首次入園需驗(yàn)票（即掃描門票的二維碼），然后采集指紋，若兩日內(nèi)再次入園刷指紋即可，下列說法正確的是（　?。?/h2>

  A．采集指紋的過程屬于信息的發(fā)布

  B．采集指紋的目的是提高信息的共享性

  C．兩日后刷指紋不可入園，體現(xiàn)信息的時(shí)效性

  D．兩日后刷指紋不可入園，體現(xiàn)信息的真?zhèn)涡?/label>
  組卷：59引用：6難度：0.9

  解析

• 2．小王發(fā)送電子郵件時(shí)部分界面如圖所示，下列說法正確的是（　?。?br />

  A．該郵件已添加“超大附件”

  B．該郵件發(fā)送時(shí)使用Pop3協(xié)議

  C．該郵件發(fā)送成功后，共有3位用戶收到該郵件

  D．郵件沒有主題內(nèi)容，也能發(fā)送成功
  組卷：3引用：1難度：0.9

  解析

• 3．下列操作中，運(yùn)用人工智能的是（　　）

  A．使用字典查找英文單詞的中文翻譯

  B．使用OCR軟件對(duì)圖片進(jìn)行傾斜校正

  C．使用輸入法“軟鍵盤”進(jìn)行字符輸入

  D．使用“訊飛”軟件通過語音進(jìn)行漢字輸入
  組卷：5引用：3難度：0.9

  解析

• 4．某Access 數(shù)據(jù)表，其設(shè)計(jì)視圖如圖1所示，數(shù)據(jù)表如圖2所示，下列說法正確的是（　?。?img alt="菁優(yōu)網(wǎng)" src="https://img.jyeoo.net/quiz/images/201710/10/25391f0f.png" style="vertical-align:middle" />

  A．?dāng)?shù)據(jù)表中有記錄時(shí)，各字段的類型都不可更改

  B．不論“選考技術(shù)”是否打鉤，各記錄的字段數(shù)均為7

  C．將數(shù)據(jù)表導(dǎo)出到Excel,則該工作表共有7列，46行數(shù)據(jù)

  D．將數(shù)據(jù)表導(dǎo)出到Excel,“選考技術(shù)”列顯示的值為“是”或“否”
  組卷：4引用：3難度：0.7

  解析

• 5．某算法的部分流程如圖所示，執(zhí)行這部分流程，依次輸入“3，6，5，0，-1，-2”，則輸出s的值是（　?。?/h2>

  A．8

  B．10

  C．14

  D．16
  組卷：3引用：2難度：0.7

  解析

【加試題】

• 16．某排序算法思想如下：若有11個(gè)桶，編號(hào)從0～10，隨機(jī)產(chǎn)生多個(gè)整數(shù)，每產(chǎn)生一個(gè)整數(shù)時(shí)，就在以該整數(shù)位編號(hào)的桶中放一面小旗子，最后只要按順序數(shù)每個(gè)桶中有幾面小旗子，就能得到這幾個(gè)整數(shù)的有序排列．例如2號(hào)桶中有1個(gè)小旗子，表示2出現(xiàn)了一次；3號(hào)桶中有1個(gè)小旗子，表示3出現(xiàn)了一次；5號(hào)桶中有2個(gè)小旗子，表示5出現(xiàn)了兩次；8號(hào)桶中有1個(gè)小旗子，表示8出現(xiàn)了一次，按桶有編號(hào)順序讀出旗子數(shù)量，沒有旗子的桶略過，得到有序整數(shù)為“2，3，5，5，8”．
  為此，小李編寫了一個(gè)VB程序，功能如下：運(yùn)行程序，窗體加載時(shí)隨機(jī)產(chǎn)生6個(gè)[0，9]的隨機(jī)整數(shù)，并在列表框List1中依次顯示排序前數(shù)據(jù)，單擊“排序”按鈕Commandl,在列表框Lixt2中顯示經(jīng)過上述排序算法后的數(shù)據(jù)，運(yùn)行結(jié)果如第如圖2所示．
  實(shí)現(xiàn)上述功能 的VB代碼如下，但加框代碼有錯(cuò)，請(qǐng)改正．
  Dim a（10）As Integer’數(shù)組a表示桶的編號(hào)，如a（0）表示第0號(hào)桶
  Private Sub Commandl_-Click（　?。?br />    Dim i As Integer,j As Integer
      For i=0 to 10
          For j=1 to
              List2．AddItem CStr（i）
          Next j
      Next i
  End Sub
  Private Sub Form-Load
      Dim i As Integer
      Randomize
      For i=0 to 10’將數(shù)組初始化為0
          a（i）=0
      Next i
      For i=1 to 6’產(chǎn)生6個(gè)[0，9]的隨機(jī)數(shù)
          t=Int（Rnd*10）
          a（t）=’第t桶中小旗子數(shù)量加1
          List1．AddItem  CStr（t）
      Next i
  End Sub.
  組卷：4引用：3難度：0.3

  解析

【加試題】

• 17．小李編寫一個(gè)統(tǒng)計(jì)學(xué)生選考科目的VB程序，算法的基本思想是：檢查每位學(xué)生選課組合的編碼是否有效，對(duì)有效選擇結(jié)果進(jìn)行科目統(tǒng)計(jì)，根據(jù)各科次占有效人數(shù)的百分率求出各科排名。程序運(yùn)行時(shí)，單擊“顯示”按鈕Commmad1，學(xué)生選課數(shù)據(jù)顯示在列表框list1中，各科編號(hào)及對(duì)應(yīng)科目名稱顯示列表框list2中，單擊“統(tǒng)計(jì)”按鈕Commmad2，選課結(jié)果按各科百分率由高到低顯示在列表框list3中，程序運(yùn)行結(jié)果如圖所示。
  實(shí)現(xiàn)上述功能的VB程序如下，請(qǐng)回答下列問題：
  （1）學(xué)生選課的編碼數(shù)據(jù)存儲(chǔ)在數(shù)據(jù)表中，其字段名為。
  （2）請(qǐng)?jiān)跈M線處填入合適的代碼。
  Dim ach（1To 500）As String'存儲(chǔ)各學(xué)生選課編碼
  Dim bno（1To 10）As Integer'存儲(chǔ)各科目編號(hào)
  Dim bname（1To 10）As String'存儲(chǔ)各科目名稱
  Dim bnum（1To 10）As Integer'存儲(chǔ)各科目被選次數(shù)
  Dim bmc（1To 10）As Integer'存儲(chǔ)各科目被選的名次
  Dim n As Integer,num As Integer
  Private Sub Command1_Click （　?。?br />Dim i As Integer,km As String
  km=“物理化學(xué)生物政治歷史地理技術(shù)“
  Dim cn As New ADODB．Connection,rs As New ADODB．Recordset,sql As String
  cn.Open“provider=Microsoft.Jet.oledb.4.0；Data Source=“+App.Path+“\students.mdb“
  rs.Open“select*from choose“，cn
  Do While Not rs.EOF
  n=n+1：ach（n）=rs.Fields（“subject“）：rs.MoveNext
  Loop
  rs.Close
  cn.Close
  Set rs=Nothing
  Set cn=Nothing
  For i=1To 7
  bno（i）=i
  bname（i）=Mid（km,（i-1）*2+1，2）
  List2．AddItem Str（bno（i））+“---“+bname（i）
  Next i
  End Sub
  Private Sub Command2_Click （　　）
  Dim i As Integer,j As Integer,k As Integer
  Dim c As String,per As Integer
  For i=1To n
  If check（ach（i））=True Then
  For j=1To 3
  c=Mid（ach（i），j,1）
  bnum（Val（c））=①

   

  
  Next j
  num=num+1
  End If
  Next i
  i=1
  Do While i＜=7'該循環(huán)得到各學(xué)科被選人數(shù)的名次
  bmc（i）=1
  For j=1To 7
  If bnum（j）＞bnum（i） Then ②

   

  
  Next j
  i=i+1
  Loop
  For i=1To 7
  For j=1To 7
  If③

   

  Then
  per=Int（bnum（j）*100/num*100）/100
  List3．AddItem Str（bno（j））+“---“+bname（j）+“---“+Str（per）+“%“
  End If
  Next j
  Next i
  End Sub
  Function check（s As String） As Boolean
  '代碼略!若學(xué)生選科代碼有效，函數(shù)返回True,否則返回False
  End Function。
  組卷：2引用：1難度：0.4

  解析