Const Pi = 3.14159Dim i As DoublePicture1.Scale (-2 * Pi, 1)-(2 * Pi, -1)'这个是定义坐标系Picture1.Line (-2 * Pi, 0)-(2 * Pi, 0)Picture1.Line (0, -1)-(0, 1)Picture1.CurrentX = -2 * PiPicture1.CurrentY = 0For i = -2 * Pi To 2 * Pi Step 0.1
Picture1.Line -(i, Sin(i))Next |
|