VB题目：输入正整数，将其中偶数放入一个数组，然后按从大到小输出，选用冒泡排序法！

Question

VB题目：输入正整数，将其中偶数放入一个数组，然后按从大到小输出，选用冒泡排序法！

Answer 1

作业吧，我昨天刚帮人写了一个这样的程序，说不定是你同学，呵呵。
程序如下：
Private Sub Command1_Click()
Dim s%(1 To 60), i%, j%
Randomize
Cls

Print "排序前"
For i = 1 To 60
s(i) = Int(101 * Rnd + 100)
Print s(i);
If i Mod 10 = 0 Then Print
If s(i) Mod 2 = 0 Then k = k + 1: s(k) = s(i)
Next i

Print "偶数有" & k & "个"
For i = 1 To k
Print s(i);
If i Mod 10 = 0 Then Print
Next i

Print
Print "排序后"
For i = k To 2 Step -1
For j = 1 To i - 1
If s(j) > s(j + 1) Then temp = s(j): s(j) = s(j + 1): s(j + 1) = temp
Next j
Next i

For i = 1 To k
Print s(i);
If i Mod 10 = 0 Then Print
Next i

End Sub