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

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

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

   

  ．
  组卷：2引用：1难度：0.9

  解析

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

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

   

  。
  （2）程序运行后，语句“t=t*2”被执行的次数为

   

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

  解析

• 4．交通违章查询。在违章查询系统中输入车主的汽车车牌号，查询系统就会按照车牌号查找所有的违章记录。下列程序的功能是根据车牌号查找该车的违章信息，数组a和b分别保存所有违章汽车的车牌号和违章原因，第i条信息的车牌号保存在a（i）中，对应的违章原因保存在b（i）中。
  程序界面如图1所示，在文本框Text1中输入车牌号，单击“开始查找”按钮（Command1），电脑就开始查找该汽车所有的违章记录，如果找到对应的信息，就统计所有违章次数并在标签Label3中显示违章总次数，同时在列表框List1中显示所有违章的原因，如果没有找到，则在列表框中显示“没有任何违章记录”。
  解决此问题的算法流程图如图2所示，相应程序如下，在程序①和②横线处填入适当的语句和代码，把程序补充完整。
  Private Sub Command1_Click （　　）
  Dim x As String,i As Integer,s As Integer
  List1．Clear
  s=0
  x=①         
  For i=1To n
  If x=a（i） Then
  s=s+1
  List1．AddItem b（i）
  End If
  Next i
  Label3．Caption=Str（s）
  If ②           Then List1．AddItem“没有任何违章记录“
  End Sub
  程序中①横线处应填入

   

  
  程序中②横线处应填入

   

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

  解析