' Visual Basic 2008 9.0 .NET Examples - Nested Structures - Introduction to Visual Basic : 
Module Example1
    Sub Main()
        Console.WriteLine("Value ?")
        Dim value As Integer = Console.ReadLine()
        '
        If value = 0 Then
            Console.WriteLine("Zero.")
        Else
            If value > 0 Then
                Console.WriteLine("Above zero.")
            Else
                Console.WriteLine("Bellow zero.")
            End If
        End If
        '
        Console.ReadLine()
    End Sub
End Module
Module Example2
    Sub Main()
        Dim baseValue As Integer = 1
        '
        Do While baseValue < 10
            Console.WriteLine(baseValue)
            baseValue = baseValue + 1
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
Module Example3
    Sub Main()
        Dim baseValue As Integer = 5
        Dim factor As Integer = 1
        Dim multiplication As Integer
        '
        Do While factor < 10
            multiplication = baseValue * factor
            Console.WriteLine(baseValue & " x " & factor & " = " & _
                              multiplication)
            factor = factor + 1
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
Module Example4
    Sub Main()
        Dim baseValue As Integer = 1
        Dim factor As Integer = 1
        Dim multiplication As Integer
        '
        Do While baseValue < 10
            Do While factor < 10
                multiplication = baseValue * factor
                Console.WriteLine(baseValue & " x " & factor & " = " & _
                                  multiplication)
                factor = factor + 1
            Loop
            baseValue = baseValue + 1
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
Module Example5
    Sub Main()
        Dim baseValue As Integer = 1
        Dim factor As Integer = 1
        Dim multiplication As Integer
        '
        Do While baseValue < 10
            Do While factor < 10
                multiplication = baseValue * factor
                Console.WriteLine(baseValue & " x " & factor & " = " & _
                                  multiplication)
                factor = factor + 1
            Loop
            baseValue = baseValue + 1
            factor = 1
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
Module Example6
    Sub Main()
        Dim value As Integer = 5
        '
        If value Mod 2 = 0 Then
            Console.WriteLine(value & " is even.")
        Else
            Console.WriteLine(value & " is odd.")
        End If
        '
        Console.ReadLine()
    End Sub
End Module
Module Example7
    Sub Main()
        Dim value As Integer
        '
        Do While value < 10
            value = value + 1
            If value Mod 2 = 0 Then
                Console.WriteLine(value & " is an even number")
            Else
                Console.WriteLine(value & " is an odd number")
            End If
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
Module Exercise1Solution
    Sub Main()
        Dim value As Integer
        Dim highestValue As Integer
        '
        Do While value >= 0
            Console.WriteLine("Value ?")
            value = Console.ReadLine()
            '
            If value > highestValue Then
                highestValue = value
            End If
        Loop
        '
        Console.WriteLine("Highest Value : " & highestValue)
        '
        Console.ReadLine()
    End Sub
End Module
Module Exercise2Solution
    Sub Main()
        Dim value1, value2 As Integer
        Dim smallestValue, highestValue As Integer
        '
        Console.WriteLine("Value ?")
        value1 = Console.ReadLine()
        Console.WriteLine("Value ?")
        value2 = Console.ReadLine()
        '
        If value1 > value2 Then
            highestValue = value1
            smallestValue = value2
        Else
            highestValue = value2
            smallestValue = value1
        End If
        '
        Console.WriteLine("Row :")
        Do While smallestValue + 1 < highestValue
            Console.WriteLine(smallestValue + 1)
            smallestValue = smallestValue + 1
        Loop
        '
        Console.ReadLine()
    End Sub
End Module
Module Exercise3Solution
    Sub Main()
        Console.WriteLine("Value ?")
        Dim value As Integer = Console.ReadLine()
        '
        Console.WriteLine("Row : ")
        Do While value <> 1
            Console.WriteLine(value)
            '
            If value Mod 2 = 0 Then
                value = value / 2
            Else
                value = value * 3 + 1
            End If
        Loop
        Console.WriteLine(value)
        '
        Console.ReadLine()
    End Sub
End Module

' Visit www.studyvb.com for more examples.  Copyright 2003-2008 De Wolf.