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 +