vb中 求立方根 用迭代法，帮忙改下吧，一运行就无响应
PrivateSubForm_Click()Dimx#,i#,a#a=Val(Text1.Text)x=aDoWhilee<6i=x*(2/3)+a/(3*x*x)x=i...
Private Sub Form_Click()
Dim x#, i#, a#
a = Val(Text1.Text)
x = a
Do While e < 6
i = x * (2 / 3) + a / (3 * x * x)
x = i
Loop
Print x
End Sub 展开
Dim x#, i#, a#
a = Val(Text1.Text)
x = a
Do While e < 6
i = x * (2 / 3) + a / (3 * x * x)
x = i
Loop
Print x
End Sub 展开
2个回答
展开全部
Do While e < 6
e既没有定义 也没有赋值 条件永远成立 可不就一直循环 死循环 最终无响应是必须的
e既没有定义 也没有赋值 条件永远成立 可不就一直循环 死循环 最终无响应是必须的
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
