调洪演算双辅助线法程序（源代码），首次公开！

'**********************************************************************************************************
'
'调洪演算双辅助线法程序 2011.2.13
'
'作者：晓染霜林醉
'QQ：51817
'水利软件开发研究群：39869071
'水利水电工程施工导截流方案辅助设计系统官方博客：http://www.cnblogs.com/DivClose/
'
'欢迎对源码进行任何改编，作者不追究任何责任！
'
'***********************************************************************************************************

Public X1, X2, X3 As Integer

Private Sub Form_Load()

    MakeWindow Me, False
    imgTitleMaxRestore.Picture = imgTitleMaximize.Picture
    LoadSkinz Me
    List1.AddItem ("格式为：时段,来流量")
    List2.AddItem ("格式为：水位,库容")
    List3.AddItem ("格式为：水位,泄流量")
End Sub

'输入设计洪水过程
Private Sub Cmd1_Click()
On Error Resume Next
Dim File1 As String
Dim LineIn As String
filenum = FreeFile

CD1.DialogTitle = "打开设计洪水过程文件"
CD1.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CD1.ShowOpen
Text1.Text = CD1.FileName
If CD1.FileName <> "" Then

    File1 = CD1.FileName
    List1.Clear
    Open File1 For Input As #filenum
    Do While Not EOF(filenum)
        Line Input #filenum, LineIn
        List1.AddItem LineIn
        X1 = X1 + 1
    Loop
    Close #filenum
Else
    Exit Sub
End If
End Sub

'输入水库库容曲线
Private Sub Cmd2_Click()
On Error Resume Next
Dim File2 As String
Dim LineIn As String
filenum = FreeFile
CD2.DialogTitle = "打开水库库容曲线文件"
CD2.Filter = "文本文件(*.txt)|*.txt|所有文件(*.*)|*.*"
CD2.ShowOpen
Text2.Text = CD2.FileName
If CD1.FileName <> "" Then

    File2 = CD2.FileName
    List2.Clear
    Open File2 For Input As #filenum
    Do While Not EOF(filenum)
        Line Input #filenum, LineIn
        List2.AddItem LineIn
        X2 = X2 + 1
    Loop
    Close #filenum
Else
    Exit Sub
End If
End Sub

'输入泄流能力曲线
Private Sub Cmd3_Click()
On Error Resume Next
Dim File3 As String
Dim Line