Imports System

Public Module Module1

    DIM i,j as integer

    Dim flagVar AS string = True

    Public Sub Main()

        Do While flagVar = True

            console.WriteLine("I:J")

            console.WriteLine("_____________")

            For i As Integer =1 to 5

            ' console.writeline('{0}:{1}",i,j)

            For j As Integer= 1 to 5

            console.WriteLine("{0}:{1}",j,i)

        Next

    Next

    console.WriteLine("I{0}:J{1}",i,j)

    flagVar = False

Loop

​

    End Sub

End Module