计算所有满足个位数字加上百位数字等于十位加上千位数字的四位数, 求代码

Public Sub test()Dim i As IntegerDim a As IntegerDim b As IntegerDim c As IntegerDim d As IntegerFor i = 1000 To 2000a = Int(i / 1000)b = Int((i - a * 1000) / 100)c = Int((i - a * 1000 - b * 100) / 10...