- ©«¤l
- 181
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 197
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-9
- ³Ì«áµn¿ý
- 2024-4-29
|
¥»©«³Ì«á¥Ñ bobomi ©ó 2015-1-15 13:22 ½s¿è
Sub XX()
ar = Array("a1", "b1", "a3", "ab1", "aa3", "aa1")
s = ar
For w = 0 To UBound(ar)
s(w) = ""
For k = 1 To Len(ar(w))
s(w) = s(w) & Right("0000" & AscW(Mid(ar(w), k, 1)), 4)
Next
If Len(s(w)) > m Then m = Len(s(w))
Next
For w = 0 To UBound(ar)
s(w) = Right(Space(m) & s(w), m)
Next
For i = 0 To UBound(ar)
For j = 0 To UBound(ar) - 1
If (s(j)) > (s(j + 1)) Then
temp = s(j)
s(j) = s(j + 1)
s(j + 1) = temp
temp = ar(j)
ar(j) = ar(j + 1)
ar(j + 1) = temp
End If
Next j
Next i
MsgBox Join(ar, vbCrLf)
End Sub |
|