dim a() as integer
p=inputbox("Input data:")
if p<0 then msgbox("no data!!!!!!!!!"):exit sub
do
i=i+1
redim preserve a(i-1)
a(i-1)=p
p=inputbox("Input data:")
loop until p<0
for l=0 to i-1
s=s+a(l)
next l
ave=s/(i-1)
for l=0 to i-1
if a(l)
msgbox("平均成绩:" & str(ave) & chr(13) & chr(10) & "低于平均成绩人数:" & str(flag))
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024