Imports System

Public Module Module1

    Public Sub Main()

        dim strloopOne as string= ("Alex")

        dim strloopTwo as string= ("Naruto")

        dim strloopThree as string = ("No")

        dim intrand as integer =5

        dim intnumb as integer =3

        do 

            console.Writeline(strloopOne)

            while 5 

            end while

            loop

            for ingrandom= intrand to intnumb

        console.WriteLine(strloopTwo)

        next 

            do while 5

        console.Writeline(strloopThree)

        loop 

    End Sub

End Module