pexam11_11.frm

来自「深圳大学的vb上机与教学的课件」· FRM 代码 · 共 35 行

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   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 = 3
Line (-1, 0)-(1, 0), vbBlue
Line (0, 1)-(0, -1), vbBlue
DrawWidth = 1
For i = -1 To 1 Step 0.1
    Line (i, 0.05)-(i, 0)    '画垂直刻度
Next i
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