Private Sub Form_Load()
Dim m%
For m = 0 To k4 / 2 - k2 Step 2 * r1 * (3 ^ 0.5)
    Y = m
Dim n%
For n = 0 To k3 Step 2 * r1
   X = n
Circle (X + 50 + r1, -Y + 100 - k2 - r1), r1
Circle (X + 50 + 2 * r1, -Y + 100 - k2 - r1 - r1 * (3 ^ 0.5)), r1
Circle (X + 50 + r1, -Y + 100 + k2 + r1), r1
Circle (X + 50 + 2 * r1, -Y + 100 + k2 + r1 + r1 * (3 ^ 0.5)), r1
Next n
Next m

Line (50, 100)-Step(50, 100 - k1 / 2)
Line -Step(45, 100 - k1 / 2)
Line -Step(45, 100 + k1 / 2)
Line -Step(50, 100 + k1 / 2)
Line -Step(50, 100)
Line (50, 100 - k2)-Step(50 + k3, 100 - k2)
Line (50, 100 + k2)-Step(50 + k3, 100 + k2)
Line (50 + k3, 100)-Step(50 + k3, 100 - k1 / 2)
Line -Step(55 + k3, 100 - k1 / 2)
Line -Step(55 + k3, 100 + k1 / 2)
Line -Step(50 + k3, 100 + k1 / 2)
Line -Step(50 + k3, 100)

End Sub



程序中k1，为骨架外经   k2为骨架半径    k3为骨架绕宽   k4为骨架绕径     r1为圆半径