用VB6.0找出所有的Armstrong数

工具/原料

• 联想2020
• Win11

方式/步骤

1. 1

   首先启动VB6.0，新建一个尺度exe工程。

   
2. 2

   在窗体上绘制一个号令按钮，名称为Command1。

   
3. 3

   双击号令按钮进入代码窗口。

   
4. 4

   假设有一个名为a的函数过程进行挪用，从100到99999一一查找。可以选择计数轮回For....Next语句。

   
5. 5

   编写a函数过程，利用Do....loop While 进行各个位数分化判定，若是相等返回TRUE，不然返回FALSE。

   END

注重事项

• 肆意一个玫瑰花数、水仙花数、五角星数都是Armstrong数。
• 将各个位数进行分化也可以采用Mid函数字符串分化。
• 只要点窜查找规模可以肆意转换为玫瑰花数、水仙花数、五角星数