Option Strict On
Public Module ContinueStatement
Public Sub Main()
For ctr As Integer = 1 to 100
If ctr Mod 2 = 1 Then
Console.Write("{0} is odd", ctr)
Else
Console.WriteLine("{0} is even.", ctr)
Continue For
End If
If ctr Mod 3 = 0 Then
Console.Write(" and it is divisible by 3")
End If
If ctr Mod 5 = 0 Then
Console.Write(" and it is divisible by 5")
End If
If ctr Mod 7 = 0 Then
Console.Write(" and it is divisible by 7")
End If
Console.WriteLine()
Next
End Sub
End Module
|