首先我们设计了一个showcart物权功能，其中
REM值是一个数值型数组
REM alables是横坐标的标志
REM strtitle是这个统计的标题
在REM strxaxislable X轴标签
在REM stryaxislable Y轴标签
Sub ShowChart（我的价值，ByRef aLabels，ByRef strTitle，我strxaxislabel，ByRef stryaxislabel）
您可以随意更改图形常量。
单位是屏幕像素
const graph_width = 450 图形的宽度
Const GRAPH_HEIGHT = 250 graphics
const graph_border = 5 坐标线宽度
const graph_spacer =之间统计酒吧2距离
const table_border = 0
变量声明
朦胧的我
昏暗的imaxvalue
昏暗的ibarwidth
昏暗的ibarheight
获得最大的价值
imaxvalue = 0
我= 0，UBound（值）
如果imaxvalue接下来我
计算每个图的宽度
ibarwidth =（graph_width （（UBound（值）+ 1））- graph_spacer
开始绘图
%>
cellspacing = 0 cellpadding =0>








cellspacing = 0 cellpadding =0>

>



零




cellspacing = 0 cellpadding =0>

高度
循环数组的所有值，绘制条形图！
我= 0，UBound（值）
ibarheight = int（（（avalues（我） / imaxvalue）* graph_height）
因为浏览器将忽略0条高条形图，所以用1替换它！
如果ibarheight = 0然后ibarheight = 1
%>
高度= 1 >
高度=alt>
下一个i
%>


>高度=




















端子
%>
带有水平坐标的条形图
showchart阵列（6, 10, 12，18, 23, 26，27, 28, 30，34, 37, 45，55），_
数组（）
P10
空行
响应。
vbcrlf
响应。
vbcrlf
响应。
vbcrlf
构造一个随机数数组
朦胧的我
昏暗的atemp（49）
随机化
对于我= 0比49
ATemp（我）= Int（（50 + 1）* Rnd）
下一个i
由随机数组生成的条形图
showchart atemp，这不是一个数组！
%>