下列说法正确的是( )
执行该流程图,则输出y的结果为( )
Dim x as integer,y as integer
x=3
y=4
Text1.Text=“x+y”
该程序运行后,文本框Text1中显示的为( )
Private Sub Commandl_Click()
Dim a As String
a ="r"
a=Chr(Asc(a) - 4)
Label1. Caption =a
End Sub
运行程序后, Label1中的显示结果为( )
n =Val(Text1. Text)
s=0
Do While n <> 0
x = n Mod 10
s=x+s
n=n\10
Loop
在文本框Text1中输入“20201119”,执行该程序段后,s的结果为( )
图1
程序界面如图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