VB输出所有四位完全平方数的和（完全平方数形如aabb,即前两位数字相等,后两位数字也相等）其中还要符合一个条件（四位完全平方数的数形还要是aabb,即前两位数字相等,后两位数字也相等

Question

VB输出所有四位完全平方数的和（完全平方数形如aabb,即前两位数字相等,后两位数字也相等）
其中还要符合一个条件（四位完全平方数的数形还要是aabb,即前两位数字相等,后两位数字也相等这个条件）不用窗体做,

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
'判断,还用我写下去吗?哈哈