VB程序题：参阅教材例4.20 用迭代法求 x=a立方根 求立方根的迭代公式为：VB程序设计教程(第3版) 龚沛曾 课后实验源码

VB程序题：参阅教材例4.20 用迭代法求 x=a立方根  求立方根的迭代公式为：

解题，窗体画1个按钮，代码如下：
Private Sub Command1_Click()
    Dim a!, x0!, x1!
    a = 27  'a赋初值27
    x0 = 2
    i = 0  ’循环次数
    Do
        i = i + 1
        x1 = 2 * x0 / 3 + a / (3 * x0 * x0)
        If Abs(x1 - x0) < 0.00001 Then Exit Do
        x0 = x1
    Loop
    Print x1, i
End Sub

运行程序效果图如下：

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://wb86.com/post/76.html