第四节 VB函数编制实例