2018-2019學年浙江省嘉興一中高三（上）期末信息技術試卷

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

• 1．下列有關信息和信息技術的說法，正確的是（　　）

  A．隨著現代通信技術和計算機技術的發展產生了信息技術

  B．通過無線網絡傳輸的信息不依附于載體

  C．信息可以脫離它所反映的事物被存儲、保存和傳播

  D．網絡是信息的表達方式，可利用網絡發布信息
  組卷：10引用：4難度：0.5

  解析

• 2．下列有關網站和網頁的說法，正確的是（　　）

  A．網頁文件使用瀏覽器編輯，通過HTTP協議傳輸

  B．只有純文字的網頁才可以用記事本編輯

  C．網站的地址用URL標識，收藏夾收藏網站首頁就是保存該網頁的URL

  D．以“網頁，全部（*．htm；*．html）”保存網頁時，網頁中的圖片保存在網頁文件中
  組卷：5引用：2難度：0.5

  解析

• 3．使用Word軟件編輯某文檔，部分界面如圖所示。
  
  下列說法正確的是（　　）

  A．批注的內容一旦添加，就不能修改

  B．刪除批注，批注對象同時被刪除

  C．實現圖中的圖文環繞效果可以采用“四周型”環繞方式

  D．拒絕對文檔的所有修訂后，最后一行文字中的“語言識別”被保留
  組卷：4引用：2難度：0.5

  解析

• 4．關于Access數據表的操作，下列說法正確的是（　　）

  A．在數據表視圖中不能添加字段

  B．在數據表視圖中不能對數據進行篩選操作

  C．數據表的名稱不能與表中的字段名相同

  D．Access數據表中的數據能導出到Excel電子表格
  組卷：4引用：2難度：0.5

  解析

• 5．某算法部分流程圖如圖所示，執行這部分流程，下列說法正確 的是（　　）
  

  A．“s≥0”共判斷了10次

  B．語句“k=1-k”共執行了10次

  C．輸出k的值為0

  D．輸出s 的值為-1
  組卷：0引用：2難度：0.5

  解析

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

• 16．篩選法求素數的核心思想是先找最小素數，然后剔除其所有的倍數，在留 下的數中再剔除最小素數的倍數，重復執行，直到剔除所有的非素數。小張編寫了一個2 查找孿生素數對（差值為2）的VB程序，功能如下：在文本框Text1中輸入一個整數n（n≤1000000），單擊“求素數對”按鈕Command1，在列表框List1中 顯示2 到n 范圍內的素數，在標簽Label2中顯示素數個數，在標簽Label3中顯示孿生素數對個數。程序運行界面如圖所示。
  實現上述功能的VB程序如下，但加框處代碼有錯，請改正。
  PrivateSubCommand1_Click （　　）
  DimnAsLong,iAsLong,jAsLong
  DimtAsLong'存儲素數個數
  DimcountAsInteger'存儲素數對個數
  DimpAsLong
  Dima（2To10000000）AsInteger n=Val（Text1．Text）
  Fori=2Ton a（i）=1
  Nexti
  p=2
  DoWhilep＜=Int（Sqr（n）） Ifa（p）=1Then
  j=2
  DoWhilej＜=n\p
  '（1）
  j=j+1
  Loop
  EndIf
  p=p+1
  Loop t=0
  Fori=2Ton
  Ifa（i）=1Thent=t+1
  Nexti count=0
  Fori=2Ton-2
  IfThen'（2）
  count=count+1
  List1．AddItemads（i,1）&ads（i+2，5）EndIf
  Nexti
  Label2．Caption=“總共有“+Str（t）+“個素數“
  Label3．Caption=“其中有“+Str（count）+“個孿生素數對“
  EndSub
  Functionads（xAsInteger,nAsInteger）As String
  '整數轉換成長度固定的字符串，代碼略
  EndFunction
  組卷：0引用：1難度：0.5

  解析

• 17．下列關于某紙牌游戲的算法是：隨機產生兩組牌，每組17張，牌從小到大
  分別為“3～10、J、Q、K、A、2”，每種牌最多4 張，四張相同的牌如3333稱為炸彈牌 型，炸彈不能拆成其他牌型。按照如下規則出牌：
  ①先出順子牌型（順子指連續的5 張及以上的牌，如345678，順子最小從3 開始，最大到A），若有多個順子，先長后短，長度相同按從小到大順序出；
  ②再按三帶一牌型（3張相同的牌帶一張單牌）、對子牌型（2張相同）、單張牌型的順 序出牌，同一牌型從小到大出；
  ③最后出炸彈，若有多個炸彈，從小到大出。
  設計以下VB程序，牌“10”用0 代替，比較兩組出牌次數，界面如圖所示，請回答下 列問題。
  （1）若A組初始牌為：4567880JQQQQKAAA2，B組初始牌為：56778888JQQKKKA22，
  則A組出牌次數

   

  B組。（填：大于/等于/小于）
  （2）請在橫線處填入合適代碼。
  Consts=“34567890JQKA2“'用0代替牌10
  Dims1As String,s2As String's1存儲A組牌，s2存儲B組牌
  Dimb（1To18）As String
  '數組b存儲各類牌型，其中b（1）到b（4）可存儲炸彈牌型，b（5）到b（18）存儲其他牌型
  PrivateSubCommand1_Click （　　）
  '隨機產生A組和B組牌分別在文本框Text1、Text2中顯示，代碼略
  EndSub
  Subarrange（stAs String）'整理牌型的過程
  Dima（3To15）AsInteger,iAsInteger
  DimjAsInteger,tAsInteger,nAsInteger
  DimkAsInteger,maxAsInteger,lastAsInteger
  DimsaAs String,stemAsString,flagAsBoolean
  '數組元素a（3）到a（15）分別存儲牌3～JQKA2的張數'代碼略
  t=17
  For i=1To18b（i）=““
  Nexti
  DoWhilet＞0n=0
  For i=3To15'尋找炸彈牌型，若有則存儲到數組b中
  Ifa（i）=4Then

   

  
  n=n+1
  b（n）=stem+stem+stem+stem
  a（i）=0：t=t-4
  EndIf
  Nexti

   

  
  flag=True
  DoWhileflag'尋找順子牌型，若有則存儲到數組b 中
  flag=False：max=0：k=1
  Fori=4To14
  Ifa（i-1）＞=1Anda（i）＞=1Then k=k+1
  Ifk＞maxThen
  max=k last=i+1
  EndIf
  Else
  k=1
  EndIf
  Nexti
  Ifmax＞=5Then
  flag=True：sa=““
  Forj=last-max+1Tolast stem=Mid（s,j-3，1）sa=sa+stem+““
  

   

  
  Nextj
  n=n+1：b（n）=sa t=t-max
  EndIf
  Loop
  '尋找并存儲三帶一、對子、單張牌型，代碼略
  Loop
  EndSub
  PrivateSubCommand2_Click （　　）
  Dim count1AsInteger'count1統計A組出牌次數
  Dim count2AsInteger'count2統計B組出牌次數
  Callarrange（s1）
  '在List1中顯示A組出的牌型，統計出牌次數，代碼略
  Callarrange（s2）
  '在List2中顯示B組出的牌型，統計出牌次數，代碼略
  Ifcount2＞count1Then
  Label3．Caption=“A組出牌次數小于B組“
  ElseIfcount2=count1Then
  Label3．Caption=“A組出牌次數等于B組“
  Else
  Label3．Caption=“A組出牌次數大于B組“
  EndIf
  EndSub
  組卷：0引用：1難度：0.3

  解析