VB用数组结构编写程序，输入10个整数，统计奇数之和及偶数之和，谢谢

Private Sub Form_Click()
Dim A(1 to 10) as Long
Dim Jc as long ,Oc as Long
For i=1 to 10
A(I)=Val(InputBox("请输入第" & i & "个数据"))
If A(i) mod 2 =0 then oc=oc+A(I)
If A(i) mod 2 =1 then jc=jc+A(i)
Next
Print "奇数的和为:" & jC
Print "偶数的和为:" & Oc

End Sub