Question

vb编程顺序文件中存放了若干个数,读入后从小到大排列,再重新写入文件

Answer 1

Private Sub Command1_Click()
Dim a() As Single, t As Single
Dim i As Integer, j As Integer, l As Integer, m As Integer

'读取文件的数据
Open "c:\test.txt" For Input As #1
ReDim a(LOF(1)) As Single
n = 0
Do Until EOF(1)
n = n + 1
Input #1, a(n)

Loop
Close #1
'进行数据排序
For i = 1 To n - 1
For j = i + 1 To n
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next j
Next i
'把数据写入文件
Open "c:\test.txt" For Output As #1
For l = 1 To n
Print #1, a(l);
Next l
Close #1

End Sub

Answer 2

anonymity

Answer 3

我可以做。把文件给我。
314021146