作者watashibobo ()
看板Visual_Basic
標題[.NET] .net的陣列問題 煩請各位幫我解答
時間Thu Aug 10 19:44:17 2006
各位好 我很久沒碰程式 最近剛接觸.net
學到陣列的地方就卡卡的 麻煩大家幫我一下 先謝過各位了 >"<
這個題目是 輸入多項N值之後 然後求其加總 還有總平均
最後順便將之前輸入過的值由大到小降冪排序
(1)請看我在陣列的地方解釋的是否正確
(2)排序法的地方我實在看不懂,為什麼要加"RECC"
以是下程式碼
Sub Main()
Dim N(10) As Integer
Dim I = 0
Dim S = 0
Do
N(0) = InputBox("KEY-IN N:", "BUY", 0)
If N(0) = 0 Then Exit Do
If N(0) > 0 Then
I += 1 : N(I) = N(0)
S += N(I)
Else
MsgBox("DATA WRONG", , "REYURN")
End If
Loop While I <> 10
If I = 0 Then Exit Sub
'把N(0)這個位置的數值由外部輸入值指定,若是0則跳出;若大於0則再往下
'I值每次迴圈便再加一,陣列的第I個位置數值則是由剛剛輸入的數指定
'S則每次加總 爾後迴圈若是I不等於10 則繼續下去
'這樣解釋有沒有問題呢?
Dim MSGTXT = "SUM=" & S & Chr(13)
MSGTXT += "AVG" & Format(S / I, "F") & Chr(13)
MSGTXT += "COUNT=" & I & Chr(13)
MsgBox(MSGTXT, , "REPORT")
Dim RECC = I, J
For I = 1 To RECC - 1
For J = I + 1 To RECC
If N(I) < N(J) Then
N(0) = N(I)
N(I) = N(J)
N(J) = N(0)
End If
Next
Next
For I = 1 To RECC
Console.WriteLine(N(I))
'可不可以跟我解釋一下 從上面宣告RECC開始,到現在是在做什麼?? ^^"
Next
Console.Read()
End Sub
End Module
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 220.139.249.211