Генератор слов по маске - 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

Оцени полезность:

8   голосов , оценка 4 из 5
Похожие ответы