一个文本文件里面的数字，如何让他按从大到小排列？并删除相同数字。

发布网友 发布时间：2022-04-22 20:56

我来回答

共4个回答

热心网友 时间：2023-10-28 14:44

首先添加一个按钮：
Dim n(n) As Integer
Dim i, j, x As Integer

Private Sub Command1_Click()
For i = 0 To n
For j = i + 1 To n
If n(i) < n(j) Then
x = n(j)
n(j) = n(i)
n(i) = x
End If
Next j
Print n(i)
Next i
End Sub

Private Sub Form_Load()
For i = 0 To n
n(i) = InputBox("请输入你要排序的数字")
Next i
End Sub

热心网友 时间：2023-10-28 14:45

把这些数字复制到 EXCEL 进行排序

热心网友 时间：2023-10-28 14:45

我和楼上的想的一样~

热心网友 时间：2023-10-28 14:46

工具栏有个表格按键，里面有个排序。。至于删除相同项就不知道了。。