第３講 繰り返し処理for文
第２話 第１話問題解答例
�@　２＋３＋４＋・・・＋９９
解答例
Module Module1

　　Sub Main() '私は社長だ。
　　　　Dim a, i As Integer 'aは整数を入れる箱を用意　iはFor文の制御変数
　　　　a = 0 '初期化
　　　　'以下計算
　　　　For i = 2 To 99
　　　　　　a += i
　　　　Next
　　　　'以上計算
　　　　Console.WriteLine("2+3+4+･･･+99={0:d}", a)
　　End Sub

End Module
実行結果
2+3+4+･･･+99=4949


�A　３＋５＋７＋・・・＋１０１
Module Module1

　　Sub Main() '私は社長だ。
　　　　Dim a, i As Integer 'aは整数を入れる箱を用意　iはFor文の制御変数
　　　　a = 0 '初期化
　　　　'以下計算
　　　　For i = 3 To 101 Step 2
　　　　　　a += i
　　　　Next
　　　　'以上計算
　　　　Console.WriteLine("3+5+7+･･･+101={0:d}", a)
　　End Sub

End Module
実行結果
3+5+7+･･･+101=2600

では次の問題です。
１×２×・・・×８
を計算させてください。