2009年浙江省高中信息技術會考試卷（6）

一、程序設計題（本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分）

• 1．有如下Visual Basic程序段：
  a=18：b=12
  c=（a-b）*2
  該程序段運行后，變量c的值為

   

  。
  組卷：2引用：1難度：0.5

  解析

一、程序設計題（本題有4小題，第1-3小題，每小題4分，第4小題6分，共18分）

• 3．有如下Visual Basic程序段：
  Private Sub Command1_Click（　?。?br />Dim i As Integer,x As Integer,s As Integer
  x=10
  s=0
  i=0
  Do While i＜=x
  i=i+2
  s=s+i
  Loop
  End Sub
  問：
  （1）該程序段運行后，變量s的值為

   

  。
  （2）循環(huán)剛退出時，變量i的值為

   

  。
  組卷：0引用：1難度：0.5

  解析

• 4．超市進貨時會將每個商品的條形碼和價格輸入計算機，并對所有商品按照條形碼排序（從小到大），顧客付款時只要把條形碼輸入電腦，電腦即可根據條形碼找到該商品并顯示對應的價格。下列程序的功能是根據條形碼查找對應商品的價格，所有商品的條形碼和價格分別保存在數(shù)組a和b中（并且已經按照條形碼從小到大排序），第i個商品的條形碼保存在a（i）中，對應的價格保存在b（i）中，變量f是標志變量，如果值為True則說明找到了商品，若為False則說明沒有找到。
  程序界面如圖1所示，在文本框Text1中輸入商品的條形碼，單擊“開始查找”按鈕（Command1）后，對應商品的價格在標簽Label4中顯示出來，如果未找到則顯示“找不到該商品，請重新輸入條形碼”。
  解決此問題的算法流程圖如圖2所示，相應的程序如下，在程序①和②橫線處填入適當?shù)恼Z句或表達式，將程序補充完整。
  Private Sub Command1_Click （　?。?br />Dim x As String,i As Integer,j As Integer,m As Integer
  Dim f As Boolean
  x=Text1．Text
  i=1：j=n：f=False'n保存總的商品數(shù)
  Do While （i＜=j） And Not （f）
  m=Fix（（i+j）/2）
  If

   

   Then
  f=True
  ElseIf  x＜a（m） Then
  

   

  
  Else
  i=m+1
  End If
  Loop
  If f Then
  Label4．Caption=b（m）
  Else
  Label4．Caption=“找不到該商品，請重新輸入條形碼“
  End If
  End Sub
  程序中①橫線處應填入

   

  
  程序中②橫線處應填入

   

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

  解析