En raison des exigences du projet, les nombres minuscules doivent être convertis en nombres majuscules. J'espère que vous pourrez en tirer des leçons.
fonction int2chn(n)
dim i,j,k,strlen,retval,x,y,z,str
z=tableau(zéro, un, deux, trois, quatre, cinq, six, sept, huit, neuf)
y=tableau(,十,百,千)
x = Tableau (, millions, milliards, billions)
strlen=len(n)
chaîne1=n
pour i= 1 à strlen
j=milieu(str1,i,1)
retval=retval&z(j)
si j>0 alors retval=retval&y((strlen-i) mod 4)'si supérieur à zéro, ajouter des caractères décimaux
retval=replace(retval,z(0)&z(0),z(0))' Il y a deux zéros et il n'en reste qu'un.
if ((strlen-i) mod 4)=0 et right(retval,1)=z(0) then retval=left(retval,len(retval)-1)'Ajoutez tous les quatre chiffres pour avancer
if ((strlen-i) mod 4)=0 then retval=retval&x(int((strlen-i)/4))'Supprimer le dernier zéro
suivant
int2chn=valeur
fonction de fin