Microsoft Small Basic

Program Listing: LGF321
' Import ID - combinations
' Copyright © 2017 Nonki Takahashi. The MIT License.

TextWindow.Title = "Import ID - combinations"
TextWindow.WriteLine("Possible number of Small Basic Import ID combinations")
alpha = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
digit = "0123456789"
TextWindow.WriteLine("(full alphabet)")
PrintCombinations()
alpha = "BCDFGHJKLMNPQRSTVWXZ" ' except AEIOUY
TextWindow.WriteLine("(except AEIOUY)")
PrintCombinations()

Sub PrintCombinations
na = Text.GetLength(alpha)
nd = Text.GetLength(digit)
nid = na * na * na * nd * nd * nd
TextWindow.WriteLine("= " + na + "^3 * " + nd + "^3 = " + nid)
TextWindow.WriteLine("")
EndSub