用VB6.0找出所有的Armstrong数

1、首先启动VB6.0，新建一个标准exe工程。

3、双击命令按钮进入代码窗口。

5、编写a函数过程，使用Do....loop While 进行各个位数分解判断，如果相等返回TRUE，否则返回FALSE。