内容如下:
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
第1个回答 2014-02-16
是啊,我也遇到过,我的是对象没有定义。。。
你的for后[]是什么意思,不用去掉吗?
else if难道可以多一个空格在else和if中间吗?觉得应该是多个空格,其他没看。。。。
end if应该只有两个你连续六个了
end if
end if
end if
end if
end if
end if
你if(score<0)
if后没留空格
你
msgbox"良好",64,"成绩查询器"
msgbox后 "良好"前也没留空格。。。
算了。。。。问题太多了。。。。
if ctr=ctr then
这句有两个错误,=改成==,另一个错误,一眼就看出了,逻辑错误
你才学vbs吧
你的for后[]是什么意思,不用去掉吗?
else if难道可以多一个空格在else和if中间吗?觉得应该是多个空格,其他没看。。。。
end if应该只有两个你连续六个了
end if
end if
end if
end if
end if
end if
你if(score<0)
if后没留空格
你
msgbox"良好",64,"成绩查询器"
msgbox后 "良好"前也没留空格。。。
算了。。。。问题太多了。。。。
if ctr=ctr then
这句有两个错误,=改成==,另一个错误,一眼就看出了,逻辑错误
你才学vbs吧