Option Base 1
Private Sub Form_click()
Dim a(8) As Integer
Dim b(8) As Integer
Dim c(8) As Integer
Print "shu zu a"
For i = 1 To 8
a(i) = InputBox("shu ru a(" & i & ")de zhi")
Print a(i);
Next i
Print
Print "shu zu b"
For i = 1 To 8
b(i) = InputBox("shu ru b(" & i & ") de zhi")
Print b(i);
Next i
Print
For i = 1 To 8
c(i) = a(i) + b(i)
Next i
Print c(i);
End Sub
请指出错误谢谢
