# 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