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

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

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

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

还是不行~~

解决了，谢谢啦~~~~