VB PROGRAMS VB6.0

MATRIX PROGRAM USING VB 6.0

Dim a(10, 10) As Integer

Dim b(10, 10) As Integer

Dim c(10, 10) As Integer

Private Sub  cmd1_click()

m= InputBox("Enter value of m")

n= InputBox("Enter value of n")

For i=1 To m

For j=1 To n

a(i, j) = InputBox("Enter value for first matrix")

Next j

Next i

m = InputBox("Enter value for m")

n = inputBox ("Enter value for n")

For i = 1 To m

For j = 1 To n

b(i, j) = InputBox("Enter value for first matrix")

Next j

Next i

For i = 1 To m

For j = 1 To n

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

Next j

Next i

Label1.caption = " Resultant Matrix"

For i = 1 To m

For j = 1 To n

 Text1.Text = Text1.Text & c(i , j) & " "

Next j

Text1.Text = Text1.Text &    vbNewline

Next i

End sub