2017年3月浙江省十校聯(lián)盟選考信息技術(shù)試卷

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

• 1．下列軟件中，主要用于編輯“靜待花開。psd”文件的是（　?。?/h2>

  A．OCR

  B．Word

  C．Photoshop

  D．Premiere
  組卷：8引用：3難度：0.9

  解析

• 2．下列關(guān)于信息獲取與交流的說法中正確的是（　?。?/h2>

  A．使用搜索引擎總能從因特網(wǎng)上檢索到需要的信息

  B．使用Microsoft Edge 軟件瀏覽萬維網(wǎng)網(wǎng)頁采用的是HTTP協(xié)議

  C．將電子郵件發(fā)送到收件人電子信箱采用的是POP3協(xié)議

  D．QQ好友傳送過來的文件都是安全的，無需查殺病毒
  組卷：12引用：2難度：0.9

  解析

• 3．在Word中輸入“boxs”時，會立刻變成“boxes”，這是因為Word軟件具有（　?。?/h2>

  A．批注功能	B．修訂功能
  C．查找/替換功能	D．自動更正功能
  組卷：14引用：3難度：0.9

  解析

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

  A．自動編號類型的字段，其值唯一且不能修改

  B．處于打開狀態(tài)的數(shù)據(jù)表，可以直接重命名其名稱

  C．一個數(shù)據(jù)庫文件，可以被多個用戶共享

  D．一個數(shù)據(jù)庫文件，可以為多個應(yīng)用程序提供服務(wù)
  組卷：11引用：1難度：0.5

  解析

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

  A．變量n,x的值分別是6，1

  B．變量n,x的值分別是1，6

  C．步驟x←x/2的執(zhí)行次數(shù)是4

  D．步驟n←n+1的執(zhí)行次數(shù)是6
  組卷：5引用：1難度：0.7

  解析

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

• 16．某地2017.1-2017.2月的日期及日最高氣溫數(shù)據(jù)保存在數(shù)據(jù)庫中．現(xiàn)要求根據(jù)日最高氣溫，找出這兩個月中連續(xù)降溫的次數(shù)、連續(xù)最長降溫天數(shù)及其日期．小劉為此編寫了VB程序，程序運行時，單擊按鈕Commandl后，在標簽Labell和Label2上輸出運行結(jié)果．實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正．
  Dim a（1 To 59）As String’依次存儲2017.1-2017.2 月的日期數(shù)據(jù)
  Dim b（1 To 59）As Integer’依次存儲2017.1-2017.2月的日最高氣溫數(shù)據(jù)
  Private Sub Form_Load（　?。?br />’本過程從數(shù)據(jù)庫中按2017.1-2017.2的日期次序，讀取日期和日最高氣溫數(shù)據(jù)，分別并存儲在數(shù)組a和數(shù)組b中
  ’代碼略
  End Sub
  Private Sub Commandl_Click（　?。?br />Dim d As Integer,n As Integer
  Dim dmax As Integer,m As Integer
  n=0：d=1：dmax=1
  For i=2 To 59
  
  d=d+1
  Else
  d=1
  End If
  If d=2 Then n=n+1
  If d＞dmax Then
  dmax=d
  m=i
  End If
  Next i
  Label 1．Caption=〃連續(xù)降溫次數(shù)〃& Str（n）
  Label 2．Caption=〃連續(xù)最長降溫日期為：
  &〃持續(xù)天數(shù)為：〃& Str（dmax）
  End Sub.
  組卷：12引用：1難度：0.1

  解析

• 17．小劉在研究n個數(shù)的冒泡排序算法時，發(fā)現(xiàn)可以從兩個方面進行優(yōu)化：
  （1）在每遍冒泡過程中，若最后一次交換的是last與last-1位置的數(shù)，則last位置之前的相鄰數(shù)據(jù)均已有序．進行下一遍冒泡時，無序區(qū)域設(shè)置為[last,n]，這樣一遍排序可能使當前無序區(qū)域縮?。?br />（2）若在某一遍排序中沒有數(shù)據(jù)交換，說明待排序數(shù)據(jù)都已經(jīng)有序，冒泡排序過程可在此遍排序后終止．因此可以引入一個邏輯變量flag,記錄在每遍排序過程中是否發(fā)生了交換，每遍排序結(jié)束時檢查flag,若未發(fā)生過交換則終止排序．
      小劉按上述方法編寫的冒泡優(yōu)化VB程序，功能如下：單擊“生成數(shù)據(jù)”按鈕Commandl后，生成一組隨機的兩位整數(shù)存入數(shù)組a,并顯示在列表框Listl中．單擊“排序”按鈕Command2后，對數(shù)組a 中的數(shù)據(jù)進行降序排序，排序后的數(shù)據(jù)顯示在列表框List2中，排序過程中實際的 泡遍數(shù)顯示在標簽Label2上．程序運行界面如圖所示．
  
      實現(xiàn)上述功能的VB程序如下，請回答下列問題：
  （1）若按小劉優(yōu)化后的冒泡排序算法，對數(shù)據(jù)28，15，10，8，12進行降序排序，冒泡的遍數(shù)為

   

  （填數(shù)字）．
  （2）請在①②③橫線處填入合適的代碼．
  Dim a（1 To 20）As Integer
  Private Sub Command1_Click（　　）
  Dim i As Integer,j As Integer
  Listl.Clear：List2．Clear
  Randomize
  ’產(chǎn)生20個無重復的隨機整數(shù)，范圍為[10，99]，并存儲在數(shù)組a中
  For i=1 To 20
  a（i）=

   

  
  j=1
  For j=1 To i-1
  If a（i）=a（j）Then
  i=i-1
  Exit For’退出循環(huán)
  End If
  Next j
  Next i
  For i=1 To 20
  Listl.Addltem Str（a（i））
  Next i
  End Sub
  Private Sub Command2_Click（　?。?br />Dim flag As Boolean,i As Integer,j As Integer
  Dim temp As Integer,num As Integer,last As Integer
  num=0：last=1
  flag=True
  Do While

   

  
  flag=False
  For

   

  
  If  a（j）＞a（j-1）Then
  temp=a（j）：a（j）=a（j-1）：a（j-1）=temp
  last=j
  flag=True’有交換發(fā)生
  End If
  Next j
  num=num+1
  Loop
  For i=1 To 20
  List2．Additem Str（a（i））
  Next i
  Label3．Caption=〃本次排序的冒泡遍數(shù)為：〃& Str（num）
  End Sub.
  組卷：13引用：1難度：0.1

  解析