AideRésolu

Question

Salut à tous. Je m'initie à VB et je voudrais savoir comment faire pour transformer un mot en une somme exemple:
poisson
p=2
o=6
i=3
....poisson=22 par exemple

Tilois · Accepted Answer

dim somme as long
somme=0
for i=1 to len(mot)
somme=somme+valeur(mid$(mot,i,1))
next i
debug.print somme

function valeur(m as string) as integer
dim retour as long
select case (m)
case p
retour=2
case o
retour=6
....
end select
valeur=retout
end function