求助，，，在文本框里显示，函数返回的数组，
求助，，，在文本框里显示，函数返回的数组，
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
[解决办法]
楼主是要干嘛呢?????????
[解决办法]
好晕。。。
[解决办法]
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) NextEnd 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) NextEnd Sub
