VB 用迭代发迭代法求x= 。求平方根的迭代公式为：
答案:1 悬赏:40 手机版
解决时间 2021-11-10 09:56
- 提问者网友：锁深秋
- 2021-11-09 21:04
VB 用迭代发迭代法求x= 。求平方根的迭代公式为：
最佳答案
- 五星知识达人网友：由着我着迷
- 2021-11-09 22:05
Private Sub Command1_Click()
a = Val(InputBox("a="))
x = 0: y = a
Do While Abs(y - x) >= 0.00001
x = y
y = (x + a / x) / 2
Loop
Print y
End Sub
a = Val(InputBox("a="))
x = 0: y = a
Do While Abs(y - x) >= 0.00001
x = y
y = (x + a / x) / 2
Loop
Print y
End Sub
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯