找出100~1000之内满足下列条件的数据,各位数字的立方和等于本数.如何用写VB程序代码

Public Sub t1()Dim i,a,b,c,d As IntegerFor i = 100 To 1000a = i \ 1000b = i \ 100 Mod 10c = i \ 10 Mod 10d = i Mod 10If a ^ 3 + b ^ 3 + c ^ 3 + d ^ 3 = i ThenDebug.Print iEnd IfNext iEnd Sub运行结果：...