91网首页-91网页版-91网在线观看-91网站免费观看-91网站永久视频-91网站在线播放

下面給出了一個通用的函數及其用例，請參考。 <%[br]rem 首先我們設計一個showcart函數，其中[br]rem avalues 是一個數值數組[br]rem alables 是橫坐標的標號[br]rem strtitle是這個統計圖的標題[br]rem strxaxislable x軸的標簽[br]rem stryaxislable y軸的標簽[br]sub showchart(byref avalues, byref alabels, byref strtitle, byref strxaxislabel, byref stryaxislabel)[br]' 你可以隨便改變的圖形常數[br]' 單位是屏幕像素點[br]const graph_width = 450 ' 圖形寬度[br]const graph_height = 250 ' 圖形[br]const graph_border = 5 ' 坐標線寬度[br]const graph_spacer = 2 ' 統計條之間的距離[br]const table_border = 0[br]' 變量聲明[br]dim i[br]dim imaxvalue[br]dim ibarwidth[br]dim ibarheight[br]' 取得avalues最大值[br]imaxvalue = 0[br]for i = 0 to ubound(avalues)[br]if imaxvalue < avalues(i) then imaxvalue = avalues(i)[br]next 'i[br]' 計算每條圖形的寬度[br]ibarwidth = (graph_width (ubound(avalues) + 1)) - graph_spacer[br]' 開始繪圖[br]%> [br][br][br][br][br][br][br][br][br][br][br][br][br][br]

<%= strtitle %>
<%= stryaxislabel %>	[br][br][br]& nbsp; &n bsp; [br][br]& nbsp; [br][br][br][br] <%= imaxvalue %> 0 [br]	[br][br][br][br]<%[br]' 對數組所有數值進行循環，繪制條形圖![br]& nbsp; for i = 0 to ubound(avalues)[br]ibarheight = int((avalues(i) / imaxvalue) * graph_height)[br]& nbsp; &n bsp; ' 因為瀏覽器會忽略0高度的條形圖，所以用1代替![br]& nbsp; if ibarheight = 0 then ibarheight = 1[br]%>[br][br][br]<%[br]& nbsp; next 'i[br]%>[br][br][br][br][br]<% ' 檢查橫坐標數組是否有效! %>[br]<% if isarray(alabels) then %>[br][br][br]<% for i = 0 to ubound(avalues) %>[br][br][br]<% next 'i %>[br][br]<% end if %>[br] <%= alabels(i) %> [br]
		<%= strxaxislabel %>

[br]<%[br]end sub[br]%>[br]<%[br]' 一個帶有橫坐標的條形圖[br]showchart array(6, 10, 12, 18, 23, 26, 27, 28, 30, 34, 37, 45, 55), _[br]array("p1", "p2", "p3", "p4", "p5", "p6", "p7", "p8", "p9", _[br]"p10", "p11", "p12", "p13"), "連續幾個月的銷售額", "x 軸", "y 軸"[br]' 空行[br]response.write "
" & vbcrlf[br]response.write "
" & vbcrlf[br]response.write "
" & vbcrlf[br]' 構造一個由隨機數組成的數組[br]dim i[br]dim atemp(49)[br]randomize[br]for i = 0 to 49[br]atemp(i) = int((50 + 1) * rnd)[br]next 'i[br]' 由隨機數組生成的條形圖[br]showchart atemp, "這不是一個數組!", "隨機條形圖", "序號 ", "隨機數"[br]%>