Private Sub Command1_Click()Dim a, b, c(5) As Integer, i As Integera = Array(1, 2, 3, 4, 5, 6)b = Array(9, 8, 7, 6, 5, 4)For i = 0 To 5 c(i) = a(i) + b(i) Print c(i); NextEnd Sub
