Private Sub Form_Click()
Dim arr(1 to 10, 1 to 10) As Integer
Dim i As Integer, j As Integer
For i =2 To 4
For j = 2 To 4
arr(i, j) = i * j
Next j
Next i
Label1.Caption =str(arr(2, 2)+ arr(3, 3))
End Sub