VB：求出n个学生一门课程中的最高成绩、最低成绩及高于平均成绩的人数

Question

求出n个学生一门课程中的最高成绩、最低成绩及高于平均成绩的人数
用VB编程~谢谢！

Answer 1

先用一个循环把N个学生的成绩装入数组a(n)中,然后在用一个for循环把最高分和最低分找出,同时把这门课的平均分求出,最后用一个for循环把高于平均分的人数求出
部分代码:

我这里就假如是在文件中读出了的(d:\student.txt里面放的学生的成绩)依具体情况而定
open "d:\student.txt" for input as #1
do while not eof(1)
Input #1, str
a(n)=val(str)
n=n+1
loop

for x=0 to n-1 '求平均分,最高分,最低分
sum=sum+a(x) '求总分
if top(初始为a(0)或a(n)都可以)<a(x) then
top=a(x)
end if
if lowe(初始为a(0)或a(n)都可以)>a(x) then
lowe=a(x)
end if
next
avg=sum/n '平均分

for x=0 to n-1 then '求高于平均分的人数啊
if a(x)>avg then
y=y+1 '用在存放高于平均分的人数
end if
next
...............
.............
hehe

Answer 2

sub sub1(list(),maxF,minF,counts)'maxF返回最高成绩minF返回最低成绩counts返回高于的人数
dim sum,people
maxF=0:minF=100
people=ubound(list)-lbound(list)+1
for i =lbound(list) to ubound(list)
if list(i)>maxF then maxF=list(i)
if list(i)<minF then minF=list(i)
sum=sum+list(i)
next i
sum=sum/people
for i =lbound(list) to ubound(list)
if list(i)>sum then counts=oounts+1
next i
end sub

Answer 3

sub
sub1(list(),maxF,minF,counts)'maxF返回最高成绩minF返回最低成绩counts返回高于的人数
dim
sum,people
maxF=0:minF=100
people=ubound(list)-lbound(list)+1
for
i
=lbound(list)
to
ubound(list)
if
list(i)>maxF
then
maxF=list(i)
if
list(i)<minF
then
minF=list(i)
sum=sum+list(i)
next
i
sum=sum/people
for
i
=lbound(list)
to
ubound(list)
if
list(i)>sum
then
counts=oounts+1
next
i
end
sub