Dim x() As Integer, n As Integer, a As Integer, b As Integer, i As Integer
Private Sub sum()
For i = 1 To n
If x(i) Mod 2 = 0 Then
b = b + x(i)
Else
a = a + x(i)
End If
Next i
End Sub
Private Sub Command1_Click()
n = Val(InputBox("输入整数N"))
ReDim x(n)
Randomize
For i = 1 To n
x(i) = Int(Rnd * 50)
Next i
End Sub
Private Sub Command2_Click()
Call sum
Print "奇数之和=" & a
Print "偶数之和=" & b
End Sub
温馨提示:答案为网友推荐,仅供参考