Чтение онлайн

на главную - закладки

Жанры

Справочник Жаркова по проектированию и программированию искусственного интеллекта. Том 5: Программирование искусственного интеллекта на Visual Basic (продолжение 1)
Шрифт:

End If

If str(4) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 6 Then

If str(0) = "e" Then

Chr6.Text = "E"

End If

If str(1) = "e" Then

Chr5.Text = "E"

End If

If str(2) = "e" Then

Chr4.Text = "E"

End If

If str(3) = "e" Then

Chr3.Text = "E"

End If

If str(4) = "e" Then

Chr2.Text = "E"

End If

If str(5) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 7 Then

If str(0) = "e" Then

Chr7.Text = "E"

End If

If str(1) = "e" Then

Chr6.Text = "E"

End If

If str(2) = "e" Then

Chr5.Text = "E"

End If

If str(3) = "e" Then

Chr4.Text = "E"

End If

If str(4) = "e" Then

Chr3.Text = "E"

End If

If str(5) = "e" Then

Chr2.Text = "E"

End If

If str(6) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 8 Then

If str(0) = "e" Then

Chr8.Text = "E"

End If

If str(1) = "e" Then

Chr7.Text = "E"

End If

If str(2) = "e" Then

Chr6.Text = "E"

End If

If str(3) = "e" Then

Chr5.Text = "E"

End If

If str(4) = "e" Then

Chr4.Text = "E"

End If

If str(5) = "e" Then

Chr3.Text = "E"

End If

If str(6) = "e" Then

Chr2.Text = "E"

End If

If str(7) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 9 Then

If str(0) = "e" Then

Chr9.Text = "E"

End If

If str(1) = "e" Then

Chr8.Text = "E"

End If

If str(2) = "e" Then

Chr7.Text = "E"

End If

If str(3) = "e" Then

Chr6.Text = "E"

End If

If str(4) = "e" Then

Chr5.Text = "E"

End If

If str(5) = "e" Then

Chr4.Text = "E"

End If

If str(6) = "e" Then

Chr3.Text = "E"

End If

If str(7) = "e" Then

Chr2.Text = "E"

End If

If str(8) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 10 Then

If str(0) = "e" Then

Chr10.Text = "E"

End If

If str(1) = "e" Then

Chr9.Text = "E"

End If

If str(2) = "e" Then

Chr8.Text = "E"

End If

If str(3) = "e" Then

Chr7.Text = "E"

End If

If str(4) = "e" Then

Chr6.Text = "E"

End If

If str(5) = "e" Then

Chr5.Text = "E"

End If

If str(6) = "e" Then

Chr4.Text = "E"

End If

If str(7) = "e" Then

Chr3.Text = "E"

End If

If str(8) = "e" Then

Chr2.Text = "E"

End If

If str(9) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 11 Then

If str(0) = "e" Then

Chr11.Text = "E"

End If

If str(1) = "e" Then

Chr10.Text = "E"

End If

If str(2) = "e" Then

Chr9.Text = "E"

End If

If str(3) = "e" Then

Chr8.Text = "E"

End If

If str(4) = "e" Then

Chr7.Text = "E"

End If

If str(5) = "e" Then

Chr6.Text = "E"

End If

If str(6) = "e" Then

Chr5.Text = "E"

End If

If str(7) = "e" Then

Chr4.Text = "E"

End If

If str(8) = "e" Then

Chr3.Text = "E"

End If

If str(9) = "e" Then

Chr2.Text = "E"

End If

If str(10) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 12 Then

If str(0) = "e" Then

Chr12.Text = "E"

End If

If str(1) = "e" Then

Chr11.Text = "E"

End If

If str(2) = "e" Then

Chr10.Text = "E"

End If

If str(3) = "e" Then

Chr9.Text = "E"

End If

If str(4) = "e" Then

Chr8.Text = "E"

End If

If str(5) = "e" Then

Chr7.Text = "E"

End If

If str(6) = "e" Then

Chr6.Text = "E"

End If

If str(7) = "e" Then

Chr5.Text = "E"

End If

If str(8) = "e" Then

Chr4.Text = "E"

End If

If str(9) = "e" Then

Chr3.Text = "E"

End If

If str(10) = "e" Then

Chr2.Text = "E"

End If

If str(11) = "e" Then

Chr1.Text = "E"

End If

ElseIf Word_in.TextLength = 13 Then

If str(0) = "e" Then

Chr13.Text = "E"

End If

If str(1) = "e" Then

Chr12.Text = "E"

End If

If str(2) = "e" Then

Chr11.Text = "E"

End If

If str(3) = "e" Then

Chr10.Text = "E"

End If

If str(4) = "e" Then

Chr9.Text = "E"

End If

If str(5) = "e" Then

Chr8.Text = "E"

End If

If str(6) = "e" Then

Chr7.Text = "E"

End If

If str(7) = "e" Then

Chr6.Text = "E"

End If

If str(8) = "e" Then

Chr5.Text = "E"

End If

If str(9) = "e" Then

Поделиться:
Популярные книги

Я снова не князь! Книга XVII

Дрейк Сириус
17. Дорогой барон!
Фантастика:
юмористическое фэнтези
попаданцы
аниме
5.00
рейтинг книги
Я снова не князь! Книга XVII

На границе империй. Том 10. Часть 2

INDIGO
Вселенная EVE Online
Фантастика:
космическая фантастика
5.00
рейтинг книги
На границе империй. Том 10. Часть 2

Маяк надежды

Кас Маркус
5. Артефактор
Фантастика:
городское фэнтези
попаданцы
аниме
5.00
рейтинг книги
Маяк надежды

Законы Рода. Том 3

Flow Ascold
3. Граф Берестьев
Фантастика:
фэнтези
аниме
5.00
рейтинг книги
Законы Рода. Том 3

Бастард Императора. Том 8

Орлов Андрей Юрьевич
8. Бастард Императора
Фантастика:
попаданцы
аниме
фэнтези
5.00
рейтинг книги
Бастард Императора. Том 8

Первый среди равных. Книга III

Бор Жорж
3. Первый среди Равных
Фантастика:
попаданцы
аниме
фэнтези
6.00
рейтинг книги
Первый среди равных. Книга III

Восход. Солнцев. Книга I

Скабер Артемий
1. Голос Бога
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Восход. Солнцев. Книга I

На границе империй. Том 7. Часть 5

INDIGO
11. Фортуна дама переменчивая
Фантастика:
боевая фантастика
космическая фантастика
попаданцы
5.00
рейтинг книги
На границе империй. Том 7. Часть 5

Real-Rpg. Еретик

Жгулёв Пётр Николаевич
2. Real-Rpg
Фантастика:
фэнтези
8.19
рейтинг книги
Real-Rpg. Еретик

Отмороженный 3.0

Гарцевич Евгений Александрович
3. Отмороженный
Фантастика:
боевая фантастика
рпг
5.00
рейтинг книги
Отмороженный 3.0

Газлайтер. Том 3

Володин Григорий
3. История Телепата
Фантастика:
попаданцы
альтернативная история
аниме
5.00
рейтинг книги
Газлайтер. Том 3

СД. Том 13

Клеванский Кирилл Сергеевич
13. Сердце дракона
Фантастика:
фэнтези
6.55
рейтинг книги
СД. Том 13

Хорошая девочка

Кистяева Марина
Любовные романы:
современные любовные романы
эро литература
5.00
рейтинг книги
Хорошая девочка

Вторая жизнь майора. Цикл

Сухинин Владимир Александрович
Вторая жизнь майора
Фантастика:
героическая фантастика
боевая фантастика
попаданцы
5.00
рейтинг книги
Вторая жизнь майора. Цикл