Генератор слов по маске - VB
Формулировка задачи:
Доброго времени суток, Уважаемые программисты!
Есть ряд слов и цифр, допустим:
Как осуществить перемешку всех этих слов и вывод в Листбокс например:
Как это автоматизировать?
Для примера
Алексей, Шарик, Январь, 3213, 987 и т.д
Шарик3213
АлексейЯнварь
Январь987Алексей
Но здесь выводятся только так:
Алексей
АлексейЯнварь987
АлексейЯнварь987Шарик
Решение задачи: «Генератор слов по маске»
textual
Листинг программы
all_chars = array("Алексей","Январь","987","Шарик","323","Тост","Ковёр") Randomize for i = 1 to 20 wd="" for j=1 to n random_index = int(Rnd()*7) wd = wd & all_chars(random_index) next j debug.print wd next
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д