图 a |
图 b
图 c |
程序界面如图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
VB程序如下,请回答以下问题:
Private Sub Command1_Click()
Dim s As String, ch As String
Dim i As Integer
Dim r As Integer, result As Integer
Dim flag As Boolean
s = Text1.Text
i = 1:result = 0:flag = True
Do While
ch = Mid(s, i, 1)
r = ①
If r > 9 Or r < 0 Then
flag = False
Else
②
End If
i = i + 1
Loop
Text2.Text = Str(result)
End Sub
① ②
PRIVATESUB FORM_CLICK( )
DIM X AS SINGLE
X=VAL(INPUTBOX(“请输入一个成绩”))
SELECT CASE
CASE
PRINT “优”
CASE
PRINT “良”
CASE
PRINT “一般”
CASE
PRINT “及格”
CASE
PRINT “不及格”
END SUB
i=1:j=12:k=0:s=””
key= Va1(TextI Text): c=N: flag= False
Do While i<= j And flag= False
m=(i1+j+1)\2:k=k+1
If key= a(m) Then c=Y: flag=True
If key >a(m) Then j= m-1 Else i =m+1
s=s& Str(a(m))
Loop
Text2 Text s: Text3 Text= c
数组a(1)到a(12)的值依次为“991.85.76,68.61,53,42.34,27,20,13”,执行该程序段后,下列说法正确的是( )