題目是下載資料檔案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
考前練習啊嚶嚶嚶%>_<%%>_<%
uj5u.com熱心網友回復：
檔案是何種格式？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 #1
For 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 i
For i = 5001 To 5200
s = s + a(i)
Next i
Avg = s / 200
Text1.Text = Avg
s = 0
For i = 5001 To 5200
If a(i) > Avg Then s = s + 1
Next i
Text2.Text = s
uj5u.com熱心網友回復：
是txt.格式大神uj5u.com熱心網友回復：
是問你文本的資料格式，比如是否每一個資料一行？轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/121749.html
標籤：網絡編程