Programación VB: Suponga que la longitud del papel es lo suficientemente larga y el grosor es de 0,1 mm. El grosor se duplica una vez doblado por la mitad. Ahora doble el papel por la mitad hasta que el grosor total supere el Everest.
subcomando privado1_click()
m=0.1
hacer hasta m>88481300
m=m*2
i=i+1
bucle
msgbox "Número de pliegues:" & i
fin del sub