Randomly shuffle a string array

SubName: Shuffle a string array.
Description: Use this code to randomly shuffle a string array.

Example:
"1, 2, 3, 4, 5, 6, 7, 8, 9" will be shuffled to become a random string array, something like "6, 5, 4, 2, 8, 9, 7, 1, 3".

Code:

  Dim CardArray() As String
    CardArray = Array As String(1, 2, 3, 4, 5, 6, 7, 8, 9)

CallSub(Null, ShuffleArray(CardArray))

'Generate random string array
Public Sub ShuffleArray(StringArray() As String)
Dim ArrayVal As String
Dim Random...  

Randomly shuffle a string array

from B4X Community - Android, iOS, desktop, server and IoT programming tools http://ift.tt/1OUN9LX
via IFTTT