用VB画函数图像

闲着无事，下午琢磨了一下用VB画函数图像。主要也就是使用PictureBox的Line方法和PSet方法，源代码如下：

Option Explicit
Dim i, j As Double
Private Sub Command1_Click()
  Picture1.Font = "times new roman"
  Picture1.FontItalic = True
  Picture1.FontSize = 10
  '设置字体
  Picture1.Scale (-100, 100)-(100, -100)
  '设置坐标轴标尺为100
  Picture1.Line (-100, 0)-(100, 0)
  Picture1.Line (95, 3)-(100, 0)
  Picture1.Line (95, -3)-(100, 0)
  Picture1.CurrentX = 90
  Picture1.CurrentY = 15
  Picture1.Print "x"
  '画X轴及箭头
  Picture1.Line (0, 100)-(0, -100)
  Picture1.Line (3, 95)-(0, 100)
  Picture1.Line (-3, 95)-(0, 100)
  Picture1.CurrentX = 5
  Picture1.CurrentY = 95
  Picture1.Print "y"
  '画Y轴及箭头
  Picture1.CurrentX = -7
  Picture1.CurrentY = 0
  Picture1.Print "O"
  '画原点
  Command2.Enabled = True
  Command3.Enabled = True
  Command1.Enabled = False
End Sub

Private Sub Command2_Click()
  For i = -100 To 100 Step 0.1
    j = -0.1 * i * i + 6 * i - 10
    Picture1.PSet (i, j), vbRed
  Next i
  '画y=-0.1x^2+6x-10的图像
End Sub

Private Sub Command3_Click()
  For i = -100 To 100 Step 0.1
    j = 100 * Sin(i * 3.1416 / 180)
    Picture1.PSet (i, j), vbBlue
  Next i
  '画y=100sinx的图像
End Sub