try
for i = 1 to 100
for r = 1 to 100
for l = 1 to 100
if rand(i+r+l)>100 then
RuntimeError for1
for1 = create RuntimeError
for1.setmessage('i,r,l之和不应该大于100')
throw for1
end if
next
next
next
catch (RuntimeError er1)
messagebox('警告','发生运行态异常:'+ er1.getmessage() +&
'~r~n'+string(i)+':'+string(r)+':'+string(l))