下载地址：
下载地址1（本站为飞网专业下载站，域名：down.cfei.net）
资源简介：
给出部分代码:'画X柱子dim PolyLine1,PolyLine2For i = 1.5 To uboundY+1 'step 0.5 xRect = (i-1)*allX\uboundY height1 = -allY * arr(1,int(i)) / arrMax height2 = -allY * arr(2,int(i)) / arrMax 'if int(i)<>i then'画柱子 v1 = arr(1,int(i)) v2 = arr(2,int(i)) call printRect(v1,color1,thickness,height1,-height1,xRect-thickness) call printRect(v2,color2,thickness,height2,-height2,xRect) call printShape(v1,-height1-15,xRect-len(v1)*8) call printShape(v2,-height2-15,xRect+2) 'end if 'printLine j = int(i) if j 飞网下载站，免费下载共享资料，内容涉及教育资源、专业资料、IT资源、娱乐生活、经济管理、办公文书、游戏资料等。
