2011年浙江省高中信息技术会考试卷（20）

一、选题题（算法）

• 1．在Visual Basic中，用变量name存储学生的姓名，则变量name的数据类型应说明为（　　）

  A．Integer

  B．String

  C．Single

  D．Date
  组卷：6引用：2难度：0.9

  解析

• 2．在Visual Basic中，表达式Mid（“20110617“，4，3）的值是（　　）

  A．“106“

  B．“110“

  C．“617“

  D．“1106“
  组卷：7引用：6难度：0.9

  解析

• 3．下列Visual Basic表达式中，与表达式Not x＞1功能相同的是（　　）

  A．x＜1

  B．x＞1

  C．x＞=1

  D．x＜=1
  组卷：1引用：1难度：0.7

  解析

二、填空部分

• 10．小明家的汽车当车速每小时在60至140公里时，每100公里油耗与车速的关系满足：L=0.005V ²-V+60．小明编写了一个Visual Basic程序，用逐个试探的方法求最小油耗时的速度。程序运行界面如图所示，在文本框Text1中输入一个试探的下限速度，在文本框Text2中输入一个试探的上限速度，单击“计算”按钮，程序将求出的最小油耗时的速度显示在文本框Text3中，同时将最小油耗显示在文本框Text4中。
  程序代码如下：
  Private Sub Command1_Click（　　）
  Dim min As Integer,max As Integer'保存检测速度范围
  Dim v As Single,vmin As Single'油耗和最小油耗
  Dim s As Integer,smin As Integer'速度和最小油耗速度
  Dim Flag As Boolean
  min=Val（Text1．Text）
  max=Val（Text2．Text）
  Flag=sw（min,max）
  smin=60：vmin=30'初始化
  If Flag Then'如果发生交换则显示交换后的结果
  Text1．Text=Str（min）
  Text2．Text=Str（max）
  End If
  If min＞=60And max＜=140Then
  For s=min To max Step 1
  v=0.005*s^2-s+60
  If

   

  Then
  vmin=v'最小油耗改为v
  smin=s'最小油耗时的速度改为s
  End If
  Next
  Text3．Text=smin
  Text4．Text=vmin
  Else
  Label5．Caption=“超出规定范围“
  End If
  End Sub
  '判断二个变量的值，将数值小的存储在变量min中，将数值大的存储在变量max中
  Private Function sw（min As Integer,max As Integer） As Boolean
  Dim t As Integer
  sw=False
  If min＞max Then
  t=min
  min=max
  

   

  
  sw=True
  End If
  End Function
  （1）解决此问题主要采用的算法是

   

  。（填：递归算法/枚举算法）
  （2）在程序①和②横线处，填入适当的语句或表达式，把程序补充完整：
  程序中①横线处应填入

   

  。
  程序中②横线处应填入

   

  。
  组卷：0引用：1难度：0.3

  解析

三、操作题

• 11．打开考生文件夹下“VB”文件夹中的“test.jye.ai”，该VB程序的功能是：在左边列表框List1中显示10位工人的产品合格率，单击“计算”按钮Command1，将合格率数据按等第标准进行评定，并在右边列表框List2中显示。程序运行界面如图所示：
  完成以下操作：
  （1）将命令按钮Command1的Caption属性值设置为“计算”。
  （2）运行程序，发现单击“计算”按钮Command1后列表框List2中显示的数据有误，修改程序中的一处代码修正此问题。调试程序正确，并保存窗体文件test。frm与工程文件test。vbp。
  组卷：0引用：1难度：0.5

  解析