Vb用随机函数产生20个值为20—80的整数，赋值给一个五行四列的二维数组，求出其中行平均值最大的行

Question

如题所述

Answer 1

Private Sub Form_click()
Me.Cls
Dim s(1 To 5, 1 To 4) As Integer
Dim i, j, t As Integer
Dim num(1 To 5), max As Single
For i = 1 To 5
t = 0
  For j = 1 To 4
    s(i, j) = Int(61 * Rnd + 20)
    t = t + s(i, j)
    Print s(i, j); Space(2);
  Next j
  Print
  num(i) = t / 4
Next i
Print
max = num(1)
j = 1
For i = 1 To 5
  If num(i) > max Then
     max = num(i)
     j = i
  End If
Next i
Print "均值最大的行是第" & j & "行"
End Sub

效果如图：

Answer 2

for i = 0 to 4
for j = 0 to 3
array[i][j] = Int((80 * Rnd) + 20)

next j
next i
以上，是赋值。好久没写VB6了，大致思路至少是对的
接着，求均值
for i = 0 to 4
for j = 0 to 3
if j <> 0 then
array[i][0] = array[i][0] +array[i][j] ’注释1：节省变量，直接相加给当前行的第一个数

end if
next j
array[i][0] = array[i][0] / 5 '注释2：节省变量，直接求均值给第一个数
next i
然后我不写了。尼玛累死了。。反正所有均值都在每行第一个数里
怎么排序求最大值，你自己看着办吧。。