VB:输入整数N，产生一个N个[0,50]之间的随机数存入数组X中,单击“求和”按钮，分别求数组X中奇数和偶数之

来源：百度知道 编辑：UC知道 时间：2024/06/06 01:52:37
在考生文件夹下有一个工程文件Prog1.vbp，相应的窗体文件为Prog1.frm，
窗体上有二个命令按钮。
程序的功能是，单击“输入”按钮，输入整数N，产生一个N个[0,50]之间的
随机数并存入数组X中。
单击“求和”按钮，分别求数组X中奇数和偶数之和，并在窗体上输出奇偶数之和。
其中求奇偶数之和由通用过程Sum实现。请编写该过程的代码。

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

Private Sub Command6_Click()
Dim a(99), b1, b2, n As Integer
n = InputBox("请输入一个整数:")
For i = 0 To n - 1
a(i) = Int(Rnd() * 50)
If a(i) Mod 2 = 0 Then
b1 = b1 + a(i)
Else
b2 = b2 + a(i)
End If
Print a(i);
Next
Print
Print b1
Print b2
End Sub