字符数组中将为空的排在最后的问题

Question

大哥们   小弟我最近做个程序     遇到个麻烦   就是在字符数组中将为空的排在最后的问题   
VB代码 
比如说 
a(1)= " " 
a(2)= " " 
a(3)= "323d " 
a(4)= "123d " 
a(5)= " " 
a(6)= " " 
排序为 
a(1)= "323d " 
a(2)= "123d " 
a(3)= " " 
a(4)= " " 
a(5)= " " 
a(6)= " "

Answer 1

 
Dim a(1 to 6) as string,t as string
Dim i as integer,j as integer
 
a=Array(" ", " ", "323d", "123d", " ", " ") For i=1 To 5 
    for j=i+1 to 6 
        if len(trim((a(i)))<=len(trim(a(j))) then 
           t=a(i):a(i)=a(j):a(j)=t 
        End If 
    Next     
Next 

Answer 2

先定义变量sum，历遍字符串数组，若为非空则保留，空则Sum=sum+1，最后在最后添加上sum个空字符串即可