下载地址：
下载地址1（本站为飞网专业下载站，域名：down.cfei.net）
资源简介：
给出部分代码,觉得好的话就支持下:<% Dim a, b, c, x x=100 Redim a(x) Redim b(x) Redim c(x) For i=0 to x a(i)="" 'No space for any x-axes titles! b(i)=Abs(Sin(i/32.0))*9 c(i)=Abs(Cos(i/32.0))*9 Next Dim objGraph Set objGraph = New PureAspGraph Call objGraph.setYAxesTitle("Abs(Sin(i/64.0))*9 And Abs(Cos(i/32.0))*9") Call objGraph.setTitle("Very detailed demonstration") 'Adds data Call objGraph.setData(a, b) Call objGraph.addData(c) 'Adds descriptions Call objGraph.addLabel("Sinus data") Call objGraph.a
飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。
