include "mapbasic.def"
declare sub main
sub main
dim aaa,fs as integer
dim dengji as string
fs=9
aaa=int(fs/10)
do case aaa
case 9,10
dengji = "优秀"
case 8
dengji = "良好"
case 7
dengji = "中等"
case 6
dengji = "及格"
case 0,1,2,3,4,5
dengji = "不及格"
case else
dengji = "数据有误"
end case
note dengji
end sub
declare sub main
sub main
dim aaa,fs as integer
dim dengji as string
fs=9
aaa=int(fs/10)
do case aaa
case 9,10
dengji = "优秀"
case 8
dengji = "良好"
case 7
dengji = "中等"
case 6
dengji = "及格"
case 0,1,2,3,4,5
dengji = "不及格"
case else
dengji = "数据有误"
end case
note dengji
end sub