одинаковые и разные буквы

[Ice_sCream]

Как в двух строках найти схожие и различные бувы и записать их в две другие стороки

[Sedge]

Во вложеном цикле проходишь обе строки, допустим Str1 и Str2. Первый цикл от 0 до Len(Srt1), второй, соответственно, от 0 до Len(Str2). На каждой итерации первого цикла выделяешь 1 символ из Str1 (использую функцию Mid$), на каждой итерации второго цикла - то же самое, но для Str2. Сравниваешь оба значения и, если они совпадаю, заносишь символ, выделенный из Str1 в строку-хранилище. Еще здесь можно добавить проверку строки-хранилища на наличие соответствующего символа, чтобы избежать дублирования.

Для несовпадающих сомволов - немного сложнее. Один из вариантов - заводишь переменную типа Boolean. В начале внешнего цикла устанавливаешь ее в True, затем во внутреннем цикле проверяешь совпадения методом, описанным выше. Если совпадение найдено, то устанавливаешь переменную в False. В конце внешнего цикла смотришь, если переменная равна True, то значит совпадений не найдено и можно смело заносить ее в строку, где у тебя храняться несовпадающие символы.

[Ice_sCream]

Спасибо, а легче никак?

[Zer]

Ну вообще легче уже некуда... Этот вариант самый ужасный(по оптимизации).