7,762
社区成员
发帖
与我相关
我的任务
分享
Option Explicit
Private Sub Command1_Click()
Dim x As Long, y As Long
For x = 0 To 360
y = 100 + 100 * Sin(x * 3.14159265 / 180)
Me.PSet (x, y), RGB(255, 0, 0)
Next
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 3
End Sub
Option Explicit
Private Sub Command1_Click()
Dim x As Long, y As Long
For x = 0 To 360
y = 100 + 10 * Sin(x * 3.14159265 / 180)
Me.PSet (x, y), RGB(255, 0, 0)
Next
End Sub
Private Sub Form_Load()
Me.AutoRedraw = True
Me.ScaleMode = 3
End Sub