vb點虐 矩陣的問題

要實現(xiàn)什么樣的功能呢?矩陣就是二維表吧,在.Net中有許多方法可以實現(xiàn)二維表,根據(jù)不同的需求選擇適合的方法,你應該詳細一點說明

創(chuàng)新互聯(lián)公司專注于網站建設|成都網站維護|優(yōu)化|托管以及網絡推廣，積累了大量的網站設計與制作經驗，為許多企業(yè)提供了網站定制設計服務，案例作品覆蓋成都混凝土攪拌站等行業(yè)。能根據(jù)企業(yè)所處的行業(yè)與銷售的產品，結合品牌形象的塑造，量身制作品質網站。

求助！用Vb點虐 編寫兩個矩陣相乘！

Public Shared Sub Main()

Dim a As Integer, b As Integer, c As Integer, d As Integer

Console.WriteLine("該程序將求出兩個矩陣的積:")

Console.WriteLine("請指定矩陣A的行數(shù):")

a = Integer.Parse(Console.ReadLine())

Console.WriteLine("請指定矩陣A的列數(shù):")

b = Integer.Parse(Console.ReadLine())

Dim MatrixA As Integer(,) = New Integer(a - 1, b - 1) {}

For i As Integer = 0 To a - 1

For j As Integer = 0 To b - 1

Console.WriteLine("請輸入矩陣A第{0}行第{1}列的值:", i + 1, j + 1)

MatrixA(i, j) = Integer.Parse(Console.ReadLine())

Next

Next

Console.WriteLine("矩陣A輸入完畢.")

Console.WriteLine("請指定矩陣B的行數(shù):")

c = Integer.Parse(Console.ReadLine())

Console.WriteLine("請指定矩陣B的列數(shù):")

d = Integer.Parse(Console.ReadLine())

Dim MatrixB As Integer(,) = New Integer(c - 1, d - 1) {}

For i As Integer = 0 To c - 1

For j As Integer = 0 To d - 1

Console.WriteLine("請輸入矩陣A第{0}行第{1}列的值:", i + 1, j + 1)

MatrixB(i, j) = Integer.Parse(Console.ReadLine())

Next

Next

Console.WriteLine("矩陣B輸入完畢.")

Console.WriteLine("矩陣A為:")

outputMatrix(MatrixA, a, b)

Console.WriteLine("矩陣B為:")

outputMatrix(MatrixB, c, d)

If b c Then

Console.WriteLine("矩陣A的列數(shù)與矩陣B的行數(shù)不相等,無法進行乘積運算!")

Return

Else

Console.WriteLine("矩陣A與矩陣B的乘積為:")

End If

Dim MatrixC As Integer(,) = New Integer(a - 1, d - 1) {}

For i As Integer = 0 To a - 1

For j As Integer = 0 To d - 1

MatrixC(i, j) = 0

For k As Integer = 0 To b - 1

MatrixC(i, j) += MatrixA(i, k) * MatrixB(k, j)

Next

Next

Next

outputMatrix(MatrixC, a, d)

End Sub

Private Shared Sub outputMatrix(MatrixX As Integer(,), rowCount As Integer, columnCount As Integer)

For i As Integer = 0 To rowCount - 1

For j As Integer = 0 To columnCount - 1

Console.Write(MatrixX(i, j) vbTab)

Next

Console.WriteLine()

Next

End Sub

End Class

VB.NET寫了一個矩陣乘法的程序 代碼如下

淳樸，古拙，淡泊，深遠。閑居山林，逍遙河上，也許人只有擺脫了物欲的禁錮，才能讓靈魂得到飛升。不識字煙波釣叟，傲殺人見萬戶侯；閑居山野的隱士，羞煞世上名利客。

斜風細雨，江南春色，落英繽紛。春水媚，綠波盈，青山橫，白鷺飛。披蓑戴笠，心逐白云，意隨魚戲，行到水窮，坐看云起，臥聽風韻松濤。不須歸，不須歸，只任心靈，放逐在深愛的自然里，忘世忘機。

《芥子園畫譜》云：“與山水有顧盼，人似看山，山亦似俯而看人”。司空圖《詩品沖淡》說：“遇之非深，即之逾稀?！笨侦`天真，非性情中人而不能為。梅妻鶴子友麋鹿，是怎樣一種超逸？

vb點虐 中矩陣計算問題請教高手.

給你一個函數(shù) Public Sub Vect1XtoVect2(ByVal x1 As Double, ByVal y1 As Double, ByVal z1 As Double, _ ByVal x2 As Double, ByVal y2 As Double, ByVal z2 As Double, _ ByRef xNew As Double, ByRef yNew As Double, ByRef zNew As Double) '矢量叉積 xNew = y1 * z2 - z1 * y2 yNew = z1 * x2 - x1 * z2 zNew = x1 * y2 - y1 * x2 End Sub其中x1,y1,z1為第一個矢量，x2,y2,z2為第二個矢量xnew,ynew,znew為得到的新矢量