这个是题目：


其中a，b，R就直接用数据代入就可以了。不用公式的，公式只要用到那个求V的公式就可以了，对你们来说应该都是非常简单的。希望大家帮帮忙。

结果要弄成差不多这个样子的……


[ 本帖最后由 huotoumao 于 2010-4-8 15:13 编辑 ]

'我在VB环境里,好像有问题,没编译执行.你看着办吧.

Option Explicit
Const a As Double = 1350600#       '1.3506*10^6
Const b As Double = 38.6417
Const R As Double = 82.06


Private Sub Command1_Click()
Dim P As Double
Dim T As Double
Dim V As Double

If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
    P = Val(Text1.Text)
    T = Val(Text2.Text)
   
    V = (R * T) / (P + a / (V * V)) + b
   
    MsgBox V
    'text3.Text = V

Else
    MsgBox "请输入 P 和 T 的值."
End If
End Sub

方程的左右两边都有v，它们是同一个v吗？ 如果是，则是个三次方程，怎么能直接代数进去？

编译后，出错提示“除数为零”

我在编程环境里也出这个问题,
但没发现任何错误,然后直接点继续执行,又过了.

所以我也郁闷啊.

Double 类型的默认值为 0
V 定义为Double类型后并没有赋值，a / (V * V) 表达式中V*V仍是0，当然会有除数为0的提示。

那就是我写错了.我看错了题目了.

那这个方程,就不能这样解了.
需要对这个方程进行变换.
或者 需要在一个极大的范围内进行求解.

'程序修改如下: 结果需要四舍五入到 1位小数.如果你需要多位小数,请自己修改,有提示.
'采用的方法是 穷举法 ,方程进行了变形.

Option Explicit

Const a As Double = 1350600#       '1.3506*10^6
Const b As Double = 38.6417
Const R As Double = 82.06


Private Sub Command1_Click()
Dim P As Double
Dim T As Double
Dim V As Double

If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
    P = Val(Text1.Text)
    T = Val(Text2.Text)
   
    For V = 1 To 50000 Step 0.1                                          '小数位1
        'Debug.Print V - (R * T) / (P + a / (V * V)) - b
        If Abs(V - (R * T) / (P + a / (V * V)) - b) < 0.01 Then           '精度
            Exit For
        End If
    Next V
   
    Debug.Print V - (R * T) / (P + a / (V * V)) - b             '显示结果的最后值
   
    MsgBox V
    'text3.Text = V

Else
    MsgBox "请输入 P 和 T 的值."
End If
End Sub

我测试时,测试能达到的最高精度如下:
    For V = 1 To 5000 Step 0.0001                                          '小数位1
        If Abs(V - (R * T) / (P + a / (V * V)) - b) < 0.00001 Then           '精度


结果是:
222.11310000625
循环里精度是 4 位小数, 精度里只能达到 5 位小数.最多只能比循环里多一位小数.
所以这个结果需要四舍五入到 4位小数.

Option Explicit

Const a As Double = 1350600
Const b As Double = 38.6417
Const r As Double = 82.06

Private Sub Command1_Click()
    Dim p As Double, t As Double, v As Double
    Dim v0 As Double, temp As Double
    If IsNumeric(Text1) And IsNumeric(Text2) Then
        p = Val(Text1)
        t = Val(Text2)
        temp = 300                                   '初始值设定
        v0 = 300
        v = 250
        Do While Abs(temp - v) > 0.00001                   '迭代部分，精度可自己调整
            temp = v
            v = (r * t) / (p + a / (v0 * v0)) + b
            v0 = v
            Debug.Print v
        Loop
        Text3 = CStr(v)
    End If
End Sub
借用版主的代码
穷举法好像有点慢，按楼主意思，应该是用迭代