从键盘上输入10个整数（用InputBox函数），并将它们按从小到大的顺序排列。

dim tmp
n=inputbox ("请输入要排序的数字：（请用逗号隔开）","冒泡排序","32,5,1,876,4,23,23,5,8")
s=split(n,",")
m=ubound(s)
for i=0 to m
for j=i+1 to m
if s(i)+0<s(j)+0 then
tmp=s(i):s(i)=s(j):s(j)=tmp
end if
next

next
for i=m to 0 step -1
sn=sn & s(i) & ","
next
msgbox "你输入的是：" & vbcrlf & n & vbcrlf & "排序后是：" & vbcrlf & left(sn,len(sn)-1),4096,"排序结果"