VB排序算法我现在想把一组没有顺序的TXT文件从小到大排序,如下,以大头的数字去排序2,.‘后面省略内容3,.5,.2,
来源:学生作业帮 编辑:搜狗做题网作业帮 分类:综合作业 时间:2024/08/20 00:57:00
VB排序算法
我现在想把一组没有顺序的TXT文件从小到大排序,如下,以大头的数字去排序
2,.‘后面省略内容
3,.
5,.
2,.
5,.
8,.
3,.
现在想得到以下排序结果,从小到大
2,.‘后面省略内容
2,.
3,.
3,.
5,.
5,.
8,.
如何实现
我现在想把一组没有顺序的TXT文件从小到大排序,如下,以大头的数字去排序
2,.‘后面省略内容
3,.
5,.
2,.
5,.
8,.
3,.
现在想得到以下排序结果,从小到大
2,.‘后面省略内容
2,.
3,.
3,.
5,.
5,.
8,.
如何实现
2,3,5,15,68,55
13,5,6,87,2,8,98
55,145,4,621,54,31,
2,5,54,6345,66
8,123,54,64,12,5
4,5,46,5,12,5,5
6,1,2,54,1
1,2,45,41,23
5,1,56,31,45
我把TXT中的内容写成这样,应该是合乎你要求的吧?然后代码如下:
Option Explicit
Dim Arry() As String
Private Sub Command1_Click()
Dim i As Long, j As Long
Dim x As String, y As String
i = 1
ReDim Preserve Arry(i) As String
Open App.Path & "\111.txt" For Input As #1
While Not EOF(1)
Line Input #1, Arry(i)
i = i + 1
ReDim Preserve Arry(i) As String
Wend
ReDim Preserve Arry(i - 1) As String
Close #1
For i = 1 To UBound(Arry)
For j = 1 To UBound(Arry)
If j < UBound(Arry) Then
If Val(Arry(j)) > Val(Arry(j + 1)) Then
x = Arry(j)
y = Arry(j + 1)
Arry(j) = y
Arry(j + 1) = x
End If
End If
Next
Next
Open App.Path & "\222.txt" For Output As #1
For i = 1 To UBound(Arry)
Print #1, Arry(i)
Next i
Close #1
End Sub
经过上机测试,生成的222.TXT中的内容如下:
1,2,45,41,23
2,3,5,15,68,55
2,5,54,6345,66
4,5,46,5,12,5,5
5,1,56,31,45
6,1,2,54,1
8,123,54,64,12,5
13,5,6,87,2,8,98
55,145,4,621,54,31,
首位是排好序的.
13,5,6,87,2,8,98
55,145,4,621,54,31,
2,5,54,6345,66
8,123,54,64,12,5
4,5,46,5,12,5,5
6,1,2,54,1
1,2,45,41,23
5,1,56,31,45
我把TXT中的内容写成这样,应该是合乎你要求的吧?然后代码如下:
Option Explicit
Dim Arry() As String
Private Sub Command1_Click()
Dim i As Long, j As Long
Dim x As String, y As String
i = 1
ReDim Preserve Arry(i) As String
Open App.Path & "\111.txt" For Input As #1
While Not EOF(1)
Line Input #1, Arry(i)
i = i + 1
ReDim Preserve Arry(i) As String
Wend
ReDim Preserve Arry(i - 1) As String
Close #1
For i = 1 To UBound(Arry)
For j = 1 To UBound(Arry)
If j < UBound(Arry) Then
If Val(Arry(j)) > Val(Arry(j + 1)) Then
x = Arry(j)
y = Arry(j + 1)
Arry(j) = y
Arry(j + 1) = x
End If
End If
Next
Next
Open App.Path & "\222.txt" For Output As #1
For i = 1 To UBound(Arry)
Print #1, Arry(i)
Next i
Close #1
End Sub
经过上机测试,生成的222.TXT中的内容如下:
1,2,45,41,23
2,3,5,15,68,55
2,5,54,6345,66
4,5,46,5,12,5,5
5,1,56,31,45
6,1,2,54,1
8,123,54,64,12,5
13,5,6,87,2,8,98
55,145,4,621,54,31,
首位是排好序的.
用JAVA程序冒泡排序算法把一组打乱顺序的数字从小到大排列并打印出来
数据结构拓扑排序某图的表示意如下,按拓扑排序算法,写出电脑输出的拓扑排序结果0:->5->2->1^1:->4->3->
VB题.将用户输入的三个数字按照从小到大获从大到小的顺序排序,排序方式可由用户设置.程序怎么写呢
编写程序,定义数组存放如下数据{1,4,5,3,2,0},并对该数组按照由小到大顺序排序,输出排序后的结果
排序算法:有规律的数组排序
四大洋的排序?从小到大
vb中随机生成10个10~90的整数,把能被3整除的随机数从小到大排序
85763用冒泡排序法的比较顺序,从小到大
把顺序错乱的句子排序!
已知一组元素的排序码为:(17,3,30,25,14,17,20,9),则.1.用冒泡排序法写出每趟的排序算法
用C语言的指针(!)实现①输入十个数字,按从小到大的顺序排序后并输出②输入十个字符,按字典顺序排序输
0.8,0.88,从小到大排序 3.42,3又5分之2,3又20分之9,3.39 从小到大排序