Una pregunta de programación de VB: la población actual de mi país es de 1.300 millones. Suponiendo que la tasa de crecimiento anual sea de 0,8, escriba un programa para calcular cuántos años aumentará la población a 2.600 millones.

'El resultado del cálculo es que la población alcanzará los 2.600 millones (2600217314) después de 1987

función n() como número entero

'Valor de retorno = la población aumentará de 13 Número de años necesarios para aumentar de mil millones a 260 000

dim dqrk como doble, ns como entero

dqrk=1300000000

rk dqrk, ns

n=ns

función final

sub rk(byref dqrk como doble, byref ns como entero)

'dqrk población actual , ns años

dqrk=dqrk*1.008

ns=ns 1

if dqrk lt; 2600000000 then rk dqrk, ns 'Llamado recursivamente cuando la población es menos de 2.600 millones

end sub