求助，有段程序看不懂

'本段程序，负责筛选10-19数据的平方中不包含重复数据的数值。
'如 13 ^2 = 196 ，无重复。 15^2 =225 ，有2重复。
For x = 10 To 19            '10-19
Y = x * x                   'X的平方
Do While Y > 0                  'Y〉0
    W = Y Mod 10                '取个位数
    If a(W) = 1 Then Exit Do        '如果该数据已使用，退出循环1
    a(W) = 1: Y = Y \ 10: Loop      '否则，设置已使用一次，Y再缩小10倍，也就是把10位变成个数，以便下一次循环使用
    If Y = 0 Then Print x * x       '如果Y缩小到了为0，也就是所有的数据都测试过了，没有中途退出循环，那么就适合要求的数据，输出
Erase a                 '把各元素重置为0
Next x

没看懂你的解释。只看懂的程序，与你的解释搭不下。

不好意思，是我打错了，不是互补相同，是互不相同
这两天有事，所以没有来！抱歉！没有及时说明！