VB_2014_SLIP 27

SLIP 27_1

Option Explicit

Option Base 1

Private Sub cmdAdd_Click()

Dim a(2, 2) As Integer

Dim b(2, 2) As Integer

Dim c(2, 2) As Integer

Dim i As Integer

Dim j As Integer

For i = 1 To 2

    For j = 1 To 2

        a(i, j) = Val(InputBox("Enter Elements for matrix A"))

    Next j

Next i

For i = 1 To 2

    For j = 1 To 2

        b(i, j) = Val(InputBox("Enter Elements for matrix B"))

    Next j

Next i

For i = 1 To 2

    For j = 1 To 2

        c(i, j) = a(i, j) + b(i, j)

    Next j

Next i

Print "Matrix A is"

For i = 1 To 2

    For j = 1 To 2

        Print a(i, j);

    Next j

    Print ""

Next i

Print "Matrix B is"

For i = 1 To 2

    For j = 1 To 2

        Print b(i, j);

    Next j

    Print ""

Next i

Print "Addition of Two Matrices is"

For i = 1 To 2

    For j = 1 To 2

        Print c(i, j);

    Next j

    Print ""

Next i

End Sub