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

正整数n若是它平方数的尾部，则称n为同构数。

工具/原料

联想2020

Win11

VB6.0

方法/步骤

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

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

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

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

5、按F5运行测试。