2024年4月4日发(作者：)

一、先看个小例子

Private Sub Form_Load()

Dim MyData(20, 1) As Double

'-----x轴坐标值-----Y轴坐标值----------

MyData(0, 0) = 0: MyData(0, 1) = 180 '本句代表了：第一点数据的X轴坐标为0，Y轴

坐标为180

MyData(1, 0) = 6: MyData(1, 1) = 60

MyData(2, 0) = 8: MyData(2, 1) = 60

MyData(3, 0) = 11: MyData(3, 1) = 0

MyData(4, 0) = 16: MyData(4, 1) = 0

MyData(5, 0) = 19: MyData(5, 1) = 60

MyData(6, 0) = : MyData(6, 1) = 60

MyData(7, 0) = : MyData(7, 1) = 0

MyData(8, 0) = : MyData(8, 1) = 60

MyData(9, 0) = : MyData(9, 1) = 60

MyData(10, 0) = : MyData(10, 1) = 0

MyData(11, 0) = : MyData(11, 1) = 0

MyData(12, 0) = : MyData(12, 1) = 60

MyData(13, 0) = : MyData(13, 1) = 0

MyData(14, 0) = : MyData(14, 1) = 0

MyData(15, 0) = : MyData(15, 1) = 0

MyData(16, 0) = : MyData(16, 1) = 180

MyData(17, 0) = : MyData(17, 1) = 270

MyData(18, 0) = : MyData(18, 1) = 270

MyData(19, 0) = : MyData(19, 1) = 180

MyData(20, 0) = : MyData(20, 1) = 180

'波形图外观设置