由点组成的正弦曲线.frm

第一次发!大家多包涵 这个简单!就是点组成的正弦曲线! 希望多提宝贵意见

VERSION 5.00
Begin VB.Form Form1 
   AutoRedraw      =   -1  'True
   Caption         =   "Form1"
   ClientHeight    =   2940
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   7140
   LinkTopic       =   "Form1"
   ScaleHeight     =   2940
   ScaleWidth      =   7140
   StartUpPosition =   3  '窗口缺省
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit
Private Sub Form_Load()
Dim X As Integer
Dim X1 As Single, Y1 As Single
Dim Dx As Single
Form1.Left = 2000
Form1.Top = 1000
Form1.Height = 3500
Form1.Width = 4450
Form1.BackColor = &H80000005
' 设置点的大小
Form1.DrawWidth = 2
ScaleMode = 6
Line (2, 26)-(74, 26)
X1 = 2: Y1 = 26
Dx = 1.8
For X = 1 To 360 Step 9
    Y1 = 26 - 24 * Sin(X * 3.1415926 / 180)
     PSet (X1, Y1)
    X1 = X1 + Dx
Next X
End Sub