Private Sub Form_Click()
Dim a
Dim b
Dim c
a = Array(2, 8, 7, 6, 4, 28, 70, 25)
b = Array(79, 27, 32, 41, 57, 66, 78, 80)
For i = 1 To 8
    c(i) = a(i) + b(i)
Next i
For i = 1 To 8
    Print c(i)
Next i
End Sub

明白了，谢谢