2016-2017學(xué)年浙江省紹興市諸暨市牌頭中學(xué)高二（上）期中信息技術(shù)試卷

一、選擇題（每題2分，共24分）選擇題填涂在答題卡1-12

• 1．下列有關(guān)算法的描述，正確的是（　　）

  A．一個(gè)完整的算法必須有輸出

  B．一個(gè)完整的算法至少有一個(gè)輸入

  C．算法只能用自然語(yǔ)言或者流程圖這兩種方式表示

  D．用流程圖表示算法的好處是形象直觀，但容易產(chǎn)生歧義
  組卷：26引用：2難度：0.7

  解析

• 2．小周定義了一個(gè)變量rs來(lái)存儲(chǔ)超市里商品條形碼，變量的數(shù)據(jù)類型應(yīng)是（　　）

  A．Integer

  B．String

  C．Long

  D．Date
  組卷：10引用：3難度：0.9

  解析

• 3．下列可作為VB變量名的是（　　）

  A．true

  B．we*6

  C．dew3

  D．3ABC
  組卷：6引用：2難度：0.9

  解析

• 4．模擬剪刀石頭布的游戲，用1-3這3個(gè)數(shù)字分別代表剪刀、石頭、布這三種情況，使用Rnd函數(shù)可以表示為（　　）

  A．int（Rnd（3）+1）	B．int（Rnd*2+1）
  C．int（Rnd（2）+1）	D．int（Rnd*3+1）
  組卷：22引用：6難度：0.7

  解析

• 5．某VB程序的一個(gè)事件過(guò)程如下：
  Private Sub Command1_Click（　　）
  Dim a As Integer
  a=Val（Text1．Text）
  Text1．Text=Str（Sqr（a））
  End Sub
  程序運(yùn)行時(shí)，單擊命令按鈕command1后彈出如圖所示的錯(cuò)誤信息提示．出現(xiàn)錯(cuò)誤的原因是（　　）

  A．變量a類型定義錯(cuò)誤	B．界面缺少文本框Text1
  C．Command1屬性設(shè)置錯(cuò)誤	D．Sqr函數(shù)計(jì)算時(shí)出錯(cuò)
  組卷：8引用：2難度：0.7

  解析

二、程序設(shè)計(jì)題（共4大題，每空2分．答案寫(xiě)在答題紙上）

• 15．商品條形碼是一個(gè)13 位數(shù)，它是商品的“身份證”．條形碼中前8位是廠商識(shí)別代碼，接著4 位是商品項(xiàng)目代碼，最后一位是校驗(yàn)碼．校驗(yàn)碼是由前12 位數(shù)按一定公式計(jì)算而得出的，其計(jì)算公式見(jiàn)下表
  
  小明編寫(xiě)了一個(gè)VB程序，輸入一個(gè)二維碼后，點(diǎn)擊“驗(yàn)證”按鈕后，程序根據(jù)如上算法驗(yàn)證
  條形碼的驗(yàn)證碼是否正確，代碼如下所示：
  Private Sub Command1_Click （　　）
  Dim s As String,x As String
  Dim js As Integer,os As Integer,jy As Integer
  s=Text1．Text
  n=Len（s）
  If n＜＞13Then
  Label1．Caption=“條形碼位數(shù)錯(cuò)誤“
  Else
  For i=1To 12
  x=Val（Mid（s,i,1））
  If ①Then
  js=js+x
  Else
  os=os+x
  End If
  Next i
  End If
  jy=os*3+js
  jy=②
  If  jy=10  Then jy=0
  If  jy=Val（Mid（s,13，1））  Then
  Label1．Caption=“驗(yàn)證碼正確“
  Else
  Label1．Caption=“驗(yàn)證碼錯(cuò)誤“
  End If
  End Sub
  （1）要實(shí)現(xiàn)如上VB程序，在窗體上至少有

   

  個(gè)控件對(duì)象（窗體除外）．
  （2）要實(shí)現(xiàn)上述功能，程序中橫線處①位置應(yīng)填寫(xiě)的表達(dá)式是

   

  
  （3）要實(shí)現(xiàn)上述功能，程序中橫線處②位置應(yīng)填寫(xiě)的表達(dá)式是

   

  
  （4）若在該程序運(yùn)行時(shí)，輸入的待檢測(cè)的二維碼是“6921734953025”，執(zhí)行上述程序，輸出的
  結(jié)果是

   

  ．
  組卷：7引用：1難度：0.1

  解析

• 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

  解析