module1作业.bas

结合实例用VB编程表达了一阶偏微分方程的数值解法

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
Public fl As Single
Public 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

Public l As Single
Public cd As Single
Public w As Single
Public xv As Single
Public midu As Single '密度

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

Dim sum1 As Single
Dim sum2 As Single

Public 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
Public Vc0 As Single
Dim KGSi As Single