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

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

Жанры

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

End If

If str(3) = "f" Then

Chr9.Text = "F"

End If

If str(4) = "f" Then

Chr8.Text = "F"

End If

If str(5) = "f" Then

Chr7.Text = "F"

End If

If str(6) = "f" Then

Chr6.Text = "F"

End If

If str(7) = "f" Then

Chr5.Text = "F"

End If

If str(8) = "f" Then

Chr4.Text = "F"

End If

If str(9) = "f" Then

Chr3.Text = "F"

End If

If str(10) = "f" Then

Chr2.Text = "F"

End If

If str(11) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 13 Then

If str(0) = "f" Then

Chr13.Text = "F"

End If

If str(1) = "f" Then

Chr12.Text = "F"

End If

If str(2) = "f" Then

Chr11.Text = "F"

End If

If str(3) = "f" Then

Chr10.Text = "F"

End If

If str(4) = "f" Then

Chr9.Text = "F"

End If

If str(5) = "f" Then

Chr8.Text = "F"

End If

If str(6) = "f" Then

Chr7.Text = "F"

End If

If str(7) = "f" Then

Chr6.Text = "F"

End If

If str(8) = "f" Then

Chr5.Text = "F"

End If

If str(9) = "f" Then

Chr4.Text = "F"

End If

If str(10) = "f" Then

Chr3.Text = "F"

End If

If str(11) = "f" Then

Chr2.Text = "F"

End If

If str(12) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 14 Then

If str(0) = "f" Then

Chr14.Text = "F"

End If

If str(1) = "f" Then

Chr13.Text = "F"

End If

If str(2) = "f" Then

Chr12.Text = "F"

End If

If str(3) = "f" Then

Chr11.Text = "F"

End If

If str(4) = "f" Then

Chr10.Text = "F"

End If

If str(5) = "f" Then

Chr9.Text = "F"

End If

If str(6) = "f" Then

Chr8.Text = "F"

End If

If str(7) = "f" Then

Chr7.Text = "F"

End If

If str(8) = "f" Then

Chr6.Text = "F"

End If

If str(9) = "f" Then

Chr5.Text = "F"

End If

If str(10) = "f" Then

Chr4.Text = "F"

End If

If str(11) = "f" Then

Chr3.Text = "F"

End If

If str(12) = "f" Then

Chr2.Text = "F"

End If

If str(13) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 15 Then

If str(0) = "f" Then

Chr15.Text = "F"

End If

If str(1) = "f" Then

Chr14.Text = "F"

End If

If str(2) = "f" Then

Chr13.Text = "F"

End If

If str(3) = "f" Then

Chr12.Text = "F"

End If

If str(4) = "f" Then

Chr11.Text = "F"

End If

If str(5) = "f" Then

Chr10.Text = "F"

End If

If str(6) = "f" Then

Chr9.Text = "F"

End If

If str(7) = "f" Then

Chr8.Text = "F"

End If

If str(8) = "f" Then

Chr7.Text = "F"

End If

If str(9) = "f" Then

Chr6.Text = "F"

End If

If str(10) = "f" Then

Chr5.Text = "F"

End If

If str(11) = "f" Then

Chr4.Text = "F"

End If

If str(12) = "f" Then

Chr3.Text = "F"

End If

If str(13) = "f" Then

Chr2.Text = "F"

End If

If str(14) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 16 Then

If str(0) = "f" Then

Chr16.Text = "F"

End If

If str(1) = "f" Then

Chr15.Text = "F"

End If

If str(2) = "f" Then

Chr14.Text = "F"

End If

If str(3) = "f" Then

Chr13.Text = "F"

End If

If str(4) = "f" Then

Chr12.Text = "F"

End If

If str(5) = "f" Then

Chr11.Text = "F"

End If

If str(6) = "f" Then

Chr10.Text = "F"

End If

If str(7) = "f" Then

Chr9.Text = "F"

End If

If str(8) = "f" Then

Chr8.Text = "F"

End If

If str(9) = "f" Then

Chr7.Text = "F"

End If

If str(10) = "f" Then

Chr6.Text = "F"

End If

If str(11) = "f" Then

Chr5.Text = "F"

End If

If str(12) = "f" Then

Chr4.Text = "F"

End If

If str(13) = "f" Then

Chr3.Text = "F"

End If

If str(14) = "f" Then

Chr2.Text = "F"

End If

If str(15) = "f" Then

Chr1.Text = "F"

End If

ElseIf Word_in.TextLength = 17 Then

If str(0) = "f" Then

Chr17.Text = "F"

End If

If str(1) = "f" Then

Chr16.Text = "F"

End If

If str(2) = "f" Then

Chr15.Text = "F"

End If

If str(3) = "f" Then

Chr14.Text = "F"

End If

If str(4) = "f" Then

Chr13.Text = "F"

End If

If str(5) = "f" Then

Chr12.Text = "F"

End If

If str(6) = "f" Then

Chr11.Text = "F"

End If

If str(7) = "f" Then

Chr10.Text = "F"

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

Полковник Империи

Ланцов Михаил Алексеевич
3. Безумный Макс
Фантастика:
альтернативная история
6.58
рейтинг книги
Полковник Империи

Брачный сезон. Сирота

Свободина Виктория
Любовные романы:
любовно-фантастические романы
7.89
рейтинг книги
Брачный сезон. Сирота

Инферно

Кретов Владимир Владимирович
2. Легенда
Фантастика:
фэнтези
8.57
рейтинг книги
Инферно

Темный Охотник

Розальев Андрей
1. КО: Темный охотник
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Темный Охотник

Восьмое правило дворянина

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

Неудержимый. Книга XI

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

Я — Легион

Злобин Михаил
3. О чем молчат могилы
Фантастика:
боевая фантастика
7.88
рейтинг книги
Я — Легион

Попаданка в Измену или замуж за дракона

Жарова Анита
Любовные романы:
любовно-фантастические романы
6.25
рейтинг книги
Попаданка в Измену или замуж за дракона

Ваше Сиятельство 2

Моури Эрли
2. Ваше Сиятельство
Фантастика:
фэнтези
альтернативная история
аниме
5.00
рейтинг книги
Ваше Сиятельство 2

Смертник из рода Валевских. Книга 1

Маханенко Василий Михайлович
1. Смертник из рода Валевских
Фантастика:
фэнтези
рпг
аниме
5.40
рейтинг книги
Смертник из рода Валевских. Книга 1

Титан империи 6

Артемов Александр Александрович
6. Титан Империи
Фантастика:
боевая фантастика
попаданцы
аниме
5.00
рейтинг книги
Титан империи 6

Цеховик. Книга 1. Отрицание

Ромов Дмитрий
1. Цеховик
Фантастика:
попаданцы
альтернативная история
5.75
рейтинг книги
Цеховик. Книга 1. Отрицание

Рота Его Величества

Дроздов Анатолий Федорович
Новые герои
Фантастика:
боевая фантастика
8.55
рейтинг книги
Рота Его Величества

Попаданка в деле, или Ваш любимый доктор

Марей Соня
1. Попаданка в деле, или Ваш любимый доктор
Фантастика:
фэнтези
5.50
рейтинг книги
Попаданка в деле, или Ваш любимый доктор