引用 | 編輯
taiwanplope
2010-11-08 10:24 |
樓主
▼ |
||
x0
不曉得平均 = =怎弄 !!懇求幫解惑~!! 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 .. 訪客只能看到部份內容,免費 加入會員 x0
|