Как проверить есть ли в слове одинаковые буквы?

[Makavelli]

Как проверить есть ли в слове одинаковые буквы?

[tyomitch]

Как вариант: скидать по одной в коллекцию. Если будет ошибка, значит есть повтор.

[Makavelli]

Это как?

[Jenizix]

А можно и InStr() попробовать...

[Makavelli]

я уже всё что мог попробовал... предложите, пожалуйста, работающий код....

[Jenizix]

А по конкретнее??? или просто, если в слове есть одинаковые буквы, то вывести сообщение типа "Есть!"

[FaKk2]

Makavelli
Как сделать? Подумать, что я могу сказать... Это задачка мягко говоря школьная, разработать такой простетский алгоритм.

[Makavelli]

просто вывести сообщение

[Makavelli]

повторюсь...

я уже всё что мог попробовал... предложите, пожалуйста, работающий код....

[FaKk2]

Makavelli
Знаешь, телепаты в отпуске. Что и как ты пробовал, и почему тебя не устроило?

Давай, покажи чуть чуть желания решить эту задачку.

[Makavelli]

Makavelli
Как сделать? Подумать, что я могу сказать... Это задачка мягко говоря школьная, разработать такой простетский алгоритм.

я еще школу не закончил...

[Makavelli]

Makavelli
Знаешь, телепаты в отпуске. Что и как ты пробовал, и почему тебя не устроило?

Давай, покажи чуть чуть желания решить эту задачку.

Какая разница что и как я пробовал? Вы можете написать кусок кода?

[FaKk2]

Makavelli

Я могу, но не хочу тебе помогать. Понимаешь, такое ощущение, что тебе должны. Покажи что ты сделал и скажи почему тебе это не нравится, тогда я тебе может быть скажу другой способ, если я его знаю.

[Jenizix]

Вот например:

Код: Выделить всё

Private Sub Form_Load()
    Dim str As String
    Dim char As String
   
    str = "jenizix"
    char = "i"
   
    If InStr(InStr(1, str, char) + 1, str, char) Then MsgBox "Буква '" & char & "' повторяется в слове " & str
   
End Sub


З.Ы. Я кстати тоже школу не закончил в 10 класс пошел...

[Makavelli]

For a = 1 To max
For b = 1 To max
If b <> a Then
b1 = b
For c = 1 To max
If c <> a And c <> b1 Then
c1 = c
Print #1, a & b1 & c1
End If
Next c
End If
Next b
Next a

при генерации трехсимвольного слова проверяю не одинаковые ли символы, но мне это не подходит, т.к. в будущем, возможно придется генерировать слова с бОльшим количеством символов...

[Makavelli]

был еще вариант с двумя циклами и поиском в строке при помощи mid, но возможно я его неправильно реализовал и результат меня не удовлдетворял...

[Jenizix]

Епт! ты мой пример смотрел???!!!

[Makavelli]

Jenizix
Огромное пасибо! Очень помогло

з.ы. алгоритмы брута уже не надо...

[Jenizix]

Ок!