Question

跪求：如何用VB比较二维数组的大小

5名同学4科成绩，用VB求各科的最高成绩 算法是什么
？
并求各科平均成绩、不及格成绩、并按照总分数降序排列......下面是我的做法，还请各位大侠帮忙改一下，好的话给加分哈~~~

Dim a%(5, 4), b%(3, 5), xm$(5), i%, j%, t%
Dim max%, aver!(5), averange!(4)
Print "原始数据为："
For i = 1 To 5
xm(i) = InputBox("输入学生姓名")
Print xm(i);
For j = 1 To 4
a(i, j) = InputBox("输入成绩")
Print a(i, j);
Next j
Print
Next i
For i = 1 To 5
For j = 1 To 4
If a(i, j) < 60 Then Print "不及格成绩="; a(i, j); ; i
Next j

For i = 1 To 4
averange(i) = 0
For j = 1 To 5
b(i, j) = a(j, i)
averange(i) = averange(i) + b(i, j)
Next j
averange(i) = averange(i) / 5
Print "各科平均成绩averange (" & i & ")"; averange(i)
Next i

End Sub

个人能力有限最高成绩和排序的算法写不出来了...希望最好能在原基础上改一下...

Answer 1

设数组是aa(5,4)
Dim max(4)
Dim i as integer,j as integer
For i = 1 to 4
max(i)=aa(1,i)
For j= 1 to 5
If aa(j,i)> max(i) Then max(i)=aa(j,i)
Next
Pring max(i)
Next