求助，，，在文本框里显示，函数返回的数组，

Question

本帖最后由 jsking13 于 2011-12-14 00:04:12 编辑

Answer 1

Private Sub Command1_Click()
    Dim i As Long
    Dim j As Integer
    Dim T1(3, 3) As Long
    
    T1() = Trans(i)
    For j = 0 To UBound(T1)
        text7.Text = text7.Text & vbCrLf & T1(j)
    Next
End SubPrivate Sub Command2_Click()
    Dim i As Long
    Dim j As Integer
    Dim T1(3, 3) As Long
    
    T1() = RotX(i)
    For j = 0 To UBound(T1)
        TEXT8.Text = TEXT8.Text & vbCrLf & T1(j)
    Next
End Sub楼主是要这个！

Answer 2

3 楼的，谢谢是这个，嘿嘿，RotX 函数和，Trans 函数，这两个函数的功能就取text的值，在函数里计算，把计算结果以数组（矩阵）的形式输出，这样我可以对这个数组（矩阵）进行做运算，，    T1() = Trans(i)但是，用3楼的程序这个 T1（）数组怎么就提示不能给数组赋值呢，