程序界面如图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 |
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