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

一、填空题（共4小题，每小题3分，满分12分）

• 1．有如下Visual Basic程序段：
  m=“sch”
  n=Mid（“tools”，2，3）
  s=m+n
  该程序段运行后，变量s的值为

   

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

  解析

• 2．有如下Visual Basic程序段：
  a=3：b=4：c=5
  If a＞b And b＞c Then
  Label1．Caption=“happy“
  Else
  Label1．Caption=“better“
  End If
  该程序段运行后，在标签Label1上显示的是

   

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

  解析

二、填空题（共4小题，每小题3分，满分12分）

• 7．有如下Visual Basic程序段：
  s=10
  For i=1To 20Step 3
  s=s+i
  Next i
  For j=1To 3
  s=s*j
  Next j
  问：该程序段运行后，
  （1）语句“s=s*j“执行的次数为

   

  ．
  （2）变量s的值为

   

  ．
  组卷：11引用：2难度：0.5

  解析

• 8．某协会进行钓鱼比赛，最后有十人进入决赛，录入员编制了如下Visual Basic程序，功能是根据成绩进行排序，程序中数组a保存所有参赛者的成绩，数组b保存此成绩对应的姓名，第i位参赛者的成绩保存在a（i）中，姓名保存在b（i）中。
  程序界面如图所示，左边列表框List1中显示原始数据（成绩和相应的姓名），单击“排序“按钮（Command1），排序后的结果按成绩从高到低显示在列表框List2中。
  
  解决此问题的算法流程图如图所示，排序部分的程序段如下：
  Dim a（1To 10）As Single
  Dim b（1To 10）As String
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,k As Integer,x As Single,y As String
  For i=1To 9
  k=i
  For j=i+1To 10
  If ①            Then k=j
  Next j
  If k＜＞i Then
  x=a（i）：a（i）=a（k）：②                       
  y=b（i）：b（i）=b（k）：b（k）=y
  End If
  Next i
  For i=1To 10
  List2．AddItem Str（a（i））+““+b（i）
  Next i
  End Sub
  Private Sub Form_Load （　　）
  '此过程用于对数组a和数组b进行初始赋值，代码略
  End Sub
  （1）解决此问题的算法是

   

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

   

  。
  （3）程序中②横线处应填入

   

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

  解析