Styjun

so i have a task to create a square matrix then from that return the average of the rows and columns, having some problem though

Dim m, n, i, j As Integer
 Dim A(2, 2) As Integer
 Console.Write(vbLf & "Enter The Matrix Elements any two : ")
 For i = 0 To 2 - 1
 For j = 0 To 2 = 1
 A(i, j) = Convert.ToInt16(Console.ReadLine())
 Next
 Next
 Console.Clear()
 Console.WriteLine(vbLf & "Matrix A : ")
 For i = 0 To 2 - 1
 For j = 0 To 2 - 1
 Console.Write(vbLf & "0", A(i, j))
 Next

 Console.WriteLine(" ")
 Next


 Console.WriteLine(vbLf & "Transpose Matrix : ")

 For i = 0 To 2 - 1
 For j = 0 To 2 - 1
 Console.Write(vbLf & "0", A(j, i))

 Next

 Console.WriteLine(" ")
 Next
 End Sub

This is my code, i know its supposed to be a square matrix so how would i do that, when i also try inputing the values it does not let me go past the next one, does anyone have code for a square matrix that gets its values from a user, or someone can help me please

To make it generic, use the GetUpperBound() function to determine how many elements are in your array for each dimension (it should be the same, however, since you have a square matrix):

Sub Main()
 Dim size As Integer = 3
 Dim numberWidth As Integer = 2
 Dim format As String = "D" & numberWidth

 Dim A(size - 1, size - 1) As Integer
 For i As Integer = 0 To A.GetUpperBound(0)
 For j As Integer = 0 To A.GetUpperBound(1)
 Console.Write(String.Format("Enter The Matrix Element at A[Row 0, Col 1]: ", i, j))
 A(i, j) = Convert.ToInt16(Console.ReadLine())
 Next
 Next

 Console.WriteLine("Matrix A :")
 For i As Integer = 0 To A.GetUpperBound(0)
 Console.Write("| ")
 For j As Integer = 0 To A.GetUpperBound(1)
 Console.Write("0 ", A(i, j).ToString(format))
 Next
 Console.WriteLine("|")
 Next

 Console.WriteLine("Transpose Matrix :")
 For i As Integer = 0 To A.GetUpperBound(0)
 Console.Write("| ")
 For j As Integer = 0 To A.GetUpperBound(1)
 Console.Write("0 ", A(j, i).ToString(format))
 Next
 Console.WriteLine("|")
 Next
 Console.ReadLine()
End Sub

Output:

Enter The Matrix Element at A[Row 0, Col 0]: 1
Enter The Matrix Element at A[Row 0, Col 1]: 2
Enter The Matrix Element at A[Row 0, Col 2]: 3
Enter The Matrix Element at A[Row 1, Col 0]: 4
Enter The Matrix Element at A[Row 1, Col 1]: 5
Enter The Matrix Element at A[Row 1, Col 2]: 6
Enter The Matrix Element at A[Row 2, Col 0]: 7
Enter The Matrix Element at A[Row 2, Col 1]: 8
Enter The Matrix Element at A[Row 2, Col 2]: 9
Matrix A :
| 01 02 03 |
| 04 05 06 |
| 07 08 09 |
Transpose Matrix :
| 01 04 07 |
| 02 05 08 |
| 03 06 09 |

Here's a quick example of how to compute the SUM of each ROW:

Dim Total as Integer
For row As Integer = 0 To A.GetUpperBound(0)
 Total = 0 ' reset for each row/column
 For col As Integer = 0 To A.GetUpperBound(1)
 Total = Total + A(row, col) 
 Next
 Console.WriteLine("Row " & row & " total: " & Total)
 ' ... do something else with "Total" here; like compute an average ...
Next

The code for computing the total of columns will be very similar, just swap the positions of the For row and For col lines.