日韩欧美国产精品免费一二-日韩欧美国产精品亚洲二区-日韩欧美国产精品专区-日韩欧美国产另-日韩欧美国产免费看-日韩欧美国产免费看清风阁

下面給出了一個通用的函數(shù)及其用例，請參考。 <%[br]rem 首先我們設(shè)計一個showcart函數(shù)，其中[br]rem avalues 是一個數(shù)值數(shù)組[br]rem alables 是橫坐標(biāo)的標(biāo)號[br]rem strtitle是這個統(tǒng)計圖的標(biāo)題[br]rem strxaxislable x軸的標(biāo)簽[br]rem stryaxislable y軸的標(biāo)簽[br]sub showchart(byref avalues, byref alabels, byref strtitle, byref strxaxislabel, byref stryaxislabel)[br]' 你可以隨便改變的圖形常數(shù)[br]' 單位是屏幕像素點[br]const graph_width = 450 ' 圖形寬度[br]const graph_height = 250 ' 圖形[br]const graph_border = 5 ' 坐標(biāo)線寬度[br]const graph_spacer = 2 ' 統(tǒng)計條之間的距離[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]' 對數(shù)組所有數(shù)值進(jìn)行循環(huán)，繪制條形圖![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]<% ' 檢查橫坐標(biāo)數(shù)組是否有效! %>[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]' 一個帶有橫坐標(biāo)的條形圖[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ù)幾個月的銷售額", "x 軸", "y 軸"[br]' 空行[br]response.write "
" & vbcrlf[br]response.write "
" & vbcrlf[br]response.write "
" & vbcrlf[br]' 構(gòu)造一個由隨機數(shù)組成的數(shù)組[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]' 由隨機數(shù)組生成的條形圖[br]showchart atemp, "這不是一個數(shù)組!", "隨機條形圖", "序號 ", "隨機數(shù)"[br]%>