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

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

• 1．有如下Visual Basic程序段：
  a=29：b=6
  a=a Mod b
  b=a+Len（“Input“）
  该程序段运行后，变量b的值为

   

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

  解析

• 2．有如下Visual Basic程序段：
  x=2010
  s=10
  If x＜2012Then s=s+x
  Label1．Caption=Str（s）
  该程序段运行后，在标签Label1上显示的是

   

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

  解析

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

• 7．有如下Visual Basic程序段：
  Dim a As Integer,b As Integer,c As Integer
  a=20
  b=0
  c=2
  Do While a＞b And a＞c
  b=b+1
  c=c+b
  Loop
  问：该程序段运行后，
  （1）语句“b=b+1”执行的次数为

   

  ．
  （2）变量c的值为

   

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

  解析

• 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,k As Integer,x As Single,y As String
  For i=1To n-1'假设共有n个竞赛项目
  k=i
  For j=i+1To n
  If a（k）＜a（j） Then ①                
  Next j
  If k＜＞i Then
  x=a（i）
  a（i）=a（k）
  a（k）=x
  y=b（i）
  b（i）=b（k）
  b（k）=y
  ②                    
  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.1

  解析