vb输出所有四位数的玫瑰花数