圣维南方程组程序

圣维南方程程序Option ExplicitOption Base 1Const nsr As Integer = 200Private ct, p, v, dtt As SinglePrivate

圣维南方程程序 Option Explicit Option Base 1 Const nsr As Integer =200 Private ct, p, v, dtt As Single Private ib As Integer Private DXX(nsr), CNO(nsr), ZZ(nsr), QQ(nsr), PP(nsr), VV(nsr), SS(nsr), TT(nsr) As Single Private n, l1, l2, ic As Integer Const pi As Long =3.1415926 Private Sub Command1_Click() Dim de As Long Dim delay As Long Dim dx, cn, zu, x, zd, xx, yy As Single Dim mt, dt, i, j, kAs Integer Open App.Path +"\resultsz.txt" For Output As #1 Open App.Path +"\resultsq.txt" For Output As #2 Open App.Path +"\inputdata.dat" For Input As #3 Input #3, dt, ct, cn, n