COD(化学需氧量)是衡量水质污染程度的重要指标之一,污水处理时根据污水的COD指标来计算COD去除剂的投放量。
程序界面如图1所示,在本框Text1中输入COD指标,单击“计算投放量”按钮(Command1)后,程序根据COD指标计算出合适的COD去除剂投放量,并在标签Label3中输出计算结果。
污水处理厂根据COD指标投放COD去除剂的标准如下表所示:
当前COD指标X
根据COD指标应投放COD去除剂的剂量
X<50
10
X≥50并且X≤500
X>500 3X 图 1 图2
(1)
在设计界面时,应使用图2所示“控件工具箱”中的(填写相应编号)添加“计算投放量”按钮。
(2)
为实现上述功能,请在划线处填入合适代码。
Private Sub Command1_Click( )
Dim x As Single,s As
Single
x =Val(Text1.
Text)
If x < 50 Then
s=10
ElseIf
Else
s=3*x
End If
Label3. Caption=
End Sub
答案: 【1】④
【1】x <= 500 Then【2】s=1.2*x/5 或 s=0.24*x【3】Str(s)