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...