module1.bas

单戗堤截流图解法计算程序使用帮助 操作步骤： 一：输入分流能力数据文本文件 文件格式为上游水位

Attribute VB_Name = "Module1"
'数据合理性检查
Public BeErr As Boolean
Function Check(STR As String) As Boolean
    If Not IsNumeric(STR) Or Val(STR) < 0 Then
        BeErr = True
        
    End If
End Function