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

一、选择题（算法）

• 1．下列表达式中，符合 Visual Basic表达式书写规范的是（　　）

  A．3+|k-1|

  B．2k-1

  C．a•k/2

  D．k2-1
  组卷：5引用：2难度：0.9

  解析

• 2．在Visual Basic中，若需将350位学生的借阅卡号 （如“H001036”）分别存储在数组code的code（1）～code（350）元素中，则下列说明语句最合适的是（　　）

  A．Dim code（1 To 350）As Integer

  B．Dim code（1 To 350）As Single

  C．Dim code（1 To 350）As String

  D．Dim code（1 To 350）As Boolean
  组卷：4引用：1难度：0.9

  解析

• 3．下列Visual Basic表达式的值等于2的是（　　）

  A．Abs（-2.1）

  B．Int（2.1）

  C．Sqr（4.2）

  D．Len（“4”）
  组卷：8引用：4难度：0.7

  解析

二、填空部分

• 10．张强编写了一个Visual Basic程序，用于查找所有相同身高的同学编号。程序运行界面如图所示，在列表框List1中显示所有同学的编号和身高（按身高从低到高排列），在文本框Text1中输入需要查找的身高，单击“查找”按钮Command1，在列表框List2中显示所有此身高的同学编号。数组a和数组b分别存储同学的编号和对应的身高（身高已从低到高排列）。
  
  解决此问题的程序代码如下：
  Const n As Integer=10'n为学生数
  Dim a（1To n） As String'数组a用于存储学生的编号
  Dim b（1To n） As Integer'数组b用于存储学生的身高
  Private Sub Command1_Click （　　）
  '此过程用于在列表框List2中显示给定身高的所有学生的编号，代码略。
  End Sub
  '以下函数用于查找给定身高的学生的相关信息
  Private Function FindEx（k As Integer） As Integer
  Dim f As Boolean,i As Integer,j As Integer,m As Integer
  i=1：j=n
  f=False
  Do While （i＜=j） And Not （f）
  m=Fix（（i+j）/2）
  If k=b（m） Then
  f=①

   

  
  Else
  If k＜b（m） Then
  j=m-1
  Else
  ②

   

  
  End If
  End If
  Loop
  If f Then FindEx=m Else FindEx=0'找到返回m,否则返回0
  End Function
  Private Sub Form_Load

   

  
  '此过程用于对数组a和数组b进行赋值，并把数据显示在列表框List1中。代码略
  End Sub
  （1）FindEx函数主要采用的算法是

   

  。（填：顺序查找/对分查找）
  （2）在程序①和②横线处，填入适当的语句或表达式，把程序补充完整：
  程序中①横线处应填入

   

  。
  程序中②横线处应填入

   

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

  解析

三、操作题

• 11．打开考生文件夹下“VB”文件夹中的“test.jye.ai”，该VB程序的功能是：运行程序，出现“奔跑”画面；单击“加速”按钮Command1，奔跑速度加快；单击“停止”按钮Command2，奔跑停止；单击“结束”按钮Command3，退出程序。程序运行界面如图。
  完成以下操作：
  （1）将命令按钮Command2的Caption属性值设置为“停止”；
  （2）为“加速”按钮Command1添加Click事件过程，并将“VB”文件夹下“code.jye.ai”文件中的所有代码复制到该事件过程中。调试程序正确，并保存窗体文件test。frm和工程文件test。vbp。
  组卷：0引用：1难度：0.9

  解析