实现类person 包括成员变量 dbdistance 方法 work()用raiseevent 触发事件 并用event申明一个事件 worked Public Class person Class person Public dbdistance As Double Public Event walked(