VBSlip 6_1_2015-16

=================================Slip 6_1================================ Write a VB Program to find transpose of given matrix.

===========================================================================================
 

Private Sub cmdMatrix_Click()

                Dim a(1, 1) As Integer

                For i = 0 To 1

                                For j = 0 To 1

                                                a(i, j) = InputBox("Enter element" &ij)

                                Next

                Next

                Print "Given matrix is"

                For i = 0 To 1

                                For j = 0 To 1

                                                Print a(i, j);

                                Next

                                Print ""

                Next

                Print ""

                Print "Transpose of Given matrix is"

                For i = 0 To 1

                                For j = 0 To 1

                                                Print a(j, i);

                                Next

                                Print ""

                Next

End Sub