Перестановка символов по заданному ключу - VB
Формулировка задачи:
Привет всем!
Помогите решить задачу.
есть строка cadb и ключь к нему 3142
нужно переставить символы в строке по заданному ключу , чтобы строка стала abcd.
Спасибо.
Решение задачи: «Перестановка символов по заданному ключу»
textual
Листинг программы
Function Armen(str As String, key As String) As String Dim i& For i = 1 To Len(key) Armen = Mid$(str, Mid$(key, i, 1), 1) & Armen Next End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д