どうやってK線図を作りますか?


<%@Language=VBIScript%><%Resonse.Buffer=true Response.Expires=0 Resonse.Expires=0 Response.Expires Absolution=now()-1 Response.Addheader“cache”、“prvate”Resonse.Addheader“prage”DOCTYPE.PUBLIC"-//W 3 C//Dtd)4.0 Transitional/EN"<>html<>body>       

                      Sub Window_OnLoad()Dim categories(4)Dim valuesopen(4)、valuesclose(4)、valueshigh(4)、valueslow(4)    categories(0)=「17/10/2001」    categories(1)=「18/10/2001」    categories(2)=「19/10/2001」    categories(3)=「20/10/2001」という文字列配列を作成し、分類を示します。    ChartSpace 1.Clear    ChartSpace 1.harts.Add    Set c=ChartSpace 1.connts ChartSpace 1.cype=c.cChartTypt Stock OHLC'は、ワークエリアに既に存在している内容をクリアして、新しいものを追加します。    ' グラフにserieを追加します。    ChartSpace 1.Charts(0).SeriesCollection.AddreDim values(4,4)valuesopen(0)=10 valuesopen(1)=18 valuesopen(2)=9 valuesopen(3)=16 valuesclose(0)=16 valuesclose(1)=21 valuesclose(2)=11 valuesclose(3)=17 valuesclose(3)=17 values highighighiggggggg==17 values(0=17 values(0=17 valusssvalusssvalusssvalussssssssvalusssvalualalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalalal= 9 valueslow(3)=11 ChartSpace 1.hard(0).SeriesCollection(0).Caption=「Ativo X」ChSpace 1.Chiharts(0).SeriesCollection(0).SetsData c.hDimCategories,c.ccccccDataLiteral,categoriesChartSpace 1.harts(0).SeriesCollection(0).SetsDats.ccDiamOpenValalalalalts.ccccccDiscscscscscscscscscscscOpenSpalalalalececececececectrtrtrtrtrtrtrtrecececececececectttttttttttttCollectrtrtrtrtracacacacacacacts.ccccccccccccchData Literal、valueshigh ChartSpace 1.Clash(0).SeriesCollection(0).SetsData c.cDimLowValues,c.cData Literal,valueslowChartSpace 1.SeriesCollection(0).Sets.SeriesCollection(0)    ChartSpace 1.hard(0).HasLegend=True    ChartSpace 1.charts(0).Axes(c.chAxis PositionLeft).MajorrUnit=1'は、線図を説明しています。座標軸は左からパーセンテージで表示されています。10%ごとの間隔でEnd Sub  '線図の総幅.
1>