请高手指点下列子程序的功能作用。

[lichudi]

Sub CloseVoice()
Dim i As Integer
For i = 1 To 4
VoiceFlag(i) = False
Next i
End Sub

Sub UpAlarmPermite(st As String)
' frmMain.MMControl1.Command = "close"
frmMain.AniLineAlarm.Visible = True
Select Case st
Case "蒸汽压力"
If VoiceFlag(1) Then VoiceFileName = App.Path + "\voice\金属声蒸汽压力超高.wav"
Case "汽包水位"
If VoiceFlag(2) Then VoiceFileName = App.Path + "\voice\金属声汽包水位超高.wav"
Case "蒸汽温度"
If VoiceFlag(3) Then VoiceFileName = App.Path + "\voice\金属声蒸汽温度超高.wav"
Case "炉膛差压"
If VoiceFlag(4) Then VoiceFileName = App.Path + "\voice\金属声炉膛差压超高.wav"
End Select
If (VoiceFlag(1) Or VoiceFlag(2) Or VoiceFlag(3) Or VoiceFlag(4)) Then
frmMain.MMControl1.Command = "close"
frmMain.MMControl1.FileName = VoiceFileName
frmMain.MMControl1.Command = "open"
frmMain.MMControl1.Command = "play"
End If
End Sub
Sub DownAlarmPermite(st As String)
frmMain.AniLineAlarm.Visible = True
Select Case st
Case "蒸汽压力"
If VoiceFlag(1) Then VoiceFileName = App.Path + "\voice\窗体蒸汽压力超低.wav"
Case "汽包水位"
If VoiceFlag(2) Then VoiceFileName = App.Path + "\voice\窗体汽包水位超低.wav"
Case "蒸汽温度"
If VoiceFlag(3) Then VoiceFileName = App.Path + "\voice\窗体蒸汽温度超低.wav"
Case "炉膛差压"
If VoiceFlag(4) Then VoiceFileName = App.Path + "\voice\窗体炉膛差压超低.wav"
End Select
If (VoiceFlag(1) Or VoiceFlag(2) Or VoiceFlag(3) Or VoiceFlag(4)) Then
frmMain.MMControl1.Command = "close"
frmMain.MMControl1.FileName = VoiceFileName
frmMain.MMControl1.Command = "open"
frmMain.MMControl1.Command = "play"
End If
End Sub

Sub WindowOpenVoice()
frmMain.MMControl1.Command = "close"
frmMain.MMControl1.FileName = App.Path + "\voice\旅行 嘟嘟声.wav"
frmMain.MMControl1.Command = "open"
frmMain.MMControl1.Command = "play"

End Sub
Sub WindowCloseVoice()
frmMain.MMControl1.Command = "close"
frmMain.MMControl1.FileName = App.Path + "\voice\Mcitest.wav"
frmMain.MMControl1.Command = "open"
frmMain.MMControl1.Command = "play"

End Sub

Sub FluxPermit()
Dim k As Single
'给水处理
If Data(77) < 0 Then Data(77) = 0
k = 1 'Sqr(Data(1) / 6)
Data(77) = 7.115 * k * Sqr(Data(77)) '7.37966
'减温水处理
If Data(79) < 0 Then Data(79) = 0
k = 1 'Sqr(Data(1) / 6)
Data(79) = k * Data(79) '6.22183 * k * Data(79)
'主汽流量处理
If Data(76) < 0 Then Data(76) = 0
' If Data(35) <= 0 Then Data(35) = 0.1
If Data(35) <= 0 Then Data(35) = 0.3
' k = 1 - 0.000373 * Data(76) / Data(77)
If Data(78) < 0 Then Data(78) = 0
k = Sqr((450 + 273) / (Data(53) + 273) * Data(35) / 3.93) '53--78
Data(76) = 4.50087 * k * Sqr(Data(76))
'小流量切除处理
Data(77) = IIf(Data(77) >= 5, Data(77), 0)
Data(79) = IIf(Data(79) >= 1, Data(79), 0)
Data(76) = IIf(Data(76) >= 5, Data(76), 0)

End Sub