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

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

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

  A．因特網(wǎng)上的信息可不受限制地隨意獲取

  B．同樣的信息不能加載于不同的載體之上

  C．網(wǎng)頁(yè)中使用文字、圖象、表格、超鏈接等方式表達(dá)信息

  D．設(shè)置郵箱，限制郵件大小，過(guò)濾垃圾郵件等，無(wú)助于保護(hù)個(gè)人信息
  組卷：7引用：1難度：0.9

  解析

• 2．用UltraEdit軟件觀(guān)察“VB6.0中文版”這幾個(gè)字符的內(nèi)碼，如圖所示，下列描述中正確的是（　　）
  

  A．“中”是ASCⅡ碼字符，內(nèi)碼是“D6Do”

  B．字符“V”存儲(chǔ)在計(jì)算機(jī)中的二進(jìn)制編碼是1010111

  C．由圖可推算出字符“Z”的內(nèi)碼是60H

  D．字符“VB6.0”共占5字節(jié)存儲(chǔ)空間
  組卷：11引用：1難度：0.9

  解析

• 3．小李用Word制作了一份關(guān)于生活廢棄物的科學(xué)調(diào)查報(bào)告．張老師在修訂模式下對(duì)文檔進(jìn)行了修改，部分截圖如圖所示．該文檔接受所有修訂后，第一行的文字應(yīng)該是（　?。?br />

  A．我家每天產(chǎn)生塑料類(lèi)廢棄物最多，其次是紙類(lèi)廢棄物．其中，塑料類(lèi)廢棄物

  B．我家每天產(chǎn)生塑料類(lèi)廢棄物最最多，其次是紙類(lèi)的廢棄物．其中，塑料類(lèi)廢棄物

  C．我家每天產(chǎn)生的塑料類(lèi)廢棄物最多，其次是紙類(lèi)廢棄物．其中，塑料類(lèi)廢棄物

  D．我家每天產(chǎn)生的塑料類(lèi)廢棄物多，其次是紙類(lèi)廢棄物．其中，塑料類(lèi)廢棄物
  組卷：6引用：2難度：0.9

  解析

• 4．小葉用Access軟件創(chuàng)建的數(shù)據(jù)表如圖所示，在該表中，下列操作不能實(shí)現(xiàn)的是（　?。?br />

  A．在教師編號(hào)字段中輸入“20150801”

  B．在姓名字段中輸入“張信息”

  C．在性別字段中輸入“男”

  D．在出生年月字段中輸入“1987.11.11”
  組卷：7引用：3難度：0.9

  解析

• 5．計(jì)算s=2+4+6+…+10的算法流程圖如圖所示．
  
  若要計(jì)算s=2×4×6×…×10，則上述流程圖中的“s←s+x,x←x+2”應(yīng)改為（　?。?/h2>

  A．x←x+1，x←s×x	B．s←s×x,x←x+1
  C．x←x+2，s←s×x	D．x←s×x,x←x+2
  組卷：6引用：3難度：0.7

  解析

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

• 16．任意一個(gè)大于等于4 的偶數(shù)，都可以用兩個(gè)素?cái)?shù)之和表示，這就是哥德巴赫猜想．如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79．
  編寫(xiě)一個(gè)驗(yàn)證哥德巴赫猜想的VB 程序：程序運(yùn)行時(shí)，在文本框Text1 中輸入一個(gè)大于等于4 的偶數(shù)，單擊“驗(yàn)證”按鈕Command1 后，如果哥德巴赫猜想驗(yàn)證成功，則在文本框Text2 中顯示“Yes”，并在列表框List1 中顯示用兩個(gè)素?cái)?shù)表示該偶數(shù)的等式，否則顯示“No”．程序運(yùn)行結(jié)果如圖所示．實(shí)現(xiàn)上述功能的VB 代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
  函數(shù)judge的功能是判斷整數(shù)x是否為素?cái)?shù)，若是素?cái)?shù)則返回True,否則返回False
  Function judge（x As Integer）As Boolean
  
  Dim j As Integer
  judge=True
  j=2
  Do While j＜=x-1And judge=True
  If  x Mod j=0Then
  judge=False
  Else
  judge=true‘①

   

  
  End If
  Loop
  End Function
  Private Sub Command1_Click （　　）
  Dim n As Integer,p As Integer,q As Integer,flag As Boolean
  n=Val（Text1．Text）
  p=1
  flag=False
  Do While flag=True And p＜n‘②

   

  
  p=p+1
  q=q+1‘③

   

  
  If judge（p）  And  judge（q） Then
  Text2．Text=“Yes“
  flag=True
  List1．AddItem Str（n）+“=“+Str（p）+“+“+Str（q）
  End If
  Loop
  If flag=False Then Text2．Text=“No“
  End Sub.
  組卷：25引用：2難度：0.1

  解析

• 17．【加試題】下列程序的功能是將text1中輸入的自然數(shù)分解為3個(gè)互不相同的質(zhì)數(shù)（三個(gè)質(zhì)數(shù)的和等于輸入的自然數(shù)），并把分解產(chǎn)生的質(zhì)數(shù)按升序順序顯示在右邊的列表框中．例如，輸入20，那么在列表框中會(huì)顯示如下圖所示結(jié)果．其中，界面中“分解”按鈕的名稱(chēng)是“Command1”，程序中函數(shù)f（x）的功能是判斷x是否為質(zhì)數(shù)，如果是質(zhì)數(shù)，則返回值為true,否則返回false.
  
  請(qǐng)?jiān)谙铝谐绦虼a的基礎(chǔ)上按照要求設(shè)計(jì)該程序，完善程序中的劃線(xiàn)部分．
  Dim n As Integer,a1As Integer,a3As Integer,a3As Integer
  Function f（x）As Boolean
  f=True
  For i=2To Sqr（x）
  If x Mod i=0Then
  

   

  
  Next i
  End Function
  Private Sub Command1_Click（　?。?br />n=

   

  
  For a1=2To n
  For a2=a1To n
  For a3=a2To n
  If

   

   And f（a1）And f（a2）And f（a3）Then
  List1．AddItem Str（a1）+“”+Str（a2）+“”+Str（a3）
  End If
  Next a3
  Next a2
  Next a1
  End Sub
  （1）程序中①橫線(xiàn)處應(yīng)填入

   

  ．
  （2）程序中②橫線(xiàn)處應(yīng)填入

   

  ．
  （3）程序中③橫線(xiàn)處應(yīng)填入

   

  ．
  組卷：20引用：2難度：0.1

  解析