Imports System

​

Public Module Module1

​

    Public Sub Main()

        Console.Writeline("Please choose a program number 1, 2 or 3")

        Dim x as integer

        x = Console.Readline

        If x = 1

            Sub1

        End If

​

        If x = 2

            Sub2

        End If

​

        If x = 3

            Sub3

        End If

    End Sub

​

    Public Sub Sub1()

        Console.Writeline("You have chosen program 1")

        Dim n1 as integer

        Dim n2 as integer = 0

        n1 = Console.readline()

        IF n1 mod 2 = 0 then

            Do until n1 = 0

                n2 = n2 + n1

                n1 = n1 - 2

            Loop

​

            Console.Writeline(n2)

        Else If n1 mod 2 = 1 then

            n1 = n1 - 1

            Do until n1 = 0

                n2 = n2 + n1

                n1 = n1 - 2

            Loop

​

            Console.Writeline(n2)

        End IF

    End Sub

​

    Public Sub Sub2()

        Console.Writeline("You have chosen program 2")

        Dim n1 as integer

        Dim perc as decimal

        Dim i as integer = 0

        Dim count as integer = 0

        Do until i = 10

            n1 = Console.Readline()

            If 39 < n1 and n1 < 70 then

                count = count + 1

            End If

​

            i = i + 1

        loop

​

        Console.Writeline(count)

        perc = count / 10 * 100

        Console.Writeline(perc & "%")

    End Sub

​

    Public Sub Sub3()

        Console.Writeline("You have chosen program 3")

        Dim n1 as integer

        Dim n2 as decimal

        Dim n3 as decimal

        Do

            n1 = Console.Readline()

            n2 =(n1 - 32) * 5 / 9

            n3 = Math.Round(n2,2)

            Console.Writeline(n2 & "°C")

        Loop until n1 = -1

    End Sub

End Module

​