Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de crecimiento demográfico de programación VB

Problema de crecimiento demográfico de programación VB

Private Sub Form_Load()

Dim a, b As Long

a = 6000000000#

Hacer mientras a lt = 7000000000#

a = a a * 0.014

b = b 1

Bucle

MsgBox "*** Necesario" amp b amp "Año llegará " amp; ; Int(a) amp; "Población"

End Sub