不曉得平均 =  =怎弄 !!

懇求幫解惑~!!


Module Module1

Sub Main()
Dim score(19, 4) As Integer
Dim i, j As Integer
Dim StuSum(19), StuAvg(19), SubSum(4), SubAvg(4) As Integer
Dim sum, avg As Integer


Randomize()
For i = 0 To 19
For j = 0 To 4
score(i, j) = CInt(Int((99 - 50 + 1) * Rnd() + 50))
Next
Next
Console ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

搞那麼麻煩，舉體說明一下你要的樣子好嗎