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

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

Function Trans() As Variant

Dim x As Long
Dim y As Long
Dim z As Long
Dim Txyz(3, 3) As Long

x = Val(Text1.Text)
y = Val(Text2.Text)
z = Val(Text3.Text)

Txyz(0, 0) = 1
Txyz(0, 1) = 0
Txyz(0, 2) = 0
Txyz(0, 3) = x

Txyz(1, 0) = 0
Txyz(1, 1) = 1
Txyz(1, 2) = 0
Txyz(1, 3) = y

Txyz(2, 0) = 0
Txyz(2, 1) = 0
Txyz(2, 2) = 1
Txyz(2, 3) = z

Txyz(0, 0) = 0
Txyz(3, 1) = 0
Txyz(3, 2) = 0
Txyz(3, 3) = 1

Trans = Txyz

End Function

Function RotX() As Variant

Dim XR As Long
Dim Rx(3, 3) As Long

XR = Val(Text4.Text)

Rx(0, 0) = 1
Rx(0, 1) = 0
Rx(0, 2) = 0
Rx(0, 3) = 0

Rx(1, 0) = 0
Rx(1, 1) = Cos(XR)
Rx(1, 2) = -Sin(XR)
Rx(1, 3) = 0

Rx(2, 0) = 0
Rx(2, 1) = Sin(XR)
Rx(2, 2) = Cos(XR)
Rx(2, 3) = 0

Rx(0, 0) = 0
Rx(3, 1) = 0
Rx(3, 2) = 0
Rx(3, 3) = 1

RotX = Rx

End Function

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 = T1(j)

Next

End Sub

Private 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 = T1(j)

Next

End Sub
Private Sub Form_Load()
Text1.Text = "10"
Text2.Text = "20"
Text3.Text = "30"
Text4.Text = "45"
Text5.Text = "45"
Text6.Text = "45"
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""

End Sub

------解决方案--------------------
楼主是要干嘛呢?????????
------解决方案--------------------
好晕。。。
------解决方案--------------------

VB code


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 Sub

Private 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

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

相关推荐