1、首先启动VB6.0，新建一个标准exe工程。
3、双击命令按钮进入代码窗口。
5、编写a函数过程，使用Do....loop While 进行各个位数分解判断，如果相等返回TRUE，否则返回FALSE。
