循环结构

1.for...next循环语句
{格式}

for<循环变量>=<初值>to<终值>[step<步长>]
      <语句块>
       [Exit for]
        [语句块]
next    循环变量



例子: 某设备厂 2004年的产值是500万元,计划年增长9%,计算并输出2008年,2012年,2016年的产值.

Module Module1Module Module1

    Sub Main()Sub Main()
        Dim v, r As Single
        Dim i As Integer
        v = 500 : r = 0.09
        Console.WriteLine("2004年的年产值是500万元")
        For i = 2005 To 2020
            v = v * (1 + r)
            If i Mod 4 = 0 Then
                Console.WriteLine(CStr(i) + "年产值" + CStr(v) + "万元")
            End If
        Next
        Console.ReadLine()
    End Sub

End Module