Question

请问vb怎么画散点图并且拟合出来曲线，进而得出曲线方程。谢谢。求程

请问vb怎么画散点图并且拟合出来曲线，进而得出曲线方程。谢谢。求程序哦

Answer 1

Const π As Double = 3.1415926
Private Sub Form_Load()
  Picture1.AutoRedraw = True
  Picture1.Scale (-π, 1 + 0.2)-(π, -1 - 0.2)
  Picture1.Line (-π, 0)-(π, 0), vbBlue
  Picture1.Line (0, -1.2)-(0, 1.2), vbBlue
  For i = -π To π Step 0.0001
    Picture1.PSet (i, Sin(4 * i)), vbRed
  Next i
End Sub