vb點虐 矩陣的問題

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

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

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

Public Shared Sub Main()

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

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

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

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

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

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的行數:")

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

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

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的列數與矩陣B的行數不相等,無法進行乘積運算!")

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點虐 中矩陣計算問題請教高手.

給你一個函數 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為得到的新矢量

當前題目：vb點虐 寫矩陣運算 vb矩陣的基本運算代碼
文章鏈接：http://www.yijiale78.com/article4/ddgciie.html

成都網站建設公司_創新互聯，為您提供做網站、自適應網站、服務器托管、網頁設計公司、網站導航、面包屑導航

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯