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

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

• 1．下列有關算法的描述，正確的是（　?。?/h2>

  A．一個完整的算法必須有輸出

  B．一個完整的算法至少有一個輸入

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

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

  解析

• 2．小周定義了一個變量rs來存儲超市里商品條形碼，變量的數(shù)據(jù)類型應是（　?。?/h2>

  A．Integer

  B．String

  C．Long

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

  解析

• 3．下列可作為VB變量名的是（　?。?/h2>

  A．true

  B．we*6

  C．dew3

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

  解析

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

  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程序的一個事件過程如下：
  Private Sub Command1_Click（　　）
  Dim a As Integer
  a=Val（Text1．Text）
  Text1．Text=Str（Sqr（a））
  End Sub
  程序運行時，單擊命令按鈕command1后彈出如圖所示的錯誤信息提示．出現(xiàn)錯誤的原因是（　　）

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

  解析

二、程序設計題（共4大題，每空2分．答案寫在答題紙上）

• 15．商品條形碼是一個13 位數(shù)，它是商品的“身份證”．條形碼中前8位是廠商識別代碼，接著4 位是商品項目代碼，最后一位是校驗碼．校驗碼是由前12 位數(shù)按一定公式計算而得出的，其計算公式見下表
  
  小明編寫了一個VB程序，輸入一個二維碼后，點擊“驗證”按鈕后，程序根據(jù)如上算法驗證
  條形碼的驗證碼是否正確，代碼如下所示：
  Private Sub Command1_Click （　?。?br />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ù)錯誤“
  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=“驗證碼正確“
  Else
  Label1．Caption=“驗證碼錯誤“
  End If
  End Sub
  （1）要實現(xiàn)如上VB程序，在窗體上至少有

   

  個控件對象（窗體除外）．
  （2）要實現(xiàn)上述功能，程序中橫線處①位置應填寫的表達式是

   

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

   

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

   

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

  解析

• 16．任意一個大于等于4 的偶數(shù)，都可以用兩個素數(shù)之和表示，這就是哥德巴赫猜想．如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79．
  編寫一個驗證哥德巴赫猜想的VB 程序：程序運行時，在文本框Text1 中輸入一個大于等于4 的偶數(shù)，單擊“驗證”按鈕Command1 后，如果哥德巴赫猜想驗證成功，則在文本框Text2 中顯示“Yes”，并在列表框List1 中顯示用兩個素數(shù)表示該偶數(shù)的等式，否則顯示“No”．程序運行結(jié)果如圖所示．實現(xiàn)上述功能的VB 代碼如下，但加框處代碼有錯，請改正．
  函數(shù)judge的功能是判斷整數(shù)x是否為素數(shù)，若是素數(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 （　?。?br />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

  解析