pexam11_9.frm

深圳大学的vb上机与教学的课件

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "单击窗体绘制星形曲线"
   ClientHeight    =   2115
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3180
   LinkTopic       =   "Form1"
   ScaleHeight     =   2115
   ScaleWidth      =   3180
   StartUpPosition =   2  '屏幕中心
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
  Scale (-1, -1)-(1, 1)
  DrawWidth = 2
  ForeColor = vbRed
  For t = 0 To 2 * 3.1415926 Step 0.001
    x = Sin(2 * t) * Cos(t)
    y = Sin(2 * t) * Sin(t)
    PSet (x, y)
  Next t
End Sub