module1.bas

来自「结合实例用VB编程表达了一阶偏微分方程的数值解法」· BAS 代码 · 共 50 行

Attribute VB_Name = "Module1"
Const j = 251

Public p(j) As Double
Public dt(j) As Double
Public i As Single

Public ea As Single
Dim fl As Integer
Dim al As Integer

Public kp As Integer
Public ka As Integer
Public kc As Integer


Dim pr As Single
Dim cip As Single
Dim cic As Single

Dim ctc As Single
Dim cel As Single
Dim ctp As Single

Dim cd As Single
Dim w As Single
Dim xv As Single
Dim midu As Single


Dim pa As Single
Dim n As Single
Dim v0 As Single

Dim sum As Single
Dim xh As Integer
Dim h As Single
Dim h0 As Single
Dim Voil As Single
Dim cep As Single
Dim cec As Single
Dim Aot As Single

Dim KDSi As Single
Dim KDSi0 As Single
Dim Vco As Single

Dim KGSi As Single