这个计算结果明显是错误的，可是代码也正确啊，是精确度有问题么？应该怎么弄呢？

代码呢？？？  明显是错误的也敢说“可是代码也正确啊”

Private Sub Command1_Click()
D = Val(Text7.Text)
P0 = 1.18 / D ^ 0.5
Text4.Text = P0
End Sub

Private Sub Command2_Click()
Text4.Text = ""
Text7.Text = ""
End Sub

我这里没问题：

 Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim D As Double
        Dim P0 As Double
        D = Val(TextBox3.Text)
        P0 = 1.18 / D ^ 0.5
        TextBox4.Text = P0
    End Sub

看起来好深奥，我是菜鸟，应该把这些代码放在哪呀？放在计算按钮里么？

我没有vb6环境  那个神马一系列变量不用dim定义 你都能直接用吗

好吧~~~我承认我没明白你什么意思，我之前那个代码就可以计算，但是计算有些大的数值的时候就不对了，比如根号里输入100就可以正确地算出来了，但是输入大点的数值就不行了，你在帮我看看呗，我用的是VB6.0

你把text4宽度拉宽点就看到真正的结果了，是科学计数法造成的。

还是不行~~

Private Sub Command1_Click()
D = Val(Text7.Text)
P0 = 1.18 / D ^ 0.5
Text4.Text = Format(P0, "0.00000")   '调整下格式吧，就看到正确答案了，你的答案是1.96666666666667E-02，由于太长，显示不出来
End Sub

Private Sub Command2_Click()
Text4.Text = ""
Text7.Text = ""
End Sub