VB请分别用 二分之一法则 牛顿法 利用(Function)指令求方程式 x^3-202.24x^2+1136.47x+133336.94=0求三个解,精确至10^-4 用VB程式 2005主控台应用程式 数学
网友回答
【答案】 为了这个问题我专意下载了vb2005,把vb6的问题翻译到vb2005,不是想象中的那么难翻译,你要努力啊
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x As Double, y0 As Double, y As Double, cs As Integer, x0 As Double, jie As Double
x = -50
y0 = x ^ 3 - 202.24 * x ^ 2 + 1136.47 * x + 133336.94
For x = -50 To 200
y = x ^ 3 - 202.24 * x ^ 2 + 1136.47 * x + 133336.94
If y0 * y