Popular posts from this blog
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