#### darkhero

##### New member

- Joined
- Jan 7, 2021

- Messages
- 1

- Programming Experience
- 3-5

VB.NET:

```
r = InputBox("enter row")
c = InputBox("enter coloumns")
ReDim a(r, c)
ReDim trans(r, c)
ReDim Matrice(r, c)
ReDim Inverse_Matrix(r, c)
ReDim Operations_Matrix(r, c)
Print "mat is"
For i = 1 To r
For j = 1 To c
a(i, j) = InputBox("enter")
Print a(i, j); " ";
Next
Print " "
Next
Print "inverse is"
//the program wont print this
For j = 0 To c
trans(i, j) = trans(i, j)
If i <> j Then
a(i, j) = 0
Else
a(i, j) = 1
End If
Next
Next
Dim fak As Double
For j = 0 To c
trans(k, j) = trans(k, j) / fak
a(k, j) = a(k, j) / fak
Next
For i = 0 To c
If i <> k Then
fak = trans(i, k)
For j = 0 To c
trans(i, j) = trans(i, j) - fak * trans(k, j)
a(i, j) = a(i, j) - fak * a(k, j)
Next
End If
Next
Print a(i, j);
```

Last edited by a moderator: