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）該程序段運行后，循環(huán)中的兩個語句“s=s+1：i=i+1”一共執(zhí)行的次數為

   

  ．
  （2）該程序段運行后，變量s的值為

   

  ．
  組卷：7引用：1難度：0.5

  解析

• 4．在網上商城中找到商品后可以將商品按照價格順序顯示，下列程序模擬該信息處理過程，程序能根據找到的商品信息（價格和發(fā)貨地），將所有商品按照價格從高到低顯示。一開始，所有商品的價格和發(fā)貨地分別保存在數組a和數組b中，第i個商品的價格保存在a（i）中，對應的發(fā)貨地保存在b（i）中。
  程序界面如圖1所示，左邊列表框List1中顯示用戶已找到的所有商品信息（包括價格和發(fā)貨地），單擊“開始排序”按鈕（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'交換發(fā)貨地
  End If
  Next i
  For i=1To n'在列表框List2中輸出排序結果
  List2．AddItem Str（a（i））+““+b（i）
  Next i
  End Sub
  程序中①橫線處應填入

   

  
  程序中②橫線處應填入

   

  
  
  組卷：0引用：1難度：0.3

  解析