新安江模型VB代码, 新安江模型，欢迎大家提出各种宝贵意见，以完善该程序，还缺少参数率定的程序，谁写过了？可以分享一下吗？-xinanjiang　vb code

Option Explicit

Private Sub Command1_Click()

Dim P(366) As Single, E(366) As Single, PE(366) As Single

Dim P1(366) As Single, P2(366) As Single, P3(366) As Single, P4(366) As Single

Dim E0(366) As Single, Ep(366) As Single

Dim EU(366) As Single, EL(366) As Single, ED(366) As Single

Dim WU(366) As Single, WL(366) As Single, WD(366) As Single, W(366) As Single

Dim Q(366) As Single, R(366) As Single, sumR As Single, sumQ As Single

Dim i As Integer, Kc As Single, WMM As Single, a(366) As Single

Const WUM　 20, WLM　 60, WDM　 60

Const C　 0.16