Obtenga el código de las unidades, decenas y centenas de un número. Los amigos que lo necesiten pueden consultarlo. Copie el código de código de la siguiente manera:
FunciónNúmeroDividir(núm)
tenue i, longitud
longitud=Len(núm)
Para i=1 A longitud
NumberSplit=NumberSplit & num mod 10 & , 'resto
núm = núm / 10 'Divisible
Próximo
NúmeroDividido=Izquierda(NúmeroDividido,Len(NúmeroDividido)-1)
Función final