Dim My1Array(25)
Dim oFso
Dim oMyFile

Set oFso = CreateObject("Scripting.FileSystemObject")
Set oMyFile = oFso.CreateTextFile("output.txt")

My1Array(0) ="a"
My1Array(1) = "b"
My1Array(2) = "c"
My1Array(3) = "d"
My1Array(4) = "e"
My1Array(5) = "f"
My1Array(6) = "g"
My1Array(7) = "h"
My1Array(8) = "i"
My1Array(9) = "j"
My1Array(10) = "k"
My1Array(11) = "l"
My1Array(12) = "m"
My1Array(13) = "n"
My1Array(14) = "o"
My1Array(15) = "p"
My1Array(16) ="q"
My1Array(17) = "r"
My1Array(18) = "s"
My1Array(19) = "t"
My1Array(20) = "u"
My1Array(21) = "v"
My1Array(22) = "w"
My1Array(23) = "x"
My1Array(24) = "y"
My1Array(25) = "z"


For i = 0 To 25
   For j = 0 To 25
      For k = 0 To 25
	For l = 0 To 25
	   
oMyFile.WriteLine(My1Array(i)&My1Array(j)&My1Array(k)&My1Array(l))

             Next
      Next
   Next
Next

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;

namespace test
{
    class Program
    {
        static void Main(string[] args)
        {
            List<char> alphabet = new List<char>();
            int num = 0;

            for (int i = 97; i <= 122; i++)
                alphabet.Add(Convert.ToChar(i));

            Console.WriteLine("Enter number: ");
            try
            {
                num = Convert.ToInt32(Console.ReadLine());
            }
            catch
            {
                Console.WriteLine("Error: ");
            }
            foreach (char ww in alphabet)
            {
                for (int i = 0; i < num; i++)
                    Console.Write(ww);
                Console.WriteLine();
            }
        }
    }
}