问题 问答题 简答题

正常开、停车操作步骤?

答案

参考答案:

(1)正常开车

1、检查RO装置具备开车条件后,开启原水泵,打开RO启动按钮,进行低压冲洗,冲洗完毕后,启动高压泵,同时打开取样发排气、排水后,关闭取样阀。打开保安过滤器放空阀,待出水后关闭放空阀,进水压力不的超过1.5MPa,一、二段压差不应超过0.2MPa,一段压力一般控制在1.3MPa左右,关闭产水排污阀向RO进水。

2、待RO水箱达到所需液位时,方可处理阴阳离子交换器,待阴阳离子交换器处理好后投入运行。

3、开启阳离子交换器排气阀,同时缓慢开启进水阀,待空气阀向外出水时开启正洗排水阀,关闭空气阀,调至正常流量冲洗,待水质合格后,关闭正洗排水阀,开启出水阀向阴离子交换器进水,待水质合格后向脱盐水箱打水。

4、当脱盐水箱水位达三分之二时,开水箱出口阀,开脱盐水泵出口阀,待泵内充满水后关闭泵出口阀,启动水泵向锅炉供水。

(2)、正常停车

接到停车通知后,将脱盐水箱和RO水箱打满水后,停RO装置PLC会发出信号给增压泵进行RO低压冲洗冲洗完毕后会自动停止,然后停运阴阳离子交换器。关闭阴阳离子交换器的进、出口阀门。

解答题
问答题

在考生文件夹下有一个工程文件sjt5.vbp,其功能是:

单击“读数据”按钮,则把考生文件夹下in5.dat文件中的100个正整数读入数组a中,同时显示在Text1文本框中;

单击“素数”按钮,则将数组a中所有素数(只能被1和自身整除的数称为素数)存入数组b中,并将数组b中的元素显示在文本框Text2中。

在给出的窗体文件中已经有了全部控件(如图5所示),但程序不完整。

要求:完善程序使其实现上述功能。

注意:考生不得修改窗体文件中已经存在的控件和程序,在结束程序运行之前,必须先执行“素数”操作,然后再用窗体右上角的关闭按钮结束程序,否则无成绩。最后程序按原文件名存盘。

[题目提供的源程序]

Option Base 1

Dim a(100) As Integer, num As Integer

Private Sub Command1_Click()

Dim k As Integer

Open App.Path & "\in5.dat" For Input As #1

For k=1 To 100

Input #1, a(k)

Text1=Text1+Str(a(k))+Space(2)

Next k

Close #1

End Sub

Private Sub Command2_Click()

Dim b(100) As Integer

num=0

If Len(Text1.Text)=0 Then

MsgBox "请先执行"读数据"功能!"

Else

’考生应编写的程序(功能:生成存放素数的数组b)

’注意:请务必将数组b的元素个数存入变量num中

’以下程序段将b数组的内容显示在Text2中

For i=1 To num

Text2.Text=Text2.Text+Str(b(i))+Space(2)

Next i

End If

End Sub

Private Sub Form_Unload(Cancel As Integer)

Open App.Path & "\out5.dat" For Output As #1

Print #1, Text2.Text

Close #1

End Sub