Образовать новое слово, перемешивая буквы данных слов - VB

Формулировка задачи:

Нужно ввести два слова, каждое из равного количества букв. Образовать новое слово, перемешивая буквы данных слов. Как организовать перемешивания без сложных конструкций? Всё-таки задание по информатике. Сделал, но со случайными числами. А они повторятся, что не пойдет.

Код к задаче: «Образовать новое слово, перемешивая буквы данных слов - VB»

textual
Private Sub Form_Load()
    Слово1 = "Информатика"
    Слово2 = "Кибернетика"
    Слово3 = Слово1 & Слово2
    Randomize Timer
    Do
        For i = 1 To 100 'Столько раз это слово перемешаеться
            j = Len(Слово3)
            j = Fix(Rnd * j) + 1
            s = Mid$(Слово3, j, 1)
            Mid$(Слово3, j, 1) = """"
            Слово3 = s & Replace(Слово3, """", "")
        Next
        If MsgBox("Слово " & Слово1 & " и " & Слово2 & " = " & Слово3 & vbLf & "Повторить ?", 68) = vbNo Then _
        End
    Loop
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

10   голосов, оценка 4.100 из 5


СДЕЛАЙТЕ РЕПОСТ