跪求 ：用VB绘制一个正弦曲线 要求：周期 相位 振幅这三个 参数可变

Private Sub Form_Load()
Show
Move 0, -300, 90000, 60000
Scale (-9.9, 6.9)-(9.9, -6.9)
Line (-9, 0)-(9, 0)
Line (0, 60)-(0, -60)
For a = -9 To 9 Step 1
CurrentX = a
CurrentY = 0
Print a
DrawWidth = 2
PSet (a, 0), vbGreen
DrawWidth = 1
CurrentX = 0
CurrentY = a
DrawWidth = 2
PSet (0, a), vbGreen
DrawWidth = 1
If a > -6.1 And a < 6.1 Then Print a
Next
R = 3
For t = 0 To 3.14159 * 2 Step 0.01
y = R * Sin(t)
DrawWidth = 3
PSet (t, y), vbGreen
Me.Refresh
Next
End Sub
以上程序直接复制到窗体上即可。

Private Sub Command1_Click()
A = 800
B = 50
C = 1000

For x = 1 To 8000
y = A * Sin(x / 600 + B) + C
PSet (x, y)
Next
End Sub

上面的A,B,C为你要求的三个参数，曲线是直接绘制在窗体上的。