7,763
社区成员
发帖
与我相关
我的任务
分享
Private Sub Command1_Click()
Const pi = 3.1415926
Dim i As Integer, j As Integer, sngx1 As Single, sngy1 As Single, sngx2 As Single, sngy2 As Single
Dim sngangle As Single, sngradius As Single, intnodes As Integer
Me.Scale (-1.5, -1.5)-(1.5, 1.5)
Cls
sngradius = 1
intnodes = 15
sngangle = 2 * pi / intnodes
For i = 1 To 15
sngx1 = sngradius * Cos(i * sngangle)
sngy1 = sngradius * Sin(i * sngangle)
For j = 1 To 15
If i <> j Then
sngx2 = sngradius * Cos(j * sngangle)
sngy2 = sngradius * Sin(j * sngangle)
Me.Line (sngx1, sngy1)-(sngx2, sngy2), vbBlue
End If
Next j
Next i
End Sub