practice11_2.frm

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

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3705
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5505
   LinkTopic       =   "Form1"
   ScaleHeight     =   3705
   ScaleWidth      =   5505
   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()
 Dim r, xi, yi, xj, yj, x0, y0, aif As Single
 Cls
 r = Form1.ScaleHeight / 2
 x0 = Form1.ScaleWidth / 2
 y0 = Form1.ScaleHeight / 2
 n = 10
 aif = 3.1415926 * 2 / n
 For i = 1 To n - 1
   xi = r * Cos(i * aif) + x0
   yi = r * Sin(i * aif) + y0
   For j = i + 1 To n
     xj = r * Cos(j * aif) + x0
     yj = r * Sin(j * aif) + y0
     Line (xi, yi)-(xj, yj)
   Next j
 Next i
End Sub