Private Sub Form_Click()
Const PI = 3.14159265
Dim i As Integer, j As Integer
Dim sngX1 As Single, sngY1 As Single
Dim sngX2 As Single, sngY2 As Single
Dim sngAngle As Single
Dim sngRadius As Single
Dim intNodes As Integer
Form1.Scale (-1.5, -1.5)-(1.5, 1.5)
Cls
sngRadius = 1
intNodes = 15
sngAngle = 2 * PI / intNodes
For i = 1 To intNodes
sngX1 = sngRadius * Cos(i * sngAngle)
sngY1 = sngRadius * Sin(i * sngAngle)
For j = 1 To intNodes
If i <> j Then
sngX2 = sngRadius * Cos(j * sngAngle)
sngY2 = sngRadius * Sin(j * sngAngle)
Form1.Line (sngX1, sngY1)-(sngX2, Y2), vbRed
End If
Next
Next

End Sub






                                                           新手多多照顾

没看懂你要干什么。

加油歌图片框picture1,然后按我给你修改的代码运行
Private Sub Form_Click()
  
Dim i As Integer, j As Integer
Dim sngX1 As Single, sngY1 As Single
Dim sngX2 As Single, sngY2 As Single
Dim sngAngle As Single
Dim sngRadius As Single
Dim intNodes, PI As Integer
PI = 3.14159265
 Picture1.Scale (-200, -200)-(200, 200)
Cls
sngRadius = 150
intNodes = 15
sngAngle = 2 * PI / intNodes
For i = 1 To intNodes
sngX1 = sngRadius * Cos(i * sngAngle)
sngY1 = sngRadius * Sin(i * sngAngle)
For j = 1 To intNodes
  If i <> j Then
sngX2 = sngRadius * Cos(j * sngAngle)
sngY2 = sngRadius * Sin(j * sngAngle)
Picture1.Line (sngX1, sngY1)-(sngX2, Y2), QBColor(2)
 End If
Next
Next

End Sub
看能否满意哦

好怀念啊 这个程序貌似高中的信息技术书里面有。。