求助！用Vb.net編寫兩個矩陣相乘！

Public Shared Sub Main()

創新互聯是一家專業提供定邊企業網站建設,專注與網站制作、成都網站制作、成都h5網站建設、小程序制作等業務。10年已為定邊眾多企業、政府機構等服務。創新互聯專業網站建設公司優惠進行中。

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矩陣的問題

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

求助,初學者想問VB.NET，怎么輸入一維列矩陣或者一維行矩陣怎么轉置成一維列矩陣？謝謝了！

在程序設計語言里，用二維數組來保存矩陣的值。

一維列矩陣，就是由：若干行、一列組成的二維數組。

一維行矩陣，就是由：一行、若干列組成的二維數組。

比如一維列矩陣，的輸入：

dim a(10,1) as integer '10行，1列

dim i as integer

for i = 1 to 10

a(i,1) = inputbox("")

next i

vb.net 數組顯示矩陣的一道題

'這是在vb6中的代碼，在vb.net中基本差不多，你可以參考一下

Private Sub cmdCommand1_Click()

Me.AutoRedraw = True

Dim Grp

Grp = Array(1, 2, 3, 4, 5)

Dim i, j As Long

Dim StrPrt As String

For i = 0 To UBound(Grp)

'i為位移量

StrPrt = ""

For j = i To UBound(Grp)

StrPrt = StrPrt Grp(j)

Next j

For j = 0 To i - 1

StrPrt = StrPrt Grp(j)

Next j

Me.Print StrPrt

Next i

End Sub

用vb.net編程，建立一個m行n列的矩陣，找出其中最小的元素所在的行和列，并輸出該值及其行、列位置

沒錯!!

你的算法是：

1.定義三個變量，minValue（放最小值），X（放最小值的X坐標），Y（放最小值的Y坐標）。

2.遍歷矩陣。在遍歷過程中將最小值放在minValue中，最小值的X坐標放在X中，最小值的Y坐標放在X中。

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

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