XY散点图公式
Excel有个功能，选中两列数据，可以生成XY散点图。现在VB中输入数据，生成XY散点图，
dim a(1 to 5,1 to 2)
a(1,1)=val(text1)
a(2,1)=val(text3)
a(3,1)=val(text5)
a(4,1)=val(text7)
a(5,1)=val(text9)
a(1,2)=val(text2)
a(2,2)=val(text4)
a(3,2)=val(text6)
a(4,2)=val(text8)
a(5,2)=val(text10)
MSChart1.ChartData = a
MSChart1.chartType = VtChChartType2dXY
