Svp aidez moi pour terminer cette algorithme :(

Svp je suis besoin de terminer cette algorithme et de le correcter

c'est de convertir d'un nombre entier vers les autres bases ( 2;8;16) ;

(l'algorithme c'est : )


private sub cv_click()



if n = "0" then

"nb="0":no ="0":nh="0

else

(d= val(n

while d <>0

r= d mod2

nb= str(r) & nb

d=d/2

whend





(d= val(n

while d <> 0

r= d mod8

no= str(r) & no

d=d/8

whend



"ici c'est l'algorithme pour la base 16 "
je ne sais pas le terminer


end if

end sub

remarque ;

dont : n = nombre entier
no = nombre octal
nh = nombre hexadecimal
nb = nombre binnaire


please j'attend vos réponses
il faut pour demain "inchaallahe"