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

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

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

  A．天氣預報不適合用書本、光盤形式發布主要體現了信息的時效性

  B．硬盤主要作為計算機存儲信息的載體

  C．信息可以無限的傳播但信息本身不會發生改變

  D．所有收到的信息都是真實的
  組卷：18難度：0.9

  解析

• 2．有如下Visual Basic程序段：
  A=“Happy new year！”
  B=Len（A）\2
  C=63 Mod 10
  Text1．Text=Mid（A，B，C）
  該程序運行后文本框text1顯示的內容為（　?。?/h2>

  A．3

  B．new

  C．B

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

  解析

• 3．下列過程沒有涉及到人工智能技術的是（　?。?/h2>

  A．將報紙中的內容用掃描儀掃描下來保存成圖片方便以后瀏覽

  B．在蘋果手機上用語音識別軟件Siri撥打電話

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

  D．把曾經的打印稿件用OCR識別后復制到Word中重新編輯
  組卷：10引用：3難度：0.9

  解析

• 4．若將視頻文件“片頭．mpg”的聲音分離并保存成一個獨立的聲音文件，下列軟件中能實現該功能的是（　　）

  A．Goldwave

  B．Frontpage

  C．會聲會影

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

  解析

• 5．如圖所示的部分流程圖中，“s←s+i”被執行次數為（　?。?br />

  A．0

  B．1

  C．32

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

  解析

【加試題】

• 16．統計單詞個數．小明要參加英語等級考試，正在苦練寫作，為了快速統計文章中單詞的個數，他設計了如下VB程序，只要在文本框Text1中輸入短文，單擊統計按鈕，單詞的個數就在Text2中顯示（假定每個單詞中不包含英文字母以外的其他字符）．
  算法的基本思路：按位取出字符，如果是字母，并且flag=False,說明是一個單詞的開始，則單詞個數增加1，flag置為True,余下的連續字母不再計數．如果讀入非字母，則表示一個單詞已經完成，flag重新置為False,繼續循環．
  程序界面如圖所示，按此要求編寫程序如下，但加框處代碼有錯，請改正．
  Private Sub Command1_Click （　?。?br />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’將小寫字母轉化為大寫字母．
  If ch＞=“a”And ch＜=“z”Then
  xtod=’②
  Else
  xtod=ch
  End If
  End Function
  （1）加框處①有錯，應改為

   

  ．
  （2）加框處②有錯，應改為

   

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

  解析

• 17．小王利用VB及ACCESS數據庫制作了一個解密程序，具體使用過程如下：
  在VB項目文件夾目錄中有一個ACCESS數據庫文件data.accdb,其中有一張數據表如圖1所示ask字段中存放的是密文字符，對應ans字段中存放的是明文字符．
  
  VB程序界面如圖2所示，其中一個按鈕Command1的Caption屬性值設置為“讀取密碼本”，另一個按鈕Command2的Caption屬性值設置為“解密”．程序運行后先點擊Command1，程序將從ACCESS數據庫中讀取明文密文對照表并顯示在列表框List1中．然后在密文文本框Texe1中輸入加密文字，點擊Command2解密后的明文將顯示在Text2中．
  
  程序代碼部分如下，請回答后面的問題：
  Dim a As String
  Dim b  As String
  Dim length As Integer
  Private Sub Command1_Click （　　）
  List1．Clear
  Dim i As Integer
  Dim conn As New ADODB．Connection
  Dim rs As New ADODB．Recordset
  conn.ConnectionString=“provider=microsoft.ace.jye.ai.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 （　　）
  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）程序代碼①處應該填入

   

  ．
  （2）程序代碼②處應該填入

   

  ．
  （3）在程序代碼③處補全Mid函數：

   

  ．
  （4）程序代碼④處應該填入

   

  ．
  （5）translate函數使用的查找算法是

   

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

  解析