刚学编程不久，希望大虾赐教
题目是输入N个数值，将它们由小到大排序输出到窗体上。
谢谢！~

Dim n as Integer
n = InputBox("请输入有多少个数N")
dim i as Integer,j as Integer
dim Mat() as Integer
Redim Mat(n) as Integer
Dim t as Integer

For i = 1 to n
Mat(i) = Rnd * 100
Next

For i = 1 to n
For j = 1 to n-1
if ( Mat(j+1)> Mat(j) ) Then
t = Mat(j+1)
Mat(j+1) = Mat(j)
Mat(j) = t
End if
Next
next

For i = 1 to n
Print Mat(i);
next

上面代码没有调试过..只供参考...

多谢！~不过，你理解错了我的意思。
我是说比如手工输入“14，15，12，13，18，8”，效果应该是“8，12，13，14，15，18”
而不是随机。
还是谢谢你。。又学到一课！~

我倒...你变通一下..不行?..
将随机数变成你输入的数...不就行了..