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

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

• 1．有如下Visual Basic程序段：
  m=“VB“
  n=“is“
  t=“easy“
  t=m+n+t
  该程序段运行后，变量t的值为

   

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

  解析

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

• 3．.以下Visual Basic程序的功能是：计算表达式1×3+2×3+3×3+…100×3的值，并在文本框Text1中输出计算结果．
  Private Sub Command1_Click

   

  
  Dim i As Integer,s As Integer
  s=0
  i=1
  Do While i＜=100
  s=i*3
  i=i+1
  Loop
  Text1．Text=Str（s）
  End Sub
  （1）刚退出循环时，变量i的值是

   

  ．
  （2）为了实现上述表达式的计算，程序中横线处的表达式应更正为

   

  ．
  组卷：0引用：2难度：0.5

  解析

• 4．某市出租车计费标准规定：出租车启动后行程不超过3千米（包含3千米）计费5元；如果行程超过3千米且不超过10千米（包含10千米），则超过3千米部分按1.5元/千米计费（3千米及以内部分计费仍为5元）；若行程超过10千米，则在前面计费基础上，超出10千米部分按1.8元/千米计费。
  假定某出租车行程为x千米，计费标准如下：
  当x≤3千米时，计费为5元；
  当3＜x≤10千米时，计费为5+（x-3）×1.5
  当x＞10千米时，计费为5+（10-3）×1.5+（x-10）×1.8
  程序界面如图1所示，在文本框Text1中输入行驶里程数（单位：千米），单击“开始计算”按钮（Command1）后，在标签Label3输出计费结果。
  解决此问题的算法流程图如图2所示，相应的Visual Basic程序如下，在程序①和②横线处，填入适当的语句或表达式，把程序补充完整。
  Private Sub Command1_Click （　　）
  im x As Single,s As Single
  x=Val（Text1．Text）
  If

   

   Then
  s=5
  ElseIf  x＜=10Then
  s=5+（x-3）*1.5
  Else
  s=5+（10-3）*1.5+（x-10）*1.8
  End If
  

   

  =Str（s）
  End Sub
  程序中①横线处应填入

   

  
  程序中②横线处应填入

   

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

  解析