短期休风的休、复风 *** 作程序是什么？

（1)休风 *** 作程序为： 1)高压 *** 作的高炉先将高压改为常压； 2)在炉顶、除尘器、煤气切断阀等处通蒸汽，以保证煤气系统的安全； 3)停止富氧鼓风，租颤停止喷吹燃料； 4)有炉顶喷水降温设施的高炉，要停止炉顶喷水； 5)打开炉顶放散阀，关闭除尘器截断阀，停止回收煤气； 6)打开放风阀减到50%时关闭混风阀； 7)放风到风压小于20kPa时停止加料； 8)放风到风压小于10kPa时保持正压，检查各风口，没有灌渣危险时发出休风信号慎型此，热风炉关闭热风阀和冷风阀，提起料尺； 9)需要倒流休风时，通知热风炉进行倒流，并均匀打开1/3以上风口视孔盖。 (2)复风 *** 作程序为： 1)采用倒流休风时，复风前停止倒流，关闭所有风口的视孔盖； 2)发出送风信号，打开热风炉的冷风阀、热风阀，逐渐关闭放风阀； 3)慢风检查风渣口、吹管等是否严密可靠，确认不漏风时才允许加风； 4)送风量达到正常1/2以上时，打开除尘器上煤气截断阀； 5)关闭炉顶煤气放散阀，回收煤气； 6)关闭炉顶、除尘器和煤气截断阀处的蒸汽； 7)根据宽迅炉况，迅速恢复高压 *** 作，富氧鼓风和喷吹燃料。

启动vb 新建一个“标准exe”工程

在控件工具箱上 选定 按钮 CommandButton 然后在亩州窗体上画一个按钮出来

双击按钮迅晌蔽，你可以看到下面这两行

Private Sub Command1_Click()

End Sub

把这两行删除

把下面的代码粘贴在里面

启动执行

Private Sub Command1_Click()

Dim a(12) As String

Dim t As String

'3~11级跟上面格式对齐补充在引号内

t = "风级 名称 风速(m/s) 陆地物象 海面波浪 浪高(米) "

a(0) = " 0 无风 0.0-0.2 烟直上 平静 0.0 "

a(1) = " 1 软风 0.3-0.15 烟示风向 微波峰无泡沫 0.1 "

a(2) = " 2 清风 1.6-3.3 感觉有风 小波峰未破碎 0.2 "

a(12) = "12 飓风 32.2-36.9 摧毁巨大 海浪滔天 14.0 "

a(3) = ""

a(4) = ""

a(5) = ""

a(6) = ""

a(7) = ""

a(8) = ""

a(9) = ""

a(10) = ""

a(11) = ""谨握

Dim n As Integer

n = Val(InputBox("请输入风级", "输入风级", 0))

If n >12 Or n <0 Then

MsgBox "输入的数应在0~12之间"

Else

Cls

Print t

Print a(n)

End If

End Sub

---