ultra instinct

Download rar  

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