dim str1() as string = {"项目1","项目2",...}
Series.Length = str1.length \'新增图系包括10个数据点Dim t As Table = Tables("统计表1")
For i As integer = 0 to str1.length -1 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = t.current(str1(i)) \'垂直坐标用随机数生成
Chart.AxisX.SetValueLabel(i, str1(i))
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示