Imports System.windows.forms
Module Module1
    Sub Main()
        Dim year As Integer
        Dim p As Double
        While (p <= 1000000)

            p = p * (1 + 0.05) + 1000
            year = year + 1
        End While
        MessageBox.Show("至少需要" & year - 1 & "年", year - 1)


    End Sub

End Module