Obtenha um dígito, dez e cem, amigos, amigos que precisam, podem se referir a ele.
Função NumbersPlit (num) dim i, comprimento do comprimento = len (num) para i = 1 para números de comprimento plit = Numbersplit & num mod 10 &, 'restante num = num/ 10' it = esquerd (número -1) Função final