上面写得多了一点
<script language=vbscript>
a1="1,14,25,37,48,55"
a2="2,5,3,40,30,60,50"
a=a1&","&a2
a=split(a,",")
a=sortArray(a)
a3=join(a,",")
msgbox a3
function sortArray(arr)
for k=0 to ubound(arr)-1
for l=k+1 to ubound(arr)
if cint(arr(k))>cint(arr(l)) then
tmp=arr(k)
arr(k)=arr(l)
arr(l)=tmp
end if
next
next
sortArray=arr
end function
</script>
冒泡应该够简单了
<script language=vbscript>
a1="1,14,25,37,48,55"
a2="2,5,3,40,30,60,50"
a=split(a1,",")
b=split(a2,",")
maxa=ubound(a)
redim preserve a(maxa+ubound(b)+1)
for i=maxa+1 to ubound(a)
a(i)=b(i-maxa-1)
next
a=sortArray(a)
a3=join(a,",")
msgbox a3
function sortArray(arr)
for k=0 to ubound(arr)-1
for l=k+1 to ubound(arr)
if cint(arr(k))>cint(arr(l)) then
tmp=arr(k)
arr(k)=arr(l)
arr(l)=tmp
end if
next
next
sortArray=arr
end function
</script>