用VB6.0找出的守型数（同构数）

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

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

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

4、编写命令按钮的单击事件。（详细过程请看代码中的绿色注释）

5、按F5运行测试。