菜鸟捉虫(23)
?牐犑紫龋琌n Error GoTo Loop语句不能跨越函数的作用域范围；其次，工作变量Result是一个整型，如遇A除以B有余数，则会自动四舍五入，所以Result的值遇A除以B有余数时就不正确了。
?牐犠ⅲ喝羰褂肦esume 语句（当然，用其它的方法也可），如果错误和错误处理程序出现在同一个过程中，则从产生错误的语句恢复运行。如果错误出现在被调用的过程中，则从最近一次调用包含错误处理程序的过程的语句处恢复运行。
#1?牐犘薷暮蟮某绦蛉缦拢?
?牐燩rivate Sub command1_click（）
?牐燚im A As Double，B As Double，Result As Double
?牐燨n Error GoTo Loop1
?牐燗 = Val（Text1.Text）
?牐燘 = Val（Text2.Text）
?牐燫esult = A / B
?牐燭ext3.Text = Result
?牐燛xit Sub
?牐牐?//去掉子程序ErrorFunc，加入如下代码
?牐燣oop1:
?牐燤sgBox "除数不能为零"
?牐燛nd Sub
?牐犚韵率堑?21期“菜鸟捉虫”幸运读者名单（奖品为最新的《电脑报配套光盘》系列中的一款）
?牐犔旖? 黄 燕 山东 翟海军 吉林 张双
?牐犝憬? 李海江 四川 党卫中
#1?牐牨酒谔饽浚?
?牐犗钟幸怀绦颍涔δ苁鞘迪帧胺勺旨际酢薄Ｒ笫迪肿痔宕幼笾劣掖┰狡聊幌Ш螅俅窝反┰狡聊坏墓獭１境绦蛑杏幸桓鯨abel和1个Timer控件。Label1的Caption属性设置为“欢迎光临”。但运行程序后却达不到预想的效果，请找出其中的错误。
?牐燩rivate Sub Form_Load（）??
?牐燣abel1.Left = -Label1.Width
?牐燛nd Sub
?牐燩rivate Sub Timer1_Timer（）??
?牐燣abel1.Left = Label1.Left + 50
?牐燣abel1.Move Label1.Left
?牐燛nd Sub