給你一組數字，請寫一個程式計算出這組數字的平均值，四捨五入至小數第2 位。
輸入說明：
第一行的數字，代表有幾個問題要求解。第二行開始的每一行，為一個獨立的問題。每
一行的第一個整數為這個問題所屬數字的數目n，其範圍為[2, 100]間的整數。接下來的n 個
整數，分別代表這n 個數字的數值，數值範圍為[1, 100]間的整數。
輸出說明：
對輸入的每個問題，分別以一行輸出平均數，輸出的格式請四捨五入至小數第二位。
輸入範例：
2
5 2 4 6 8 10
3 52 30 61
輸出範例：
6.00
47.67
這題感覺怪怪的@@
回覆刪除Private Sub Form_Load()
回覆刪除Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, n
For i = 1 To n
Input #1, x
ans = 0
For j = 1 To x
Input #1, a
ans = ans + a
Next j
Print #2, Format(ans / x, "##0.0#")
Next i
Close #1
Close #2
End Sub
阿瑋好，
回覆刪除程式正確。
阿揚好，
現在知道題目的意思了吧。
了解題目是非常重要的，比賽的時候，是沒有別人可以解釋的哦。
Private Sub Form_Load()
回覆刪除Open App.Path & "/out.txt" For Output As #2
Open App.Path & "/in.txt" For Input As #1
Input #1, x
For i = 1 To x
Input #1, w
q = 0
For j = 1 To w
Input #1, e
q = q + e
Next j
Print #2, Format(q / w, "##0.00")
Next i
Close #2
Close #1
End Sub
Private Sub Form_Load()
回覆刪除Open App.Path & "/in.txt" For Input As #1
Open App.Path & "/out.txt" For Output As #2
Input #1, n
For i = 1 To n
Input #1, m
All = 0
For j = 1 To m
Input #1, w
All = All + w
Next j
Print #2, Format(All / m, "##0.0#")
Next i
Close #2
Close #1
End Sub
Y揚、高仔好，
回覆刪除當看懂了題目，有時候會發現，簡單的可笑呢。你們的程式都OK.
Dim aa(100) As Integer
回覆刪除Private Sub Form_Load()
Open App.Path & "\in.txt" For Input As #1
Open App.Path & "\out.txt" For Output As #2
Input #1, n
For i = 1 To n
Line Input #1, x
Sum = 0
b = Split(x)
For j = 1 To UBound(b)
aa(j + 1) = b(j)
Sum = Sum + aa(j + 1)
Next j
k = b(0)
Print #2, Format(Sum / k, "##0.00")
Next i
Close #2
Close #1
End Sub
小白好，
回覆刪除正確。