求救求救
vb吧
全部回复
仅看楼主
level 1
白色腰肌 楼主
作业最后一题要做什么转置矩阵。。。完全不懂什么意思,好拙计啊
求一个。X。阶的矩阵A的转置矩阵。n从键盘输入,A矩阵和它的转置矩阵分别显示在两个文本框中。[提示:转置矩阵的第i行,第j列元素人r(i,一二A(j,0)
2013年05月05日 06点05分 1
level 7
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分 2
1