Home »
VB.Net »
VB.Net Programs
VB.Net program to print the left diagonal of Matrix
By Nidhi Last Updated : November 16, 2024
Printing the left diagonal of Matrix
Here, we will read a 3X3 matrix from the user then print the left diagonal of MATRIX on the console screen.
Program/Source Code:
The source code to print the left diagonal of Matrix is given below. The given program is compiled and executed successfully.
VB.Net code to print the left diagonal of Matrix
'VB.Net program to print the left diagonal of the MATRIX.
Module Module1
Sub Main()
Dim arr(,) As Integer = New Integer(3, 3) {}
Console.WriteLine("Enter Matrix elements: ")
For i = 0 To 2 Step 1
For j = 0 To 2 Step 1
Console.Write("Enter element[{0}][{1}]: ", i, j)
arr(i, j) = Integer.Parse(Console.ReadLine())
Next
Next
Console.WriteLine("Matrix: ")
For i = 0 To 2 Step 1
For j = 0 To 2 Step 1
Console.Write("{0} ", arr(i, j))
Next
Console.WriteLine()
Next
Console.WriteLine("Left Diagonal of Matrix: ")
For i = 0 To 2 Step 1
For j = 0 To 2 Step 1
If (i = j) Then
Console.Write("{0} ", arr(i, j))
Else
Console.Write(" ")
End If
Next
Console.WriteLine()
Next
End Sub
End Module
Output
Enter Matrix elements:
Enter element[0][0]: 10
Enter element[0][1]: 20
Enter element[0][2]: 30
Enter element[1][0]: 40
Enter element[1][1]: 50
Enter element[1][2]: 60
Enter element[2][0]: 70
Enter element[2][1]: 80
Enter element[2][2]: 90
Matrix:
10 20 30
40 50 60
70 80 90
Left Diagonal of Matrix:
10
50
90
Press any key to continue . . .
Explanation
In the above program, we created a module Module1 that contains a function Main(). In the Main() function, we created a two-dimensional array of size 2X3.
Console.WriteLine("Enter Matrix elements: ")
For i = 0 To 1 Step 1
For j = 0 To 2 Step 1
Console.Write("Enter element[{0}][{1}]: ", i, j)
arr(i, j) = Integer.Parse(Console.ReadLine())
Next
Next
In the above code, we read the elements of the matrix from the user, here the outer loop represents the rows of the matrix and the inner loop is used to represent columns of the matrix.
Console.WriteLine("Matrix: ")
For i = 0 To 2 Step 1
For j = 0 To 2 Step 1
Console.Write("{0} ", arr(i, j))
Next
Console.WriteLine()
Next
Console.WriteLine("Left Diagonal of Matrix: ")
For i = 0 To 2 Step 1
For j = 0 To 2 Step 1
If (i = j) Then
Console.Write("{0} ", arr(i, j))
Else
Console.Write(" ")
End If
Next
Console.WriteLine()
Next
In the above code, we printed the MATRIX and left diagonal MATRIX on the console screen.
VB.Net Array Programs »