如何在Microsoft Small Basic中计算字符串的所有排列？

' 定义一个函数，用于计算字符串的所有排列
Sub Permutations(str As String, prefix As String)
    ' 如果字符串为空，则输出当前排列
    If Text.GetLength(str) = 0 Then
        TextWindow.WriteLine(prefix)
    Else
        ' 遍历字符串中的每个字符
        For i = 1 To Text.GetLength(str)
            ' 获取当前字符
            currentChar = Text.GetSubText(str, i, 1)
            
            ' 生成新的字符串，去除当前字符
            newStr = Text.GetSubText(str, 1, i - 1) + Text.GetSubText(str, i + 1)
            
            ' 递归调用函数，计算剩余字符的排列
            Permutations(newStr, prefix + currentChar)
        EndFor
    EndIf
EndSub

' 调用函数，计算字符串的所有排列
str = "abc"
Permutations(str, "")