求教vb的mschart画图问题
编了个把数导入到mschart中画图的程序,应该前面的0102,0304等长柱子部分应该是横坐标的,后面的数字2,等才是要显示的数值。我输入的是一个数组arrayz(1t...
编了个把数导入到mschart中画图的程序,应该前面的0102,0304等长柱子部分应该是横坐标的,后面的数字2,等才是要显示的数值。我输入的是一个数组arrayz(1 to 25,1 to 3),正确的话应该第一列是横坐标,不会作为数据显示出来,但是我的显示出来了,不知道是怎么回事,求大神指教。
具体我的代码形式是:
Dim arrayz(1 To 25, 1 To 3)arrayz(1, 1) = CStr("0102")arrayz(1, 2) = 5arrayz(1, 3) = 3arrayz(2, 1) = CStr("0304")arrayz(2, 2) =2arrayz(2, 3) =1arrayz(3, 1) = CStr("0506")arrayz(3, 2) = 7arrayz(3, 3) = 3arrayz(4, 1) = CStr("0708")arrayz(4, 2) = 3arrayz(4, 3) =1arrayz(5, 1) = CStr("0910")arrayz(5, 2) = 6arrayz(5, 3) = 3arrayz(6, 1) = CStr("1112")arrayz(6, 2) = 3arrayz(6, 3) =2arrayz(7, 1) = CStr("1314")arrayz(7, 2) =7arrayz(7, 3) =23arrayz(8, 1) = CStr("1516")arrayz(8, 2) = 4arrayz(8, 3) =2arrayz(9, 1) = CStr("1718")arrayz(9, 2) = 2arrayz(9, 3) = 1arrayz(10, 1) = CStr("1920")arrayz(10, 2) = 2arrayz(10, 3) = 1arrayz(11, 1) = CStr("2122")arrayz(11, 2) = 2arrayz(11, 3) = 0arrayz(12, 1) = CStr("2324")arrayz(12, 2) = 6arrayz(12, 3) = 2arrayz(13, 1) = CStr("2526")arrayz(13, 2) = 4arrayz(13, 3) =1arrayz(14, 1) = CStr("2728")arrayz(14, 2) = 3arrayz(14, 3) = 1arrayz(15, 1) = CStr("2930")arrayz(15, 2) = 2arrayz(15, 3) = 0arrayz(16, 1) = CStr("3132")arrayz(16, 2) = 4arrayz(16, 3) =2arrayz(17, 1) = CStr("3334")arrayz(17, 2) =5arrayz(17, 3) = 1arrayz(18, 1) = CStr("3536")arrayz(18, 2) = 4arrayz(18, 3) = 1arrayz(19, 1) = CStr("3738")arrayz(19, 2) = 7arrayz(19, 3) =3arrayz(20, 1) = CStr("3940")arrayz(20, 2) = 4arrayz(20, 3) = 2arrayz(21, 1) = CStr("4142")arrayz(21, 2) = 5arrayz(21, 3) = 2arrayz(22, 1) = CStr("4344")arrayz(22, 2) = 4arrayz(22, 3) =1arrayz(23, 1) = CStr("4546")arrayz(23, 2) = 3arrayz(23, 3) = 1arrayz(24, 1) = CStr("4748")arrayz(24, 2) = 8arrayz(24, 3) = 2arrayz(25, 1) = CStr("4950")arrayz(25, 2) = 4arrayz(25, 3) = 2
MSChart1.ChartData = arrayz 展开
具体我的代码形式是:
Dim arrayz(1 To 25, 1 To 3)arrayz(1, 1) = CStr("0102")arrayz(1, 2) = 5arrayz(1, 3) = 3arrayz(2, 1) = CStr("0304")arrayz(2, 2) =2arrayz(2, 3) =1arrayz(3, 1) = CStr("0506")arrayz(3, 2) = 7arrayz(3, 3) = 3arrayz(4, 1) = CStr("0708")arrayz(4, 2) = 3arrayz(4, 3) =1arrayz(5, 1) = CStr("0910")arrayz(5, 2) = 6arrayz(5, 3) = 3arrayz(6, 1) = CStr("1112")arrayz(6, 2) = 3arrayz(6, 3) =2arrayz(7, 1) = CStr("1314")arrayz(7, 2) =7arrayz(7, 3) =23arrayz(8, 1) = CStr("1516")arrayz(8, 2) = 4arrayz(8, 3) =2arrayz(9, 1) = CStr("1718")arrayz(9, 2) = 2arrayz(9, 3) = 1arrayz(10, 1) = CStr("1920")arrayz(10, 2) = 2arrayz(10, 3) = 1arrayz(11, 1) = CStr("2122")arrayz(11, 2) = 2arrayz(11, 3) = 0arrayz(12, 1) = CStr("2324")arrayz(12, 2) = 6arrayz(12, 3) = 2arrayz(13, 1) = CStr("2526")arrayz(13, 2) = 4arrayz(13, 3) =1arrayz(14, 1) = CStr("2728")arrayz(14, 2) = 3arrayz(14, 3) = 1arrayz(15, 1) = CStr("2930")arrayz(15, 2) = 2arrayz(15, 3) = 0arrayz(16, 1) = CStr("3132")arrayz(16, 2) = 4arrayz(16, 3) =2arrayz(17, 1) = CStr("3334")arrayz(17, 2) =5arrayz(17, 3) = 1arrayz(18, 1) = CStr("3536")arrayz(18, 2) = 4arrayz(18, 3) = 1arrayz(19, 1) = CStr("3738")arrayz(19, 2) = 7arrayz(19, 3) =3arrayz(20, 1) = CStr("3940")arrayz(20, 2) = 4arrayz(20, 3) = 2arrayz(21, 1) = CStr("4142")arrayz(21, 2) = 5arrayz(21, 3) = 2arrayz(22, 1) = CStr("4344")arrayz(22, 2) = 4arrayz(22, 3) =1arrayz(23, 1) = CStr("4546")arrayz(23, 2) = 3arrayz(23, 3) = 1arrayz(24, 1) = CStr("4748")arrayz(24, 2) = 8arrayz(24, 3) = 2arrayz(25, 1) = CStr("4950")arrayz(25, 2) = 4arrayz(25, 3) = 2
MSChart1.ChartData = arrayz 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询