Question

How to declare and initialize a matrix in VB.NET

Answer 1

Imports System
 
Public Class Program
     Public Shared Sub Main(ByVal args As String())
        Dim matrix = New Integer(,) {
			{1, 2, 3}, 
			{4, 5, 6}, 
			{7, 8, 9}, 
			{10, 11, 12}}
 
        Dim rows As Integer = matrix.GetLength(0)
        Dim cols As Integer = matrix.GetLength(1)
 
        For i As Integer = 0 To rows - 1
            For j As Integer = 0 To cols - 1
                Console.Write("{0,3:D}", matrix(i, j))
            Next
            Console.WriteLine()
        Next
    End Sub
End Class
 
 
 
' run:
'
'  1  2  3
'  4  5  6
'  7  8  9
' 10 11 12
'

 

70+ SQL courses for beginners and professionals

Answer 2

Imports System

Public Class Program
     Public Shared Sub Main(ByVal args As String())
		Dim rows As Integer = 4, cols As Integer = 5
        Dim matrix(rows - 1, cols - 1) As Integer
 
        For i As Integer = 0 To rows - 1
            For j As Integer = 0 To cols - 1
                matrix(i, j) = (i + 1) * (j + 1)
            Next
        Next
 
        For i As Integer = 0 To rows - 1
            For j As Integer = 0 To cols - 1
                Console.Write("{0,3:D}", matrix(i, j))
            Next
            Console.WriteLine()
        Next
    End Sub
End Class



' run:
'
'  1  2  3  4  5
'  2  4  6  8 10
'  3  6  9 12 15
'  4  8 12 16 20
'

 

70+ SQL courses for beginners and professionals