Образовать новое слово, перемешивая буквы данных слов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
