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

一、选题题（算法）

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

  A．Len

  B．Gcd

  C．End

  D．And
  组卷：2引用：1难度：0.9

  解析

• 2．在Visual Basic中，表达式Str（100）+“20“的值是（　　）

  A．“30“

  B．“120“

  C．“320“

  D．“10020“
  组卷：1引用：1难度：0.9

  解析

• 3．在Visual Basic中，下列属于窗体文件的是（　　）

  A．book.jye.ai	B．book.jye.ai
  C．book.jye.ai	D．book.jye.ai
  组卷：1引用：1难度：0.7

  解析

二、填空部分

• 10．为了找出QQ在线时间最长的5名学生，李风设计了一个排序程序．程序运行界面如图所示：
  
  左边列表框List1中显示排序前数据，单击“排序”按钮Command1，在右边列表框List2中显示在线时间从高到低排名前5名的数据．程序中数组a和数组b分别存储学生的QQ昵称和对应的QQ在线时间．
  程序代码如下：
  Const n As Integer=14'n为学生数
  Dim a（1To n） As String'数组a用于存储学生的QQ昵称
  Dim b（1To n） As Integer'数组b用于存储学生的QQ在线时间
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,t As String,p As Integer
  For i=1To n-1
  For j=n To i+1Step-1
  If  ①Then
  t=a（j-1）：a（j-1）=a（j）：a（j）=t
  p=b（j-1）：b（j-1）=b（j）：b（j）=p
  End If
  Next j
  Next i
  For i=1To 5
  List2．AddItem SpaceEx（a（i））+Str（b（i））+“分钟“
  Next i
  End Sub
  '以下函数用于在字符串后补插空格
  Function SpaceEx（s As String） As String
  Dim t As String,d As Integer,i As Integer
  t=s：d=Len（s）
  For i=1To 5-d
  t=t+““
  Next i
  SpaceEx=②
  End Function
  Private Sub Form_Load （　　）
  '此过程用于对数组a和数组b进行赋值，并显示在List1中，代码略
  End Sub
  （1）解决此问题采用的算法是

   

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

   

  ．程序中②处应填入

   

  ．
  组卷：21引用：2难度：0.1

  解析

三、操作题

• 11．打开考生文件夹下“VB”文件夹中的“test.jye.ai”，该VB程序的功能是：在列表框List1中显示10位工人完成的零件数，单击“计算”按钮Command1，计算10位工人完成的零件总数，并显示在文本框Text1中。程序运行界面如图所示：
  完成以下操作：
  （1）将命令按钮Command1的Caption属性值设置为“计算”。
  （2）运行程序，发现统计出的完成总数没有显示在Text1中，修改程序中的一处代码修正此问题。调试程序正确，并保存窗体文件test。frm与工程文件test。vbp。
  组卷：0引用：1难度：0.9

  解析