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
Read more