Question

用VB，随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上？

用VB，随机生成20个100以内的正整数，将其中的奇数和偶数分两行显示在窗体上？
速度我只要程序代码

Answer 1

Private Sub Form_Activate()
Dim myarray(1 To 20) As Integer
Dim myarray2(1 To 20) As Integer
Dim myarray3(1 To 20) As Integer
Dim j As Integer
j = 1
Dim k As Integer
k = 1
Dim i As Integer
For i = 1 To 20
Randomize
myarray(i) = (1 - 100) * Rnd + 100
If myarray(i) Mod 2 = 0 Then
myarray2(j) = myarray(i)

Else
myarray3(k) = myarray(i)
End If
j = j + 1
k = k + 1
Next i
For j = 1 To 20
If myarray2(j) <> 0 Then
Print myarray2(j);
End If
Next j
Print
For j = 1 To 20
If myarray3(j) <> 0 Then
Print myarray3(j);
End If

Next j
Print

End Sub

Answer 2

randomize
for i=1 to 20
r=rnd*100+1
if r mod 2 then
n=n+1
a(n)=r
else
m=m+1
a(m)=r
end if
next
for i=1 to n
print(a(n))
next
for i=1 to m
print(a(m))
next