作业帮比较拼音的大小并排列现在我想用ASC码来比较拼音的大小并且按照升序排列比如：a wang co cong con chu
来源：学生作业帮 编辑：作业帮 分类：综合作业 时间：2024/07/06 03:13:55
比较拼音的大小并排列
现在我想用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比较大小按照升序排列
我现在文本文档里的拼音是这么排列的：
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
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