搜索过以前的关于Mschart控件的帖子了,为什都没几个人能解决相关的问题呀?
顶一下先,版主,请帮忙看看:
Private Sub Command2_Click()
Dim XX#(1 To 5, 1 To 5)
For m = 1 To 5
For n = 1 To 5
XX(m, n) = Int(Rnd() * 10)
Next n
Next m
MSChart2 = XX
End Sub
这样可以绘制出来。
但是稍微改一点,就不行了:
Private Sub Command2_Click()
Dim aa%
aa = 5
Dim XX#(1 To aa, 1 To aa)
For m = 1 To 5
For n = 1 To 5
XX(m, n) = Int(Rnd() * 10)
Next n
Next m
MSChart2 = XX
End Sub