UC知道请问一个vb程序的问题
来源：百度知道 编辑：UC知道 时间：2024/06/24 15:59:44
我编了一个程序，可是运算结果总是比实际结果大100倍，请问是为什么呢
Dim x, y, z, result As Double
Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
z = Val(Text3.Text)
result = Sqr(3 * x + y - z) / (x * y) ^ 4
Text4.Text = result
对不起各位，我的原公式是：√((3x+y)-z)/〖(xy)〗^4
根号只包括分子，不包括分母
希望各位帮助：）
Dim x, y, z, result As Double
Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
z = Val(Text3.Text)
result = Sqr(3 * x + y - z) / (x * y) ^ 4
Text4.Text = result
对不起各位，我的原公式是：√((3x+y)-z)/〖(xy)〗^4
根号只包括分子，不包括分母
希望各位帮助：）
你那个程序有歧意呀！
改成下面这个：
result = Sqr((3 * x + y - z) / (x * y) ^ 4 )
再去试试!
不知道是不是楼主想要的答案。
和我算的计算结果不一样，不知道为什么。我运行过了
Dim x, y, z, result As Double
Private Sub Command1_Click()
x = Val(Text1.Text)
y = Val(Text2.Text)
z = Val(Text3.Text)
result = Sqr（(3 * x + y - z) / (x * y) ^ 4 ）
Text4.Text = result
End Sub
我运行了一下你的程序：
输入xyz的值都为3，发现结果是4.57247370827618E-04
计算器的结果是
4.5724737082761774119798811156836e-4
结果是相同的。没有你说的差错啊。