vb 数字的排列大小??

如果是在一个文本框中连续输入多个数字就要用到split(text1,",")函数,在输入数字的时候用”，”隔开
完毕之后在赋值个一个数组，再用冒泡法排序

'VB冒泡排序
function b(a)
for i=0 to ubound(a)-2
for j=0 to ubound(a)-2
if a[j]>a[j+1] then
a(j+1)=t
a(j+1)=a(j)
a(j)=t
end if
next
end function