VB新人，请求帮忙如何带进参数 - 编程论坛

wds12018-05-18 13:09

Private Sub Command1_Click()
  Call sum(100, 20, 30, 40, 5)
End Sub

Public Sub sum(k1, k2, k3, k4, r1)
  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

ZHRXJR2018-05-20 09:27

程序代码：

'程序中k1，为骨架外经   k2为骨架半径    k3为骨架绕宽   k4为骨架绕径     r1为圆半径
Dim k1 As Single, k2 As Single, k3 As Single, k4 As Single, r1 As Single

Private Sub Command1_Click()
k2 = Val(Text4.Text): k3 = Val(Text3.Text): k4 = Val(Text2.Text): r1 = Val(Text1.Text): k1 = 2 * k2   '在这里引入数据
'根据你的图片文本框，设置的4个文本框，估计你需要的是这个吧
'下面就是绘制图形的代码了，不知对不对，没有测试
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

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
End Sub