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

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

• 1．下列有關(guān)信息和信息技術(shù)的說(shuō)法，正確的是（　?。?/h2>

  A．隨著現(xiàn)代通信技術(shù)和計(jì)算機(jī)技術(shù)的發(fā)展產(chǎn)生了信息技術(shù)

  B．通過無(wú)線網(wǎng)絡(luò)傳輸?shù)男畔⒉灰栏接谳d體

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

  D．網(wǎng)絡(luò)是信息的表達(dá)方式，可利用網(wǎng)絡(luò)發(fā)布信息
  組卷：10引用：2難度：0.5

  解析

• 2．下列有關(guān)網(wǎng)站和網(wǎng)頁(yè)的說(shuō)法，正確的是（　?。?/h2>

  A．網(wǎng)頁(yè)文件使用瀏覽器編輯，通過HTTP協(xié)議傳輸

  B．只有純文字的網(wǎng)頁(yè)才可以用記事本編輯

  C．網(wǎng)站的地址用URL標(biāo)識(shí)，收藏夾收藏網(wǎng)站首頁(yè)就是保存該網(wǎng)頁(yè)的URL

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

  解析

• 3．使用Word軟件編輯某文檔，部分界面如圖所示。
  
  下列說(shuō)法正確的是（　?。?/h2>

  A．批注的內(nèi)容一旦添加，就不能修改

  B．刪除批注，批注對(duì)象同時(shí)被刪除

  C．實(shí)現(xiàn)圖中的圖文環(huán)繞效果可以采用“四周型”環(huán)繞方式

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

  解析

• 4．關(guān)于Access數(shù)據(jù)表的操作，下列說(shuō)法正確的是（　?。?/h2>

  A．在數(shù)據(jù)表視圖中不能添加字段

  B．在數(shù)據(jù)表視圖中不能對(duì)數(shù)據(jù)進(jìn)行篩選操作

  C．?dāng)?shù)據(jù)表的名稱不能與表中的字段名相同

  D．Access數(shù)據(jù)表中的數(shù)據(jù)能導(dǎo)出到Excel電子表格
  組卷：4引用：2難度：0.5

  解析

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

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

  B．語(yǔ)句“k=1-k”共執(zhí)行了10次

  C．輸出k的值為0

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

  解析

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

• 16．篩選法求素?cái)?shù)的核心思想是先找最小素?cái)?shù)，然后剔除其所有的倍數(shù)，在留 下的數(shù)中再剔除最小素?cái)?shù)的倍數(shù)，重復(fù)執(zhí)行，直到剔除所有的非素?cái)?shù)。小張編寫了一個(gè)2 查找孿生素?cái)?shù)對(duì)（差值為2）的VB程序，功能如下：在文本框Text1中輸入一個(gè)整數(shù)n（n≤1000000），單擊“求素?cái)?shù)對(duì)”按鈕Command1，在列表框List1中 顯示2 到n 范圍內(nèi)的素?cái)?shù)，在標(biāo)簽Label2中顯示素?cái)?shù)個(gè)數(shù)，在標(biāo)簽Label3中顯示孿生素?cái)?shù)對(duì)個(gè)數(shù)。程序運(yùn)行界面如圖所示。
  實(shí)現(xiàn)上述功能的VB程序如下，但加框處代碼有錯(cuò)，請(qǐng)改正。
  PrivateSubCommand1_Click （　?。?br />DimnAsLong,iAsLong,jAsLong
  DimtAsLong'存儲(chǔ)素?cái)?shù)個(gè)數(shù)
  DimcountAsInteger'存儲(chǔ)素?cái)?shù)對(duì)個(gè)數(shù)
  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）+“個(gè)素?cái)?shù)“
  Label3．Caption=“其中有“+Str（count）+“個(gè)孿生素?cái)?shù)對(duì)“
  EndSub
  Functionads（xAsInteger,nAsInteger）As String
  '整數(shù)轉(zhuǎn)換成長(zhǎng)度固定的字符串，代碼略
  EndFunction
  組卷：0引用：1難度：0.5

  解析

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

   

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

   

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

   

  
  flag=True
  DoWhileflag'尋找順子牌型，若有則存儲(chǔ)到數(shù)組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
  '尋找并存儲(chǔ)三帶一、對(duì)子、單張牌型，代碼略
  Loop
  EndSub
  PrivateSubCommand2_Click （　?。?br />Dim count1AsInteger'count1統(tǒng)計(jì)A組出牌次數(shù)
  Dim count2AsInteger'count2統(tǒng)計(jì)B組出牌次數(shù)
  Callarrange（s1）
  '在List1中顯示A組出的牌型，統(tǒng)計(jì)出牌次數(shù)，代碼略
  Callarrange（s2）
  '在List2中顯示B組出的牌型，統(tǒng)計(jì)出牌次數(shù)，代碼略
  Ifcount2＞count1Then
  Label3．Caption=“A組出牌次數(shù)小于B組“
  ElseIfcount2=count1Then
  Label3．Caption=“A組出牌次數(shù)等于B組“
  Else
  Label3．Caption=“A組出牌次數(shù)大于B組“
  EndIf
  EndSub
  組卷：0引用：1難度：0.3

  解析