2016-2017学年浙江省绍兴市诸暨市牌头中学高二（上）期中信息技术试卷

一、选择题（每题2分，共24分）选择题填涂在答题卡1-12

• 1．下列有关算法的描述，正确的是（　　）

  A．一个完整的算法必须有输出

  B．一个完整的算法至少有一个输入

  C．算法只能用自然语言或者流程图这两种方式表示

  D．用流程图表示算法的好处是形象直观，但容易产生歧义
  组卷：26引用：2难度：0.7

  解析
• 2．小周定义了一个变量rs来存储超市里商品条形码，变量的数据类型应是（　　）

  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个数字分别代表剪刀、石头、布这三种情况，使用Rnd函数可以表示为（　　）

  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后弹出如图所示的错误信息提示．出现错误的原因是（　　）

  A．变量a类型定义错误	B．界面缺少文本框Text1
  C．Command1属性设置错误	D．Sqr函数计算时出错
  组卷：8引用：2难度：0.7

  解析

二、程序设计题（共4大题，每空2分．答案写在答题纸上）

• 15．商品条形码是一个13 位数，它是商品的“身份证”．条形码中前8位是厂商识别代码，接着4 位是商品项目代码，最后一位是校验码．校验码是由前12 位数按一定公式计算而得出的，其计算公式见下表
  
  小明编写了一个VB程序，输入一个二维码后，点击“验证”按钮后，程序根据如上算法验证
  条形码的验证码是否正确，代码如下所示：
  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=“条形码位数错误“
  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）要实现如上VB程序，在窗体上至少有

   

  个控件对象（窗体除外）．
  （2）要实现上述功能，程序中横线处①位置应填写的表达式是

   

  
  （3）要实现上述功能，程序中横线处②位置应填写的表达式是

   

  
  （4）若在该程序运行时，输入的待检测的二维码是“6921734953025”，执行上述程序，输出的
  结果是

   

  ．
  组卷：7引用：1难度：0.1

  解析
• 16．任意一个大于等于4 的偶数，都可以用两个素数之和表示，这就是哥德巴赫猜想．如：4=2+2，6=3+3，8=3+5，10=5+5，12=5+7，98=17+79．
  编写一个验证哥德巴赫猜想的VB 程序：程序运行时，在文本框Text1 中输入一个大于等于4 的偶数，单击“验证”按钮Command1 后，如果哥德巴赫猜想验证成功，则在文本框Text2 中显示“Yes”，并在列表框List1 中显示用两个素数表示该偶数的等式，否则显示“No”．程序运行结果如图所示．实现上述功能的VB 代码如下，但加框处代码有错，请改正．
  函数judge的功能是判断整数x是否为素数，若是素数则返回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

  解析