Question

vb 用迭代法求立方根

Dim x1&, x0&, t!

Private Sub Command1_Click()
x0 = Val(Text1)
Do
x1 = (2 / 3) * x0 + (1 / (3 * x0))
t = x0
x0 = x1
Loop Until Abs(x0 - t) < 10 ^ (-5)
Text2 = x1
End Sub

错在哪里？
我自己已经找出错误了，不过还是谢谢你们的回答
答案是
Dim x1&, x0&, t!
Private Sub Command1_Click()
x0 = Val(Text1)
a=x0
Do
x1 = (2 / 3) * x0 + (a / (3 * x0*x0))
t = x0
x0 = x1
Loop Until Abs(x0 - t) < 10 ^ (-5)
Text2 = x1
End Sub

Answer 1

& 是 As Long的缩写 ：Dim x1 As Long 相当于 Dim x1& 是“长整型”
! 是 as single 的缩写：Dim t As single 相当于 Dim t! 是“单精度浮点型”

在这一题中，变量x0,x1和t都有可能在运算过程中出现小数，所以不能用整型声明变量，应该把它们全声明成为single型变量。即：
dim x0!,x1!,t!(或：dim x0 as single,x1 as single,t as single)

变化之后，还不能求出正确的值，因为程序已经没有语法错误，无法查找。

请把计算公式发过来继续给你查一哈。

Answer 2

我找了一段正确的程序，如下：
注意看，它的判断条件跟你的是不同的，还有就是你的代码，一开始x1=0的话，x2=2/3*x1+a/(3*x1*x1);
分母为0了，当然出错了。
求立方根的牛顿法基于如下事实，如果y是x的立方根的一个近似值，那么下式将给出一个更好的近似值：
(x/y2+2y)/3
代码:
#include<stdio.h>
#include
<math.h>
float
fun(float
guess,float
x)
{
if(abs(guess*guess*guess-x)<0.0000001)
return
guess;
else
return
fun((x/guess/guess+2*guess)/3,x);
}
int
main()
{
float
a,b;
while(scanf("%f%f",&a,&b))
printf("%f\n",fun(a,b));
}
//a表示你猜测b的立方根大概等于几.

Answer 3

赋值错误！如果执行第一次循环：将X1赋值到X0，第二次循环将X0又赋值到T，那么很快达到条件停止循环，你把T=X0改为T=VAL(TEXT1)试验看看

Answer 4

35
1237

Answer 5

为什么它提示溢出啊？