level 1
Dim a(1 To 3, 1 To 2) As Integer
Private Sub Command1_Click()
Form1.Caption = "请把文本框的mutiline属性设为true"
Dim i As Integer
Dim j As Integer
Dim buf As String
buf = ""
For i = 1 To 3
For j = 1 To 2
buf = buf & a(i, j) & vbTab
Next
buf = buf & vbCrLf
Next
Text1.Text = buf
buf = ""
For i = 1 To 2
For j = 1 To 3
buf = buf & a(j, i) & vbTab
Next
buf = buf & vbCrLf
Next
Text2.Text = buf
End Sub
Private Sub Form_Load()
Form1.Caption = "3*2矩阵转置demo"
a(1, 1) = 1
a(1, 2) = 3
a(2, 1) = 12
a(2, 2) = 24
a(3, 1) = 35
a(3, 2) = 79
End Sub
2013年05月05日 06点05分