for for

Module Module1

    Sub Main()

        Dim A, B As Integer

        For A = 0 To 10

            For B = 0 To 10

                Console.Write("a=")

            Next

            Console.WriteLine()

        Next

        Console.Read()

    End Sub

End Module

source