7、faj = m()    '函数的返回值是数组的时候，这样写对么？
到底哪个是变量，哪个是函数？

8、
Public Function cs(t() As Integer)   用“公共”的有什么好处？“私有的”就不行吗？
    Dim k%(2), Oi%(2)
    For i = 0 To 2
        k(i) = 0
        For j = 0 To 2
           k(i) = k(i) + t(i, j)
        Next j
        Oi(i) = k(i)
    Next i
    cs = Oi(i)     就算不越界，你有能如何？一共有三行，，cs到底要存储那一移行的和？
End Function

9、
Public Function xy(t() As Integer)  一样！
    Dim l%(2), Aj%(2)
    For j = 0 To 2
        l(j) = 0
        For i = 0 To 2
            l(j) = l(j) + t(i, j)
        Next i
        Aj(j) = l(j)        aj和l有什么分别？
    Next j
    xy = Aj(j)              一样要越界！一样没有用。
End Function

10、
你把i，j都声明成了全局变量，
    For j = 0 To 2
        m(j) = xy(t%()) / gha(j)
    Next j
调用XY函数
    For j = 0 To 2
        l(j) = 0
        For i = 0 To 2
            l(j) = l(j) + t(i, j)
        Next i
        Aj(j) = l(j)
    xy = Aj(j)
    Next j
返回的时候，j=3了！所以gha(j)越界！

一，上面只是写的自定义函数部分的程序，主程序没往上写，所以这部分函数不是没有被调用~~
二，“在循环外引用循环变量，会导致不可知问题”这个我还真不知道，因为特殊需要。我才刚自学的VB，所以还要大家多帮助啊~
三，cs  xy函数返回的（或者是你说的 存储）都是三个数，各行的和和各列的和，都是数组啊~~

四，[color=000000][color=000000]你把i，j都声明成了全局变量，
    For j = 0 To 2
        m(j) = xy(t%()) / gha(j)
    Next j
调用XY函数
    For j = 0 To 2
        l(j) = 0
        For i = 0 To 2
            l(j) = l(j) + t(i, j)
        Next i
        Aj(j) = l(j)
    xy = Aj(j)
    Next j
返回的时候，j=3了！所以gha(j)越界！[/color][/color] 
我还不是很明白啊，你能告诉我该怎么改才正确么？
我已经没有办法了，再谢谢~~

难怪大家看不懂你的程序，你为什么不发全呢？