Образовать новое слово, перемешивая буквы данных слов - 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