心脏线程序(VB6.0代码编写)

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