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

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

• 1．有如下Visual Basic程序段：
  a=15
  b=Val（“256“）
  a=a*2+b
  该程序段运行后，变量a的值为

   

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

  解析

• 2．有如下Visual Basic程序段：
  a=Mid（“Please input“，4，2）
  b=“Please“
  If Len（a）＜Len（b） Then
  Label1．Caption=“标准“
  Else
  Label1．Caption=“不合格“
  End If
  该程序段运行后，在标签Label1上显示的是

   

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

  解析

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

• 7．有如下Visual Basic程序段：
  s=150：i=1
  Do While s＞100
  s=s-i+1
  i=i+20
  Loop
  问：该程序段运行后，
  （1）变量i的值是

   

  。
  （2）变量s的值为

   

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

  解析

• 8．陈晓峰和同学们去农科院开展研究性学习，大家都收获很大，晓峰设计了一个Visual Basic程序，他把同学们收集到的水稻亩产量和同学姓名已分别保存在数组a和数组b中，第i个同学收集的亩产量保存在a（i）中，对应的同学姓名保存在b（i）中，最后按亩产量从高到低进行排序。
  程序界面如图所示，左边列表框List1中显示的是所有同学收集到的原始数据，单击“排序“按钮（Command1）后，在右边的列表框List2中显示排序完成后的结果（按亩产量从高到低排列）。
  
  解决此问题的算法流程图如图所示，相应的排序部分程序如下：
  Dim a（1To n） As Single
  Dim b（1To n） As String
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,c As Single,t As String
  For i=1To n'设共有n名同学
  For j=n To i+1 ①               
  If ②             Then
  c=a（j-1）
  a（j-1）=a（j）
  a（j）=c
  t=b（j-1）
  b（j-1）=b（j）
  b（j）=t
  End If
  Next j
  Next i
  For i=1To n
  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.3

  解析