大一vb实验源代码,求1000以内的水仙花数和个数并输出