Dim m1(0 To 3) As Integer
Dim m2 (0 To 3) As Integer
Dim m3 (0 To 3) As Integer
Dim m4 (0 To 3) As Integer
Dim m5 (0 To 3) As Integer
Dim m6 (0 To 3) As Integer
Private Sub cmdEqual_Click()
For i = 0 To 3
m1(i) = CInt(txtm1(i).Text)
m2(i) = CInt (txtm2(i).Text)
Next
For j = 0 To 3
m3(j) = m1(0) * m2(j)
txtr1(j). Text = m3(j)
Next
For j = 0 To 3
m4(j) = m1(1) * m2(j)
txtr2(j) . Text = m4(j)
Next
For j = 0 To 3
m5(j) = m1(2) * m2(j)
txtr3(j).Text = m5(j)
Next
For j = 0 To 3
m6(j) = m1(3) * m2(j)
txtr4(j). Text = m6(j)
Next
End Sub
No comments:
Post a Comment