空白五线谱生成.rar

DimAAsLong,BAsLong,CAsLong Fori=0ToText1(2).Text-1'多少组ZuGao 'Picture1.Line(Pi1X,ZuGao*i+Pi1Y)-(Pi2X,ZuGao*i+Pi1Y),vbRed '添加组线 DimMmAsLong:Mm=IIf(i=0,ShuoJin,0) A=Pi1X+Mm B=ZuGao*i+Pi1Y C=ZuGao*i+HangGao*(Text1(0).Text