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

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

• 1．有如下Visual Basic程序段：
  m=8
  n=5
  t=m+n
  t=t-n
  该程序段运行后，变量t的值为

   

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

  解析

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

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

   

  。
  （2）循环刚退出时，变量i的值为

   

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

  解析

• 4．在某学校里，每位同学都会得到一张一卡通卡，一卡通的卡号是唯一的，卡内会记录每位同学的姓名、住址、班级、金额等信息。每当同学刷卡时，卡号就被输入电脑，然后进行查找，如果找到就显示姓名，否则显示“查无此人”。下列程序的功能是根据卡号查找对应的姓名，程序中数组a保存所有已发放一卡通的卡号，数组b保存卡号对应的姓名，第i位同学的卡号保存在a（i）中，姓名保存在b（i）中。
  程序界面如图1所示，左边列表框列出所有同学的卡号和姓名，在右边文本框Text1中输入卡号，单击“开始查询”按钮（Command1），程序就按卡号进行查找，如果找到就在标签Label3中输出卡号对应同学的姓名，否则就输出“查无此人”。
  解决此问题的算法流程图如图2所示，相应的程序如下，在程序①和②横线处，填入适当的语句或表达式，把程序补充完整。
  Private Sub Command1_Click （　　）
  Dim x As String,i As Integer,s As String,f As Boolean
  x=

   

  
  i=0：f=False'f为找到标志变量，值为True表示找到，否则表示没找到
  Do While （i＜n） And （f=False）
  i=i+1
  If x=a（i） Then
  f=True
  End If
  Loop
  If f=True Then
  

   

  
  Else
  s=“查无此人！“
  End If
  Label3．Caption=s
  End Sub
  程序中①横线处应填入

   

  
  程序中②横线处应填入

   

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

  解析