比較拼音的大小並排列現在我想用ASC碼來比較拼音的大小並且按照升序排列比如：a wang co cong con chu

題目：

比較拼音的大小並排列
現在我想用ASC碼來比較拼音的大小並且按照升序排列
比如：a wang co cong con chuai zhuang ban bang比較大小按照升序排列
我現在文本文檔里的拼音是這麼排列的：
a
wang
co
cong
con
這樣的,我想排序完也是按這樣顯示出來
a
ban
bang
chuai
co
con
cong
wang
zhuang

解答：

在窗體內加入控制項command1,list1(sorted=True),然後複製下面代碼,修改其中保存拼音的文本文件名,運行,點擊command1即可.
Private Sub Command1_Click()
Dim s As String, i As Integer, FileName As String
FileName = App.Path & "\1.txt" '請修改爲具體的文件名
With List1
.Visible = False
.Clear
Open FileName For Input As #1
Do While Not EOF(1)
Line Input #1, s
.AddItem s
DoEvents
Loop
Close #1
Open FileName For Output As #1
For i = 0 To .ListCount - 1
s = Trim(.List(i))
If s "" Then
Print #1, s
End If
DoEvents
Next
.Clear
.Visible = True
End With
Close #1
MsgBox "排序完畢,請查看原文件!"
End Su