Imports System

​

Public Module Module1

​

    Dim international, cost As Integer

    Dim extraWeight As Double

    Dim interStr As String

    Dim inputError As Boolean

​

    Dim output As Byte

    Dim number1, number2 As Double

    Public Sub ReadParcel()

        international = 20

        inputError = False

        Console.Write("Input Weight(in integer):")

        Dim ex As Exception

        Try

            extraWeight = Console.ReadLine()

        Catch ex

            Console.WriteLine("Wrong input")

            inputError = True

            Console.ReadLine()

        End Try

        If inputError Then

            Return

        End If

​

        extraWeight = extraWeight - 5

        If extraWeight < 0 Then

            extraWeight = 0

        End If

​

        Console.Write("Is it international?(y/n):")

        interStr = Console.ReadLine

    End Sub

​

    Public Sub Parcel_nested()

        If interStr = "y" Then

            If extraWeight > 0 Then

                Console.WriteLine("Can't delive.")

                Console.ReadLine()

                Return

            Else

                international = 40

            End If

        Else

            If interStr <> "n" Then

                Console.WriteLine("Error input.")

                Console.ReadLine()

                Return

            End If

        End If

    End Sub

​

    Public Sub parcel_logic()

        If interStr = "y" & extraWeight > 0 Then

            Console.WriteLine("Can't delive.")

            Console.ReadLine()

        End If

        If interStr = "y" & extraWeight = 0 Then

            international = 40

        End If

        If interStr <> "n" & interStr <> "y" Then

            Console.WriteLine("Error input.")

            Console.ReadLine()

        End If

    End Sub

​

    Public Sub Parcel_output()

        cost = international + extraWeight

        Console.WriteLine("Cost is $" + cost.ToString)

    End Sub

​

    Public Sub ReadNumber()

        output = 0

        Console.WriteLine("Input 2 number:")

        number1 = Console.ReadLine()

        number2 = Console.ReadLine()

    End Sub

​

    Public Sub Parity_Nested()

        If number1 > 0 Then

            If number2 > 0 Then

                output = 2

            Else

                output = 1

            End If

        ElseIf number2 > 0 Then

            output = 1

        Else output = 0

        End If

    End Sub

​

    Public Sub Parity_Logic()

        If number1 > 0 Then

            output = output + 1

        End If

        If number2 > 0 Then

            output = output + 1

        End If

​

    End Sub

​

    Public Sub Parity_output()

        Console.WriteLine("positive numbers: " + output.ToString)

    End Sub

    Public Sub Main()

        Console.WriteLine("What program would you like?")

        Console.WriteLine("1: parcel with nested; 2: parcel with logic if;")

        Console.WriteLine("3: parity with nested; 4: parity with logic if;")

        Dim temp As Integer

        temp = Console.ReadLine()

        Console.WriteLine()

        Select Case temp

            Case 1 To 2

                ReadParcel()

            Case 3 To 4

                ReadNumber()

            Case Else

                Console.WriteLine("Wrong Input")

                Return

        End Select

        Select Case temp

            Case 1

                Parcel_nested()

            Case 2

                parcel_logic()

            Case 3

                Parity_Nested()

            Case 4

                Parity_Logic()

        End Select

        Console.WriteLine()

​

        Select Case temp

            Case 1 To 2

                Parcel_output()

            Case 3 To 4

                Parity_output()

        End Select

        Console.ReadLine()

​

    End Sub

End Module