Private Sub Command1_Click()
A = Val(Text1.Text) B = Val(Text2.Text) C = Val(Text3.Text) D = Val(Text4.Text) E = Val(Text5.Text) F = Val(Text6.Text) G = Val(Text7.Text) H = Val(Text8.Text) x=0 y=0
Dim i As Integer Dim x, y As Double For i = 1 To 12 fx1 = (x ^ 2) - (10 * x) + (y ^ 2) + 8 fx2 = (x * (y ^ 2)) + x - (10 * y) + 8 List1.AddItem x List2.AddItem y x = ((x ^ 2) + (y ^ 2) + 8) / 10 y = ((x * (y ^ 2)) + x + 8) / 10 Error = (((x - X1) ^ 2) + ((y - Y1) ^ 2)) ^ 0.5 List3.AddItem Error X1 = x Y1 = y Next i
End Sub
https://www.youtube.com/watch?v=yeygkb6-Jyk&vl=en https://www.youtube.com/watch?v=T70_E4w1azw https://www.youtube.com/watch?v=a4s0ZhWCLP4 https://www.youtube.com/watch?v=69Sj5yWHCGs https://www.youtube.com/watch?v=kj3Ed0503Uo