内容如下:
dim ctr,score
ctr=0
ctr=ctr+1
for
ctr=CDbl(inputbox("请输入查询次数","成绩查询器"))
for
[
score=CDbl(inputbox("请输入成绩","成绩查询器"))
if ctr=ctr then
msgbox"正在退出程序",64,"成绩查询器"
exit for
exit for
else
if(score<0) then
msgbox"成绩出错",16,"成绩查询器"
else if(score>100) then
msgbox"成绩出错",16,"成绩查询器"
else if(score<60) then
msgbox"不合格",64,"成绩查询器"
else if(score<85) then
msgbox"合格",64,"成绩查询器"
else if(score<92) then
msgbox"良好",64,"成绩查询器"
else if(score<100) then
msgbox"优秀",64,"成绩查询器"
else
msgbox"满分",64,"成绩查询器"
end if
end if
end if
end if
end if
end if
]
next
next