UC知道用vb机解决一问题
来源：百度知道 编辑：UC知道 时间：2024/05/09 15:47:04
设某班共10名学生，为了评定某门课程的奖学金，按规定超过全班平均成绩10%者发给一等奖学金，超过全班成绩5%者发给二等奖学金，试编制程序，输出应获奖学金的学生名单（包括姓名、学号、成绩、奖学金等级）
dim A(1 to 10) as string,B(1 to 10) as string,C(1 to 10) as integer,D(1 to 10) as string,i as integer, s as single
for i=1 to 10
A(i)=inputbox("请输入学生姓名：")
B(i)=inputbox("请输入学生学号：")
C(i)=inputbox("请输入学生成绩：")
s=s+C(i)
next i
s=s/10
for i=1 to 10
if C(i)>s*1.1 then
D(i)="一等"
elseif C(i)>s*1.05 and C(i)<=s*1.1 then
D(i)="二等"
else
D(i)=""
end if
next i
for i=1 to 10
if d(i)<>"" then
print A(i);space(2);B(i);space(2);C(i);space(2);D(i)
end if
next i