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（　　）
  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）循环刚退出时，变量i的值为

   

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

  解析

• 4．超市进货时会将每个商品的条形码和价格输入计算机，并对所有商品按照条形码排序（从小到大），顾客付款时只要把条形码输入电脑，电脑即可根据条形码找到该商品并显示对应的价格。下列程序的功能是根据条形码查找对应商品的价格，所有商品的条形码和价格分别保存在数组a和b中（并且已经按照条形码从小到大排序），第i个商品的条形码保存在a（i）中，对应的价格保存在b（i）中，变量f是标志变量，如果值为True则说明找到了商品，若为False则说明没有找到。
  程序界面如图1所示，在文本框Text1中输入商品的条形码，单击“开始查找”按钮（Command1）后，对应商品的价格在标签Label4中显示出来，如果未找到则显示“找不到该商品，请重新输入条形码”。
  解决此问题的算法流程图如图2所示，相应的程序如下，在程序①和②横线处填入适当的语句或表达式，将程序补充完整。
  Private Sub Command1_Click （　　）
  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保存总的商品数
  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

  解析