用VB画实时曲线，还优先缺陷，请大家完善。