心脏线程序(VB6.0代码编写)\'注释：画抛物线 \'清除picture1内的图形 Picture1.Cls \'Scale方法设定用户坐标系，坐标原点在Picture1中心 Picture1.ScaleMode = 0 Picture1.ScaleMode = 3 Picture1.Scale (-20, 20)-(20, -20) \'设置绘线宽度 Picture1.DrawWidth = 1 \'绘制坐标系的X轴及箭头线 Picture1.Line (-20, 0)-(20, 0),