正弦函数图像代码

新建工程，设置两个命令按钮控件：Command1和Command2，输入代码。将以**下代码拷贝到VB6.0代码窗口即可。

*************************************************************

*************************************************************

Private Sub Command1_Click()

Dim x As Single

Dim y As Single

Dim i As single

Form1.Scale (-10, 5)-(10, -5)

Line (-10, 0)-(10, 0)

Line (0, 5)-(0, -5)

For x = -2 * 3.14 To 2 * 3.14 Step 0.01

y = Sin(x)

PSet (x, y), vbRed

For i=1 to 1000000

i=i+1

Next i

Next x

End Sub

Private Sub Command2_Click()

Form1.Cls

End Sub