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)max(i) Then max(i)=aa(j,i) Next Pring max(i)Next... |