不晓得平均 =  =怎弄 !!

恳求帮解惑~!!


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 可以看到全部内容

搞那么麻烦，举体说明一下你要的样子好吗