当前位置:首页 » VB程序题 » 正文

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://www.wb98.com/post/76.html

本站文章搜索:

<< 上一篇下一篇 >>

文章搜索

Tags列表

赞助商链接

湘公网安备 43011102000514号 - ICP备08100508号