30 lines
378 B
Plaintext
30 lines
378 B
Plaintext
Module checkSelect {
|
|
long m, i, k
|
|
for k=1 to 10
|
|
m=10
|
|
i=random(5, 10)
|
|
select case i
|
|
case <6
|
|
print "less than 6"
|
|
case 6
|
|
{
|
|
m++: break // break case block, and continue to next block
|
|
}
|
|
case 7
|
|
{
|
|
m++: break
|
|
}
|
|
case 8
|
|
{
|
|
m++: continue // exit after end select
|
|
}
|
|
case 9
|
|
print "is 9"
|
|
case else
|
|
print "more than 9"
|
|
end select
|
|
print m, i
|
|
next
|
|
}
|
|
checkSelect
|