Microsoft Small Basic

Program Listing:
Embed this in your website
' 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
Copyright (c) Microsoft Corporation. All rights reserved.