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

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

• 1．有如下Visual Basic程序段：
  m=10
  n=m*2
  t=m*n
  该程序段运行后，变量t的值为

   

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

  解析

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

• 3．以下Visual Basic程序的功能是：计算表达式1-2+3-4+5-6+…+99-100的值，并在文本框Text1中输出计算结果。
  Private Sub Command1_Click （　　）
  Dim i As Integer,s As Integer
  s=0
  i=1：t=1
  Do While i＜=100
  s=s+ i
  t=-t
  i=i+1
  Loop
  Text1．Text=Str（s）
  End Sub
  问：
  （1）循环刚退出时变量i的值是

   

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

   

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

  解析

• 4．COD（化学需氧量）是衡量水质污染程度的重要指标之一，污水处理时根据污水的COD指标来计算COD去除剂的投放量。
  程序界面如图所示，在文本框Text1中输入COD指标，单击“计算投放量”按钮（Command1）后，程序根据COD指标计算出合适的COD去除剂投放量，并在标签Label3中输出计算结果。
  污水处理厂根据COD指标投放COD去除剂的标准如下表所示：
  

  当前COD指标x	根据COD指标应投放COD去除剂的剂量
  x＜50	10
  x≥50  并且  x≤500	1 . 2 x 5
  x＞500	1 . 5 x 4

  在程序①和②横线处填入适当的语句或表达式，将程序补充完整。
  Private Sub Command1_Click （　　）
  Dim x As Single,s As Single
  x=Val（Text1．Text）
  If

   

   Then
  s=10
  ElseIf x＜=500Then
  s=

   

  
  Else
  s=x/4*1.5
  End If
  Label3．Caption=Str（s）
  End Sub
  程序中①横线处应填入

   

  
  程序中②横线处应填入

   

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

  解析