大一vb小白 求大神看程序哪里有问题

Question

题目是下载数据文件wj12.txt到自己的计算机中，编写程序，对该数据文件里的前10000个数从小到大排序，计算第5001到第5200之间200个数的平均值，输出第5001到第5200之间高于这个平均值的个数。
Dim a(10000) As Double
Open "F:\wj12.txt" For Input As #1
For i = 1 To 10000
   Input #1, a(i)
Next i
 For i = 1 To 9999
   For j = 1 To 10000 - i
   If a(j) > a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t
   Next j
Next i
For i = 5001 To 5200
s = s + a(i)
Next i
Avg = s / 200
Print Avg
For i = 5001 To 5200
If a(i) > Avg Then Print a(i)
Next i
Close All
考前练习啊嘤嘤嘤%>_<%%>_<%

Answer 1

文件是何种格式？Dim a(1 To 10000) As Double, s As Double, Avg As Double
Open "F:\wj12.txt" For Input As #1
For i = 1 To 10000
   Input #1, a(i)
Next i
Close #1For i = 1 To 9999
    For j = i To 10000 
        If a(i) > a(j) Then s = a(i): a(i) = a(j): a(j) = s
    Next j
Next iFor i = 5001 To 5200
s = s + a(i)
Next i
Avg = s / 200
Text1.Text = Avgs = 0
For i = 5001 To 5200
If a(i) > Avg Then s = s + 1
Next i
Text2.Text = s

Answer 2

是txt.格式大神