用VB6.0找出所有的Armstrong数

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

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

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

4、假设有一个名为a的函数过程进行调用，从100到99999逐一查找。可以选择计数循环For....Next语句。

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