2017年浙江省高考信息技術(shù)模擬試卷（3）

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

• 1．下列關(guān)于信息的說法不正確的是（　?。?/div>

  A．天氣預(yù)報(bào)不適合用書本、光盤形式發(fā)布主要體現(xiàn)了信息的時(shí)效性

  B．硬盤主要作為計(jì)算機(jī)存儲(chǔ)信息的載體

  C．信息可以無限的傳播但信息本身不會(huì)發(fā)生改變

  D．所有收到的信息都是真實(shí)的
  組卷：18引用：2難度：0.9

  解析
• 2．有如下Visual Basic程序段：
  A=“Happy new year！”
  B=Len（A）\2
  C=63 Mod 10
  Text1．Text=Mid（A，B，C）
  該程序運(yùn)行后文本框text1顯示的內(nèi)容為（　　）

  A．3

  B．new

  C．B

  D．Mid（A，7，3）
  組卷：11引用：2難度：0.9

  解析
• 3．下列過程沒有涉及到人工智能技術(shù)的是（　?。?/div>

  A．將報(bào)紙中的內(nèi)容用掃描儀掃描下來保存成圖片方便以后瀏覽

  B．在蘋果手機(jī)上用語音識(shí)別軟件Siri撥打電話

  C．將看不懂的他國語言文字用“百度翻譯”翻譯成中文

  D．把曾經(jīng)的打印稿件用OCR識(shí)別后復(fù)制到Word中重新編輯
  組卷：10引用：3難度：0.9

  解析
• 4．若將視頻文件“片頭．mpg”的聲音分離并保存成一個(gè)獨(dú)立的聲音文件，下列軟件中能實(shí)現(xiàn)該功能的是（　?。?/div>

  A．Goldwave

  B．Frontpage

  C．會(huì)聲會(huì)影

  D．Flash
  組卷：4引用：2難度：0.7

  解析
• 5．如圖所示的部分流程圖中，“s←s+i”被執(zhí)行次數(shù)為（　　）
  

  A．0

  B．1

  C．32

  D．33
  組卷：5引用：2難度：0.7

  解析

【加試題】

• 16．統(tǒng)計(jì)單詞個(gè)數(shù)．小明要參加英語等級(jí)考試，正在苦練寫作，為了快速統(tǒng)計(jì)文章中單詞的個(gè)數(shù)，他設(shè)計(jì)了如下VB程序，只要在文本框Text1中輸入短文，單擊統(tǒng)計(jì)按鈕，單詞的個(gè)數(shù)就在Text2中顯示（假定每個(gè)單詞中不包含英文字母以外的其他字符）．
  算法的基本思路：按位取出字符，如果是字母，并且flag=False,說明是一個(gè)單詞的開始，則單詞個(gè)數(shù)增加1，flag置為True,余下的連續(xù)字母不再計(jì)數(shù)．如果讀入非字母，則表示一個(gè)單詞已經(jīng)完成，flag重新置為False,繼續(xù)循環(huán)．
  程序界面如圖所示，按此要求編寫程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
  Private Sub Command1_Click （　　）
  Dim x As String,y As String
  Dim n As Integer,m As Integer,flag As Boolean
  x=Text1．Text
  m=0：flag=False
  For i=1To Len（x）
  y=xtod（Mid（x,i,1））
  If y＞=“A”And y＜=“Z”Then
  IfThen’①
  m=m+1
  flag=True
  End If
  Else
  flag=False
  End If
  Next
  Text 2．Text=Str（m）
  End Sub
  Function xtod（ch As String） As String’將小寫字母轉(zhuǎn)化為大寫字母．
  If ch＞=“a”And ch＜=“z”Then
  xtod=’②
  Else
  xtod=ch
  End If
  End Function
  （1）加框處①有錯(cuò)，應(yīng)改為

   

  ．
  （2）加框處②有錯(cuò)，應(yīng)改為

   

  ．
  組卷：5引用：2難度：0.3

  解析
• 17．小王利用VB及ACCESS數(shù)據(jù)庫制作了一個(gè)解密程序，具體使用過程如下：
  在VB項(xiàng)目文件夾目錄中有一個(gè)ACCESS數(shù)據(jù)庫文件data.accdb,其中有一張數(shù)據(jù)表如圖1所示ask字段中存放的是密文字符，對(duì)應(yīng)ans字段中存放的是明文字符．
  
  VB程序界面如圖2所示，其中一個(gè)按鈕Command1的Caption屬性值設(shè)置為“讀取密碼本”，另一個(gè)按鈕Command2的Caption屬性值設(shè)置為“解密”．程序運(yùn)行后先點(diǎn)擊Command1，程序?qū)腁CCESS數(shù)據(jù)庫中讀取明文密文對(duì)照表并顯示在列表框List1中．然后在密文文本框Texe1中輸入加密文字，點(diǎn)擊Command2解密后的明文將顯示在Text2中．
  
  程序代碼部分如下，請(qǐng)回答后面的問題：
  Dim a As String
  Dim b  As String
  Dim length As Integer
  Private Sub Command1_Click （　?。?br />List1．Clear
  Dim i As Integer
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  conn.ConnectionString=“provider=microsoft.ace.oledb.12.0；data source=”& App.Path &
  “\

   

  ”
  conn.Open
  rs.ActiveConnection=conn
  rs.CursorLocation=adUseClient
  rs.Open （“select*from code”）
  length=rs.RecordCount
  ReDim a（1To length）
  ReDim b（1To length）
  rs.MoveFirst
  For i=1To length
  a（i）=rs.Fields（“ask”）
  b（i）=rs.Fields（“ans”）
  List1．AddItem （a（i）&“+”&b（i））
  rs.

   

  
  Next i
  End Sub
  Private Sub Command2_Click （　?。?br />Text2．Text=“”
  Dim s As String
  Dim i As Integer
  s=Text1．Text
  For i=1To Len（s）
  Text2．Text=Text2．Text&translate（Mid（s,

   

  ）
  Next i
  End Sub
  
  Function translate（ask As String） As String
  Dim i as Integer
  Dim flag as Boolean
  i=1
  flag=True
  Do While i＜=length And flag
  If a（i）=ask Then
  

   

  
  End If
  i=i+1
  Loop
  If flag=True Then
  translate=“”
  Else
  translate=b（i-1）
  End If
  End Function
  （1）程序代碼①處應(yīng)該填入

   

  ．
  （2）程序代碼②處應(yīng)該填入

   

  ．
  （3）在程序代碼③處補(bǔ)全Mid函數(shù)：

   

  ．
  （4）程序代碼④處應(yīng)該填入

   

  ．
  （5）translate函數(shù)使用的查找算法是

   

  （填對(duì)分查找/順序查找）．
  組卷：21引用：1難度：0.1

  解析