作者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