Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvoriť VB.NET a vytvoriť dvojrozmerné pole . Musíte najprv deklarovať triedu pre nové matice . Môžete použiť " M " premennú pre počet stĺpcov a " N " premenné na počet riadkov . Tu je kód pre vytvorenie tejto triedy vo VB.NET : 
 
 Public Class MatrixImplements ICloneablePrivate M ako IntegerPrivate N , IntegerPublic val ( , ) As DoublePrivate currentX Ako IntegerPrivate ktoré v súčasnej dobe As IntegerEnd triedy 
 
 Všimnite si , že počet stĺpcov a počet riadkov sú celé čísla . " Val ( , ) " je pole s dvoma rozmermi , ktoré obsahuje prvky svojho matice 
 2 
 priradiť správne rozmery do matice v konstruktoru triedy pomocou tohto kódu : . 
 
 Public Sub New ( byVal X As Integer , byVal Y As Integer ) SetDimensions ( X , Y ) currentX = 0currentY = 0End Sub 
 
 Tu je , ako si vytvoriť štvorcovú maticu : 
 
 Public Sub New ( byVal X As Integer ) SetDimensions ( X , X ) currentX = 0currentY = 0End Sub 
 3 
 Pridajte jednu maticu do iného pomocou funkcie , ktorá zoberie maticu ako parameter a robí prvok - za - prvkom navyše . Výsledkom bude matica . Použite tento kód pre funkciu : 
 
 Public Function Add ( ByVal C As Matrix ) Ako MatrixIf M < > CM alebo n < > CN ThenThrow New Exception ( " size mismatch Matica " ) . koniec IfDim B ako Matrix = new Matrix ( M , N ) For i As Integer = 0 To M - 1pre j As Integer = 0 To N - 1B.val ( i , j ) = val ( i , j ) + C.val ( i , j ) NextNextReturn Bend funkcie 
 4 
 Vynásobte jednu maticu inou pomocou funkcie , ktorá vracia maticu . Všimnite si , že sa môžu množiť iba dve matice iba v prípade , že počet stĺpcov prvej sa rovná počtu riadkov druhej . Táto funkcia násobí matica " X " s matricou " Y " a vráti novú maticu : 
 
 public class Testpublic Shared Sub MainDim X ako New Matrix ( 2.0F , 1.0F , 3.0f , 1.0f , 0.0f , 4.0f ) Dim Y ako New Matrix ( 0.0f , 1.0f , - 1.0f , 0.0f , 0.0f , 0.0f ) X.Multiply ( Y , MatrixOrder.Append ) Dim i ako IntegerFor i = 0 X.Elements.Length - 1Console.WriteLine ( X.Elements ( i ) toString ( ) . ) Ďalšie Iend SubEnd trieda 
 
 Všimnite si , že táto funkcia tiež číta výslednú maticu 
 5 
 Zvýšiť maticu k moci vynásobením sám so sebou .