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

来源：学生作业帮助网 编辑：六六作业网 时间：2024/12/26 05:21:03
请高手编一个VB迭代程序,方程式为：lnP=A-B/T+C*lnT+D*P/T^2其中A、B、C、D是已知常数,自变量T已知,求P请高手编一个VB迭代程序,方程式为：lnP=A-B/T+C*lnT+D

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

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

请高手编一个VB迭代程序,方程式为：lnP = A - B/T + C*lnT + D*P/T^2其中A、B、C、D是已知常数,自变量T已知,求P VB随机产生一个英文字母程序怎么编啊? 能否帮忙编个VB程序,计算任意一个正整数n的阶乘,我知道你是高手,能否免费帮忙一次啊, 已知一个数列的前3个数1,2,3,以后的每个数为前3个数的和,编程序求此数列的第35项,请用VB来解 高分请高手帮我用c++编一个程序,要求用这个分段函数：f(x)=x(x 由于初学者,不懂matlab,请高手用malab帮我编一个程序：三角函数的波形合成与分解 用VB编一个程序,求从1至100的自然数的和 vb编一个计算1+2+3+4+...+100=的程序运用计数循环结构 用VB编一个钟表,表针运动程序怎么编?我用VB编了一个钟表,可表针（不是数字!）1秒1秒在变动,怎么编写这段程序? 求助高手用vb编一个程序计算：T(i,n + 1) = [T(i+1,n)+T(i-1,n)] / M + (1 - M / 2) * T(i,n) 其中M=1 我想编一个vb程序,16个数字去除3个最大数和3个最小数后求剩余的十个数的平均值.平均值保留小数点后一位麻烦高手能够帮我编写一下代码. 请教大神用VB编一个计算的程序?求公式 p=v*Z*F(s,x,y).其中F(s,x,y)=π/M,M=ln[2ch(πs/2y)]+ln{[shπ(x/y-s/2y)*shπ(x/y+s/2y)]/[shπ(x/y-s/y)*shπ(x/y+s/y)]}. 用VB编一个程序,随机产生10个100以内的不同的偶数要不同的10个 已知一个数列的前三个数为1,2,3,以后每个数为前三个数的和,编程序求此数列的第35是VB的,急用 像数控宏程序的高手求助,关于双曲线三角函数在宏程序中的应用,怎样去转化为宏变量啊!最好编一个双曲线的铣削程序, c++题目 不知道怎么弄 1. 编程序 用迭代法求a的立方根,求立方根的迭代公式为 ::Xi+1=（2*Xi）/3+a/(3*Xi*X1. 编程序 用迭代法求a的立方根,求立方根的迭代公式为 ::Xi+1=（2*Xi）/3+a/(3*Xi*Xi) 假定X的初 求数控高手给解释解释程序内容意思另外请高手给编个内容相同的程序, 急用!编一个判断某数是否为素数的vb函数程序,返回值是逻辑型若是 返回ture ;否则返回false.并利用函数查找小于某数的最大素数 急用!