VB.NET 应用：sum=1+1/2+2/3+3/5+5/8+...

        Dim a%, b%, count%
        Dim Item As Single, t As Integer
        Dim sum As Single
        sum = 1
        a = 1 : b = 1
        Do
            t = a + b
            Item = a / t
            sum = sum + Item
            count += 1
            Label2.Text &= a & " "
            a = t
            Label3.Text &= b & " "
            b = a + b
        Loop Until count > 5
        Label4.Text = "count=" & count & vbCrLf
        Label4.Text &= "sum=" & sum