关于VB的问题，谢谢了

Private Sub Form_Click()
Cls
Const PI = 3.1415926
Form1.Scale (-8, 2)-(8, -2)
Form1.DrawWidth = 1
Form1.ForeColor = vbBlack
Form1.Line (-8, 0)-(8, 0)
Form1.Line (0, 2)-(0, -2)
For i = -2 * PI To 2 * PI Step PI / 2
Line (i, 0.1)-(i, 0)
If Abs(i) > 1 Then Print Round(i / PI, 1) & "π"
Next
For i = -1 To 1 Step 0.5
Line (0, i)-(0.1, i)
Print i
Next

Form1.DrawWidth = 3
Form1.CurrentX = -2 * PI
Form1.CurrentY = Sin(-2 * PI)
Form1.ForeColor = vbRed
For i = -2 * PI To 2 * PI Step 0.01
Line -(i, Sin(i))
Next
End Sub

Option Explicit

Private Sub Form_Activate()
Dim i As Integer
Me.WindowState = 2
Me.Scale (-8, 2)-(8, -2)
Line (-8, 0)-(8, 0)
Line (0, -2)-(0, 2)
Me.DrawWidth = 2
For i = -8 To 8