VB如果一个四位数 玫瑰花数 编程