@Code
Dim myChart as new Chart(600,400) ' 创建一个名为 myChart 的新图表,尺寸为 600x400
Dim xarr(4) ' 声明一个名为 xarr 的数组,大小为 5 (索引从 0 到 4)
xarr(0)="Peter" ' 将 "Peter" 赋值给 xarr 数组的第一个元素 (索引 0)
xarr(1)="Andrew" ' 将 "Andrew" 赋值给 xarr 数组的第二个元素 (索引 1)
xarr(2)="Julie" ' 将 "Julie" 赋值给 xarr 数组的第三个元素 (索引 2)
xarr(3)="Mary" ' 将 "Mary" 赋值给 xarr 数组的第四个元素 (索引 3)
xarr(4)="Dave" ' 将 "Dave" 赋值给 xarr 数组的第五个元素 (索引 4)
Dim yarr(4) ' 声明一个名为 yarr 的数组,大小为 5 (索引从 0 到 4)
yarr(0)="2" ' 将 "2" 赋值给 yarr 数组的第一个元素 (索引 0)
yarr(1)="6" ' 将 "6" 赋值给 yarr 数组的第二个元素 (索引 1)
yarr(2)="4" ' 将 "4" 赋值给 yarr 数组的第三个元素 (索引 2)
yarr(3)="5" ' 将 "5" 赋值给 yarr 数组的第四个元素 (索引 3)
yarr(4)="3" ' 将 "3" 赋值给 yarr 数组的第五个元素 (索引 4)
myChart.AddTitle("Employees") ' 为 myChart 图表添加标题 "Employees" (员工)
myChart.AddSeries("Employees","column",,,,,xarr,,yarr,,) ' 向 myChart 图表添加一个名为 "Employees" 的系列,图表类型为柱状图 (column),使用 xarr 作为 X 轴数据,yarr 作为 Y 轴数据
myChart.Write() ' 将图表输出
End Code