arthurliu's blog

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim num(999999) As Integer
        num(0) = 1
        num(1) = 1
        For i As Integer = 2 To 999999
            num(i) = num(i - 2) + num(i - 1)
            If num(i) >= 1836311903 Then Exit For
        Next
        For i As Integer = 0 To 999999
            If num(i) = 0 Then
                Exit For
            Else
                Response.Write("num(" & i & ")=" & num(i) & "
")
            End If
        Next
    End Sub
End Class