VB程序设计：优化单分支结构实例