VB任意10个随机整数,按从小到大顺序排列

Question

很急哦.哪个好心人能帮偶下!感激不尽哦!

Answer 1

dim s(10) as integer
dim min as integer
Randomize '使随机数不重复，不是本次，而是每次的随机数都不一样，这个一定要
for i=1 to 10
s(i) = Int((100 - 10) * Rnd() + 10) '求两位数的整数，包括10
if i>=2 and s(i) < s (i-1) then
min=s(i) '将大的数与小的数交换
s(i)=s(i-1)
s(i-1)=max
end if
next
for i=1 to 10
print s(i)
next

Answer 2

有问题先百度一下，而不是直接百度知道！！
http://www.baidu.com/s?wd=VB+%C5%C5%D0%F2
这种问题网上有很多答案的！本回答被提问者采纳