育才初中:程序对否?VB爱好者来呀

来源:百度文库 编辑:神马品牌网 时间:2024/05/05 17:46:47
sub asp()
dim s as string 's为学生成绩分数情况
dim g as double 'g为学生成绩
g=60
if g<60 then
s="不合格"
elseif g>=60 and g<=80 then
s="合格"
else
s="优秀"
end if

程序没有什么错。
g用Single型就可以了。

意思是这个意思,但是不知道是不是符合你自己的要求呢?