ajuda urgente programação

preciso de ajuda num trabalho de programação em VBA sff

Fazer um programa que leia do utilizador um nº inteiro positivo, e indique o nº de ocorrencias de cada algarismo (0-9)

por exemplo:
nº: 1123
ocorrencias de algarismos em 1123: 1 aparece 2 vezes, 2 aparece uma vez e 3 aparece uma vez.

não sei bem como fazer a contagem dos numeros, agradeço ajuda

pauloamf disse:

preciso de ajuda num trabalho de programação em VBA sff

Fazer um programa que leia do utilizador um nº inteiro positivo, e indique o nº de ocorrencias de cada algarismo (0-9)

por exemplo:
nº: 1123
ocorrencias de algarismos em 1123: 1 aparece 2 vezes, 2 aparece uma vez e 3 aparece uma vez.

não sei bem como fazer a contagem dos numeros, agradeço ajuda

Clique para expandir...

admitindo que o input esta a ser numa textbox (vou lhe chamar txtnum) aqui vai uma rapidinha :

============================================
dim n0 as integer, n1 as integer, n2 as integer, n3 as integer, n4 as integer, n5 as integer, n6 as integer, n7 as integer, n8 as integer, n9 as integer

dim x as integer

n0=0
n1=0
n2=0
n3=0
n4=0
n5=0
n6=0
n7=0
n8=0
n9=0

for x=1 to len(txtnum.text)
select case mid(txtnum.text,x,1)
case 0
n0=n0 + 1
case 1
n1=n1 + 1
case 2
n2=n2 + 1
case 3
n3=n3 + 1
case 4
n4=n4 + 1
case 5
n5=n5 + 1
case 6
n6=n6 + 1
case 7
n7=n7 + 1
case 8
n8=n8 + 1
case 9
n9=n9 + 1
end select
next x
================================================

agora as variaveis n0...n9 tem o numero de vezes desse algarismo

espero k isto ajude