VB 实例 使用数据库 根据数组显示条形图

vb 实例 使用数据库 根据数组显示条形图

@code 
dim mychart as new chart(600,400)
dim xarr(4)
xarr(0)="peter"
xarr(1)="andrew"
xarr(2)="julie"
xarr(3)="mary"
xarr(4)="dave"
dim yarr(4)
yarr(0)="2"
yarr(1)="6"
yarr(2)="4"
yarr(3)="5"
yarr(4)="3"
mychart.addtitle("employees") 
mychart.addseries("employees","column",,,,,xarr,,yarr,,) 
mychart.write()
end code

相关文章