Question

怎么用VB画函数图像

Answer 1

那个你总得有个函数来画呀。你出一个函数我上代码

下面上一个正弦函数的代码，其余的你也可以类推

Private Sub Command1_Click()
Dim jd As Double
Dim x As Double
Dim y As Double
Me.Picture1.Scale (-10, 10)-(360, -10)
Me.Picture1.Line (-10, 0)-(100, 0)


For i = 1 To 360
  x = i
  jd = i * 3.14 / 180
  y = 5 * Sin(jd)
  Me.Picture1.PSet (x, y)
Next i
  
End Sub

Private Sub Form_Load()
Me.Width = 16000
Me.Height = 12000
Me.Picture1.Height = 8200
Me.Picture1.Width = 11145
End Sub

Answer 2

就是画点，由点连成线！