# Diagonal elements of matrix 0 using .NET

This a resource based on the concept of mathematics.This program takes matrix values at run time from user and making the diagonals elements of the given matrix 0. Both the original and new matrix will be displayed.

In this program one can take values of the matrix from the user at run time and make the diagonal elements appear 0. Suppose
Original Matrix
1 2 3
4 5 6
7 8 9
New Matrix
0 2 3
4 0 6
7 8 0

``Private Sub MatrixDiagonal()        'Create matrix M1.        Dim strArray As String = ""        Dim M1(3, 3) As Integer        Dim i, j As Integer        'i represents row and         'j represents column of all the matrices.        'The i in the for loop considers         'all the rows and j considers all        'the columns.So row is considered first        'and then the column, while performing        'every operation over matrix.        'Add data in matrix M1 and take value from user at runtime.        For i = 0 To 2            For j = 0 To 2                Console.Write("Enter any value")                M1(i, j) = Console.ReadLine            Next        Next        'Display the matrix M1.        For i = 0 To 2            For j = 0 To 2                If strArray.Length = 0 Then                    strArray = "   " & M1(i, j)                Else                    strArray = strArray & "   " & M1(i, j)                End If            Next            strArray = strArray & vbNewLine        Next        Console.Write("The original matrix is " & vbNewLine & strArray)        'Making diagonal elements 0.        For i = 0 To 2            For j = 0 To 2                If i = j Then                    'If the row no. and column no. are equal                    'then save the sum in the variable intSum.                    M1(i, j) = 0                End If            Next        Next        'Display the matrix M1 with 0.        strArray = ""        For i = 0 To 2            For j = 0 To 2                If strArray.Length = 0 Then                    strArray = "   " & M1(i, j)                Else                    strArray = strArray & "   " & M1(i, j)                End If            Next            strArray = strArray & vbNewLine        Next        Console.Write("The new matrix is " & vbNewLine & strArray)    End Sub``