比较拼音的大小并排列现在我想用ASC码来比较拼音的大小并且按照升序排列比如:a wang co cong con chuai zhuang ban bang比较大小按照升序排列我现在文本文档里的拼音是这么排列的:awangcocongcon这
来源:学生作业帮助网 编辑:作业帮 时间:2024/06/28 17:36:46
![比较拼音的大小并排列现在我想用ASC码来比较拼音的大小并且按照升序排列比如:a wang co cong con chuai zhuang ban bang比较大小按照升序排列我现在文本文档里的拼音是这么排列的:awangcocongcon这](/uploads/image/z/3650043-3-3.jpg?t=%E6%AF%94%E8%BE%83%E6%8B%BC%E9%9F%B3%E7%9A%84%E5%A4%A7%E5%B0%8F%E5%B9%B6%E6%8E%92%E5%88%97%E7%8E%B0%E5%9C%A8%E6%88%91%E6%83%B3%E7%94%A8ASC%E7%A0%81%E6%9D%A5%E6%AF%94%E8%BE%83%E6%8B%BC%E9%9F%B3%E7%9A%84%E5%A4%A7%E5%B0%8F%E5%B9%B6%E4%B8%94%E6%8C%89%E7%85%A7%E5%8D%87%E5%BA%8F%E6%8E%92%E5%88%97%E6%AF%94%E5%A6%82%EF%BC%9Aa+wang+co+cong+con+chuai+zhuang+ban+bang%E6%AF%94%E8%BE%83%E5%A4%A7%E5%B0%8F%E6%8C%89%E7%85%A7%E5%8D%87%E5%BA%8F%E6%8E%92%E5%88%97%E6%88%91%E7%8E%B0%E5%9C%A8%E6%96%87%E6%9C%AC%E6%96%87%E6%A1%A3%E9%87%8C%E7%9A%84%E6%8B%BC%E9%9F%B3%E6%98%AF%E8%BF%99%E4%B9%88%E6%8E%92%E5%88%97%E7%9A%84%EF%BC%9Aawangcocongcon%E8%BF%99)
比较拼音的大小并排列现在我想用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