Programación en VB, el problema de hacer crecer un árbol acumulando multiplicadores
Puede ejecutar el siguiente código para calcular el año para cualquier valor:
Dim tree As Integer
Dim Year As Integer
n=val(inputbox(" Ingrese un árbol :", "hint")
Hacer mientras árbol lt; n
árbol = árbol 2 ^ año
año = año 1
Loop
MsgBox ("El año correspondiente es: " amp; año)
Esta es la primera vez que se ingresa al árbol