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