汽车动力性计算VB源代码部分代码PrivateSubCommand2_Click()'加速度曲线Label17.Caption=""Picture1.ClsPicture1.Scale(-12,3)-(125,-0.3)Picture1.Line(0,0)-(0,2.8)Picture1.Line(0,0)-(120,0)Forj=1To100Fori=1To10Picture1.Line(0,i*0.25)-(2,i*0.25)'取纵坐标刻度线Picture1.Line(i*