VB 求所有的三位数，要求数中有两位数字相同 且该数是一个完全平方数

Question

请高手帮我编下这个代码。
请给个完整的代码吧!

Answer 1

这个问题要用逆向思维。明白了吗？
就是说考察a的平方，把其中有两位数字相同的保存下来（显示出来）、

手写的，没测试：

for a=10 to 31
'分离数字
x=int(a*a/100)
y=int((a*a-100*x)/10)
z=a*a-100*x-10*y
'判断，还用我写下去吗？ 哈哈
....

next
.................黑龙江省巴彦县兴隆镇 张志晨....................
.............. 奉献知识........收获愉快..................

Answer 2

什么叫完全平方数