VB.Net Programs

VB.Net program to print the sum of right diagonal elements of Matrix

By Nidhi Last Updated : November 16, 2024

Sum of right diagonal elements of Matrix

Here, we will read a 3X3 matrix from the user then print the sum of the right diagonal of MATRIX on the console screen.

Program/Source Code:

The source code to print the sum of the right diagonal elements of Matrix is given below. The given program is compiled and executed successfully.

VB.Net code to find the sum of right diagonal elements of Matrix

'VB.Net program to print the sum of right diagonal elements of MATRIX.

Module Module1

    Sub Main()
        Dim arr(,) As Integer = New Integer(3, 3) {}
        Dim sum As Integer = 0

        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))
                If (i + j = 2) Then
                    sum = sum + arr(i, j)
                End If
            Next
            Console.WriteLine()
        Next

        Console.WriteLine("Sum of right diagonal elements is: {0}", sum)
    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
Sum of right diagonal elements is: 150
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))
        If (i + j = 2) Then
            sum = sum + arr(i, j)
        End If
    Next
    Console.WriteLine()
Next

Console.WriteLine("Sum of right diagonal elements is: {0}", sum)

In the above code, we printed the MATRIX and sum of right diagonal elements of MATRIX on the console screen.