Question

VB编程，随机生成50个三位正整数，存入一维数组A中。统计其中有多少个偶数，同时将这些偶数存入一维数组B。

主要是后面选择偶数那一步不会

Answer 1

Dim A(1 To 50) As Integer
Dim B(1 To 40) As Integer
Dim i, j As Integer
Dim n As Integer
Randomize (0)
j = 0
For i = 1 To 50
A(i) = Int((999 - 100 + 1) * Rnd + 100)
If A(i) Mod 2 = 0 Then
B(j + 1) = A(i)
j = j + 1
End If
Next i
'其中: 数组B中为所有的偶数, j为偶数的个数

追问

这个不能显示出数组啊，应该有print吧。求解，谢谢了。

追答

呵呵，原题中也没有要求输出啊，再加几句：
For i=1 to j
print B(i)
Next i