Получите цифру, десять и сотню кода, друзья, которые нуждаются в ней, могут ссылаться на нее.
Функции NumbersPlit (num) Dim i, длина длины = len (num) для i = 1 к длине numberplit = numberplit & num mod 10 &, 'оставшийся num = num/ 10' it = слева (numberplit, len (numberplit) -1) конечная функция