菜单切换
FACESOHO知行者
心灵
记录
远方
赞赏工具
源代码：
点击运行
保存
<span class="marked"> @Code <br> Dim myChart as new Chart(600,400)<br> Dim xarr(4)<br> xarr(0)="Peter"<br> xarr(1)="Andrew"<br> xarr(2)="Julie"<br> xarr(3)="Mary"<br> xarr(4)="Dave"<br> Dim yarr(4)<br> yarr(0)="2"<br> yarr(1)="6"<br> yarr(2)="4"<br> yarr(3)="5"<br> yarr(4)="3"<br> myChart.AddTitle("Employees") <br> myChart.AddSeries("Employees","column",,,,,xarr,,yarr,,) <br> myChart.Write()<br> End Code<br> </span>
运行结果
