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

一、程序设计题（本题有4小题，第1-3小题，每小题4分，第4小题6分，共18分）

• 1．有如下Visual Basic程序段：
  a=1024：i=2
  b=a/i
  c=b/i
  该程序段运行后，变量c的值为

   

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

  解析

一、程序设计题（本题有4小题，第1-3小题，每小题4分，第4小题6分，共18分）

• 3．有如下Visual Basic程序：
  Private Sub Command1_Click （　　）
  Dim s As Integer,i As Integer
  s=1
  For i=1To 10
  s=s+1
  Next i
  Text1．Text=Str（s）
  End Sub
  问：
  （1）程序运行后，变量s的值为

   

  。
  （2）程序运行后，语句“s=s+1”被执行的次数为

   

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

  解析

• 4．某网站组织了100个商品进行网络人气调查，投票结束后，要选出得票数最高的前10个商品。下列程序的功能是根据商品已有得票数，选出得票数最高的10个商品。商品的代号和得票数分别保存在数组a和b中，第i个商品的代号保存在a（i）中，对应的得票数保存在b（i）中。
  程序界面如图1所示，左边列表框List1中显示的是所有商品的代号和得票数（按代号从小到大排列），单击“开始统计”按钮（Command1）后，在右边的列表框List2中显示得票数最高的10个商品的代号和得票数（按照得票数从高到低的顺序显示）。
  解决此问题的算法流程图如图2所示，相应的程序如下，在程序①和②横线处填入适当的语句或表达式，将程序补充完整。
  
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,t As Integer
  For i=1To 10
  For j=100To i+1Step

   

  
  If b（j）＞b（j-1）Then
  t=a（j-1）：

   

  ：a（j）=t
  t=b（j-1）：b（j-1）=b（j）：b（j）=t
  End If
  Next j
  Next i
  For i=1To 10
  List2．AddItem Str（a（i））+““+Str（b（i））
  Next i
  End Sub
  程序中①横线处应填入

   

  
  程序中②横线处应填入

   

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

  解析