说明:Dim A As Long, B As Long, C As Long
For i = 0 To Text1(2).Text - 1 '多少组 ZuGao
'Picture1.Line (Pi1X, ZuGao * i + Pi1Y)-(Pi2X, ZuGao * i + Pi1Y), vbRed
'添加组线
Dim Mm As Long: Mm = IIf(i = 0, ShuoJin, 0)
A = Pi1X + Mm
B = ZuGao * i +
<weixin_45263359> 上传 | 大小:214kb