请高手编一个VB迭代程序,方程式为：lnP=A-B/T+C*lnT+D*P/T^2其中A、B、C、D是已知常数,自变量T已知,求P

Answer 1

Private Sub Command1_Click()
Dim a As Double,b As Double,c As Double,d As Double,t As Double
Dim P As Double,dbl1 As Double,dblDalta As Double
a = Val(Text1)
b = Val(Text2)
c = Val(Text3)
d = Val(Text4)
t = Val(Text5)
P = 2:dbl1 = 1.5
dblDalta = 0.001 '误差
Do While Abs(P - dbl1) > dblDalta
P = (P + dbl1) / 2
dbl1 = t * t * (Log(P) - a + b / t - c * Log(t)) / d
Debug.Print dbl1
Loop
End Sub
Private Sub Form_Load()
Text1 = 5
Text2 = 208
Text3 = 2
Text4 = 8
Text5 = 9'假设的5个数
End Sub