VB: escriba un subproceso para calcular y generar la suma de cada dígito para un entero positivo n específico. Si n=12 345, entonces 1+2+3+4+5=15

sub calc(n mientras) mientras

dim strNum as string

dim i mientras

strNum=format(n )

para i=1 a len(strNum)

nSum=nSum+val(mid(strNum,i,1))

siguiente i

imprimir nSum

end sub