Кода -копия выглядит следующим образом:
FunctionMakeGroup (команда () Appring) Appring
Функция функции: случайная группа 32 команды в массиве команд. (ПРИМЕЧАНИЕ: Подписка на массиве команд начинается с 0)
'Переменная определение функции.
«Это хорошая привычка показывать переменные объявления.
Dimtvarasinteger, returnstrasstring, tmoveasinteger, tempasinteger
«Инициализируйте генератор случайных чисел для достижения истинной случайности.
Рандомизировать (таймер)
Fortvar = 1to32' -
If (tvar-1) mod4 = 0then
«Сохраните имя групповой команды и имя группы в переменную returnstr.
returnstr = returnstr & vbcrlf & chr (asc ("a")+(tvar/4)) и "группа:"
Эндиф
tmove = int (rnd*(33-tvar))
returnstr = returnstr & teams (tmove) & "."
Fortemp = tmoveto30
«Переместите часть массива вперед, чтобы избежать существования команд с тем же именем в группе.
Команды (TEMP) = Команды (TEMP+1)
NextTemp
Nexttvar
«Возвратное значение является результатом после группировки.
MakeGroup = returnstr
Конечная функция