请高手帮我改下程序，实现两个数组相加
Dim a(4, 5), b(4, 5) As Integer
Private Sub Command1_Click()
Picture1.Cls: Picture2.Cls: Picture3.Cls
Picture1.Print: Picture2.Print: Picture3.Print
For n = 1 To 4
For m = 1 To 5
x = Int(Rnd * 100): a(n, m) = Val(x)
Picture1.Print Format(a(n, m), "@@@@")
y = Int(Rnd * 100): b(n, m) = Val(y)
Picture2.Print Format(b(n, m), "@@@@")
Next m
Picture1.Print: Picture2.Print
Next n

End Sub

Private Sub Command2_Click()
Dim c(4, 5) As Integer

For i = 1 To 4
For j = 1 To 5
c(i, j) = a(n, m) + b(n, m)
Picture3.Print Format(c(i, j), "@@@@");
Next
Picture3.Print
Next
End Sub

Private Sub Picture1_Click()

End Sub

Private Sub Picture2_Click()

End Sub