帮忙解决一个编程题

来源：百度知道 编辑：UC知道 时间：2024/05/16 17:30:55
编写程序：有10个数存放在一磁盘顺序文件D:\test\input.txt"中，每个数字一行，编程读出该数据，按降序排列后在存入D:\test\result.txt"文件中，
（帮忙写啊 ）

Dim i As Integer
Dim j As Integer
Dim d(10) As Integer
Dim t As Integer

Open "D:\test\input.txt" For Input As #1
i = 1
For i = 1 To 10

Input #1, d(i)
If EOF(1) Then Exit For
Next
Close #1
For i = 1 To 10
For j = i + 1 To 10
If d(i) < d(j) Then
t = d(i)
d(i) = d(j)
d(j) = t
End If
Next j
Next i

Open "D:\test\result.txt" For Output As #2
For i = 1 To 10
Print #2, d(i)
Next i
Close #2