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

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

• 1．有如下Visual Basic程序段：
  i=3
  j=i+i
  k=j+j
  该程序段运行后，变量k的值为

   

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

  解析

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

• 3．有如下Visual Basic程序段：
  Dim i As Integer,s As Integer
  i=1
  s=0
  Do While i＜=10
  s=s+1：i=i+1
  Loop
  问：
  （1）该程序段运行后，循环中的两个语句“s=s+1：i=i+1”一共执行的次数为

   

  ．
  （2）该程序段运行后，变量s的值为

   

  ．
  组卷：7引用：1难度：0.5

  解析

• 4．在网上商城中找到商品后可以将商品按照价格顺序显示，下列程序模拟该信息处理过程，程序能根据找到的商品信息（价格和发货地），将所有商品按照价格从高到低显示。一开始，所有商品的价格和发货地分别保存在数组a和数组b中，第i个商品的价格保存在a（i）中，对应的发货地保存在b（i）中。
  程序界面如图1所示，左边列表框List1中显示用户已找到的所有商品信息（包括价格和发货地），单击“开始排序”按钮（Command1），所有商品按照价格从高到低显示在列表框List2中。
  解决此问题的算法流程图如图2所示，相应的程序如下，在程序①和②横线处，填入适当的语句或表达式，把程序补充完整。
  Private Sub Command1_Click （　　）
  Dim i As Integer,j As Integer,t1As Integer,t2As String,k As Integer
  For i=1To n-1'n表示商品总数
  k=i'k保存第i大的数，一开始假定是a（i）
  For j=i+1To n
  If a（k）＜a（j） Then k=

   

  
  Next j
  If

   

  Then
  t1=a（i）：a（i）=a（k）：a（k）=t1'交换价格
  t2=b（i）：b（i）=b（k）：b（k）=t2'交换发货地
  End If
  Next i
  For i=1To n'在列表框List2中输出排序结果
  List2．AddItem Str（a（i））+““+b（i）
  Next i
  End Sub
  程序中①横线处应填入

   

  
  程序中②横线处应填入

   

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

  解析