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

一、选题题（算法）

• 1．在Visual Basic中，下列能作为变量名的是（　　）

  A．5a

  B．If

  C．Abs

  D．Tea
  组卷：8引用：4难度：0.9

  解析

• 2．在Visual Basic中，若需将150位员工工号（如“B01036”）分别存储在数组n的n（1）～n（150）元素中，则下列说明语句最合适的是（　　）

  A．Dim n（1 To 150）As Single

  B．Dim n（1 To 150）As String

  C．Dim n（1 To 150）As Integer

  D．Dim n（1 To 150）As Boolean
  组卷：18引用：3难度：0.9

  解析

• 3．下列Visual Basic表达式中，只能产生[0，8）中的随机实数的是（　　）

  A．Rnd（　　）*8	B．Rnd（　　）*9
  C．Int（Rnd（　　）*8）+1	D．Int（Rnd（　　）*9）+1
  组卷：3引用：1难度：0.7

  解析

二、填空部分

• 9．郑强收集了某月部分品牌电脑在某城市的销售量，并设计了一个Visual Basic排序程序。程序运行界面如图所示，左边列表框List1中显示排序前数据，单击“排序”按钮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 （　　）
  Dim i As Integer,j As Integer,c As Integer,t As String
  For i=1To

   

  
  For j=1To n-i
  If

   

  Then
  c=b（j+1）：b（j+1）=b（j）：b（j）=c
  t=a（j+1）：a（j+1）=a（j）：a（j）=t
  End If
  Next j
  Next i
  For i=1To n
  List2．AddItem a（i）+““+Str（b（i））
  Next i
  End Sub
  Private Sub Form_Load

   

  
  '此过程用于对数组a和数组b进行赋初值，并显示在List1中，代码略
  End Sub
  （1）解决此问题采用的算法是

   

  。（填：选择排序/冒泡排序）
  （2）在程序①和②横线处填入适当的语句或表达式，将程序补充完整：
  程序中①横线处应填入

   

  。
  程序中②横线处应填入

   

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

  解析

三、操作题

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

  解析