斐波那契數列求和（1 2 3 5 8 13 21.....） - pochonlee

Imports System
Imports System.Collections.Generic
Imports System.Text
Imports System.Data
Imports System.Collections
 
Namespace ConsoleApplication1
    Class Program
        Shared  Sub Main(ByVal args() As String)
                Dim iArray() As Integer =  New Integer(22) {}
                iArray(0) = 0
                iArray(1) = 1
                Dim sum As Integer = 0
                Dim i As Integer
                For  i = 2 To  21 Step  i + 1
                    iArray(i) = iArray(i - 1) + iArray(i - 2)
                    sum = sum + iArray(i)
                Next
                Console.WriteLine(sum)
        End Sub
    End Class
End Namespace




using System;
using System.Collections.Generic;
using System.Text;
using System.Data;
using System.Collections;

namespace ConsoleApplication1
{
    class Program
    {
        static void Main(string[] args)
        {
                int[] iArray = new int[22];
                iArray[0] = 0;
                iArray[1] = 1;
                int sum=0;
                for (int i = 2; i <= 21; i++)
                {
                    iArray[i] = iArray[i - 1] + iArray[i - 2];
                    Console.WriteLine(iArray[i]);
                    sum = sum + iArray[i];
                }
                Console.WriteLine(sum);
        }
    }
}