@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