一道VB程序题 急哦！！

来源：百度知道 编辑：UC知道 时间：2024/05/10 23:08:11
单击窗体时在窗体上绘制SINX曲线，X取范围为[-360，360]，线宽为2，曲线为红色，坐标轴为黑色，X轴每隔30度画一刻度线，

Private Sub Form_Load()
Const PI = 3.1415926
Width = 7200
Height = 3000
AutoRedraw = True
ScaleMode = 0
ForeColor = vbBlack
Scale (-2 * PI, 1)-(2 * PI, -1)
DrawWidth = 2
Line (-2 * PI, 0)-(2 * PI, 0)
Line (0, 1)-(0, -1)
For i = -360 To 360 Step 30
Line (i * PI / 180, 0.05 * IIf(i Mod 90 = 0, 2, 1))-(i * PI / 180, -0)
If i Mod 90 = 0 Then Print i
Next
ForeColor = vbRed
For i = -360 To 360
Line (i * PI / 180, Sin(i * PI / 180))-((i + 1) * PI / 180, Sin((i + 1) * PI / 180))
Next
End Sub

同问。