Write a vb6.0 program to print the sum of two matrix?

Answer 1

here to get a splashscreen application )

Private Sub Command1_Click()

Grid1.Rows = Text1.Text

Grid1.Cols = Text2.Text

Grid2.Rows = Text1.Text

Grid2.Cols = Text2.Text

Grid3.Rows = Text1.Text

Grid3.Cols = Text2.Text

End Sub

Private Sub Command2_Click()

For i = 0 To Grid3.Rows - 1

For j = 0 To Grid3.Cols - 1

Grid1.Row = i

Grid1.Cols = j

Grid2.Row = i

Grid2.Cols = j

Grid3.Row = i

Grid3.Cols = j

Grid3.Text = Val(Grid1.Text) + Val(Grid2.Text)

Next j

Next i

End Sub

Private Sub Grid1_KeyPress(KeyAscii As Integer)

Grid1.Text = Grid1.Text + Chr(KeyAscii)

End Sub

Private Sub Grid2_KeyPress(KeyAscii As Integer)

Grid2.Text = Grid2.Text + Chr(KeyAscii)

End Sub