Question

求VB大佬解一个编程题，如果可以的话最好截图啊，因为太菜了

用牛顿切线方程求方程f(x)=5x^3+2x^2-12x-16=0（其中^表示幂运算）在区间[1,2]上的近似突根r，迭代初值自选，精确到0.0001（提示：计算公式为：x=x-f(x)/f’(x)）

Answer 1

Private Sub Form_Activate()

  Randomize

  Dim r As Single, t As Single

 漏明清 r = 1 + Rnd

  Do

    t = r

 返前   r = r - (5 * r ^ 3 + 2 * r ^ 2 - 12 * r - 16) / (15 * r ^ 2 + 4 ^ r - 12)

  Loop Until Abs(r - t) <槐咐 10 ^ (-4)

  Label1.Caption = "r = " + CStr(r)

End Sub