VB6.0 二分法解方程

Private Sub Command1_Click() Dim H, x1, x2, m As Double x1 = Val(Text1.Text) x2 = Val(Text2.Text) If f(x1) * f(x2) < 0 Then Do m = (x1 + x2) / 2 If f(m)

>>阅读原文<<