vb的问题：用pset 画正弦函数，高手请看图！

这是因为你画的正弦曲线的横坐标太密了，所画的点都挤在一起，形成上面的图案，其实这是一种错觉，它实际上仍然是一个正弦曲线。

把曲线往左右“拉松”一些你就能看到正常的正弦曲线了，比如把：
k = 1000 * Sin(i)
改为：
k = 1000 * Sin(i / 100)
再试试看！

Private Sub Form_Click()
  pi = 3.1415926
  Form1.Scale (-4000, 4000)-(4000, -4000)
  Form1.Line (-4000, 0)-(4000, 0)
  Form1.Line (0, 4000)-(0, -4000)
  For i = -4000 To 4000
    k = 2000 * Sin(i * pi / 2000)
    Form1.PSet (i, k), vbRed
  Next
End Sub

Private Sub Form_Load()
  Form1.Height = 8000
  Form1.Width = 8000
  Form1.DrawWidth = 2
  Form1.ScaleMode = 3
End Sub