Question

vb编程题：在文件1.txt当中有1000个数，请对它们从小到大排序，然后求前100个数的和。

Answer 1

建一个有1000个乱数的文件1.txt在c盘，
下面的程序把文件1.txt的乱数读入数组，用冒泡法排序，并把的结果输出2.txt里面。
对话框中显示出前100个数的和

Sub MySort()
Dim buf As String
Dim numc As Integer
Dim i As Integer
Dim j As Integer
Dim arr(1000) As Double
Dim t As Double
Dim sum100 As Double

On Error Resume Next
numc = 1000
Open "c:\1.txt" For Input As #1
For i = 1 To numc
Line Input #1, buf
arr(i) = Val(buf)
Next
Close #1
For i = 1 To numc - 1
For j = numc To i + 1 Step -1
If arr(j) < arr(j - 1) Then
t = arr(j)
arr(j) = arr(j - 1)
arr(j - 1) = t
End If
Next j
Next i
sum100 = 0
Open "c:\2.txt" For Output As #1
For i = 1 To numc
Print #1, arr(i)
If i <= 100 Then
sum100 = sum100 + arr(i)
End If
Next
Close #1

MsgBox " 前100个数的和是 " & sum100

End Sub