比较拼音的大小并排列现在我想用ASC码来比较拼音的大小并且按照升序排列比如：a wang co cong con chuai zhuang ban bang比较大小按照升序排列我现在文本文档里的拼音是这么排列的：awangcocongcon这
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/27 13:03:04
比较拼音的大小并排列现在我想用ASC码来比较拼音的大小并且按照升序排列比如：a wang co cong con chuai zhuang ban bang比较大小按照升序排列我现在文本文档里的拼音是这么排列的：awangcocongcon这
比较拼音的大小并排列
现在我想用ASC码来比较拼音的大小并且按照升序排列
比如：a wang co cong con chuai zhuang ban bang比较大小按照升序排列
我现在文本文档里的拼音是这么排列的：
a
wang
co
cong
con
这样的,我想排序完也是按这样显示出来
a
ban
bang
chuai
co
con
cong
wang
zhuang
比较拼音的大小并排列现在我想用ASC码来比较拼音的大小并且按照升序排列比如：a wang co cong con chuai zhuang ban bang比较大小按照升序排列我现在文本文档里的拼音是这么排列的：awangcocongcon这
在窗体内加入控件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 Sub