Imports System

Public Module Module1

    Public Sub Main()

        Dim length as Integer = 10

        IF length <> 6 THEN ' <> - неравно

            ' & это оператор склеивания строк

            Console.WriteLine(length & " greater not 6")

            length = length - 1 ' вычитаем из length 1

            Console.WriteLine("Now length is " & length)

        END IF

        IF length <= 5 THEN

            Console.WriteLine(length & " less or equal to 5")

        ELSE

            Console.WriteLine(length & " is 6 or greater")

        END IF

        IF length = 5 THEN

            Console.WriteLine("length is 5")

        ELSEIF length = 6 THEN

            Console.WriteLine("length is 6")

        ELSEIF length = 7 THEN

            Console.WriteLine("length is 7")

        ELSEIF length = 8 THEN

            Console.WriteLine("length is 8")

        ELSEIF length = 9 THEN

            Console.WriteLine("length is 9")

        ELSE

            ' если ни одно другое условие из этого блока if не подходит

            Console.WriteLine("length is not 5, 6, 7, 8 or 9")

        END IF

    End Sub

End Module

​

​