用VB编程随机产生30个两位正整数,找出其中的偶数,并将这些偶数从小到大排序。

dim i as int
dim a(29) as int
for i=1 to 30 step 1
a(i-1)=int(rd*100)
if a(i-1)<10 then
i=i-1
else
continue
next
______________
呵呵，两年没编过了，也没装VB，没办法试，仅供参考，或许有些和C语言都搞混了