Description: 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
To Search:
File list (Check if you may need any files):
新安江VB代码.doc
Download