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

на главную

Жанры

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

End If

If str(2) = "a" Then

Chr12.Text = "A"

End If

If str(3) = "a" Then

Chr11.Text = "A"

End If

If str(4) = "a" Then

Chr10.Text = "A"

End If

If str(5) = "a" Then

Chr9.Text = "A"

End If

If str(6) = "a" Then

Chr8.Text = "A"

End If

If str(7) = "a" Then

Chr7.Text = "A"

End If

If str(8) = "a" Then

Chr6.Text = "A"

End If

If str(9) = "a" Then

Chr5.Text = "A"

End If

If str(10) = "a" Then

Chr4.Text = "A"

End If

If str(11) = "a" Then

Chr3.Text = "A"

End If

If str(12) = "a" Then

Chr2.Text = "A"

End If

If str(13) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 15 Then

If str(0) = "a" Then

Chr15.Text = "A"

End If

If str(1) = "a" Then

Chr14.Text = "A"

End If

If str(2) = "a" Then

Chr13.Text = "A"

End If

If str(3) = "a" Then

Chr12.Text = "A"

End If

If str(4) = "a" Then

Chr11.Text = "A"

End If

If str(5) = "a" Then

Chr10.Text = "A"

End If

If str(6) = "a" Then

Chr9.Text = "A"

End If

If str(7) = "a" Then

Chr8.Text = "A"

End If

If str(8) = "a" Then

Chr7.Text = "A"

End If

If str(9) = "a" Then

Chr6.Text = "A"

End If

If str(10) = "a" Then

Chr5.Text = "A"

End If

If str(11) = "a" Then

Chr4.Text = "A"

End If

If str(12) = "a" Then

Chr3.Text = "A"

End If

If str(13) = "a" Then

Chr2.Text = "A"

End If

If str(14) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 16 Then

If str(0) = "a" Then

Chr16.Text = "A"

End If

If str(1) = "a" Then

Chr15.Text = "A"

End If

If str(2) = "a" Then

Chr14.Text = "A"

End If

If str(3) = "a" Then

Chr13.Text = "A"

End If

If str(4) = "a" Then

Chr12.Text = "A"

End If

If str(5) = "a" Then

Chr11.Text = "A"

End If

If str(6) = "a" Then

Chr10.Text = "A"

End If

If str(7) = "a" Then

Chr9.Text = "A"

End If

If str(8) = "a" Then

Chr8.Text = "A"

End If

If str(9) = "a" Then

Chr7.Text = "A"

End If

If str(10) = "a" Then

Chr6.Text = "A"

End If

If str(11) = "a" Then

Chr5.Text = "A"

End If

If str(12) = "a" Then

Chr4.Text = "A"

End If

If str(13) = "a" Then

Chr3.Text = "A"

End If

If str(14) = "a" Then

Chr2.Text = "A"

End If

If str(15) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 17 Then

If str(0) = "a" Then

Chr17.Text = "A"

End If

If str(1) = "a" Then

Chr16.Text = "A"

End If

If str(2) = "a" Then

Chr15.Text = "A"

End If

If str(3) = "a" Then

Chr14.Text = "A"

End If

If str(4) = "a" Then

Chr13.Text = "A"

End If

If str(5) = "a" Then

Chr12.Text = "A"

End If

If str(6) = "a" Then

Chr11.Text = "A"

End If

If str(7) = "a" Then

Chr10.Text = "A"

End If

If str(8) = "a" Then

Chr9.Text = "A"

End If

If str(9) = "a" Then

Chr8.Text = "A"

End If

If str(10) = "a" Then

Chr7.Text = "A"

End If

If str(11) = "a" Then

Chr6.Text = "A"

End If

If str(12) = "a" Then

Chr5.Text = "A"

End If

If str(13) = "a" Then

Chr4.Text = "A"

End If

If str(14) = "a" Then

Chr3.Text = "A"

End If

If str(15) = "a" Then

Chr2.Text = "A"

End If

If str(16) = "a" Then

Chr1.Text = "A"

End If

ElseIf Word_in.TextLength = 18 Then

If str(0) = "a" Then

Chr18.Text = "A"

End If

If str(1) = "a" Then

Chr17.Text = "A"

End If

If str(2) = "a" Then

Chr16.Text = "A"

End If

If str(3) = "a" Then

Chr15.Text = "A"

End If

If str(4) = "a" Then

Chr14.Text = "A"

End If

If str(5) = "a" Then

Chr13.Text = "A"

End If

If str(6) = "a" Then

Chr12.Text = "A"

End If

If str(7) = "a" Then

Chr11.Text = "A"

End If

If str(8) = "a" Then

Chr10.Text = "A"

End If

If str(9) = "a" Then

Chr9.Text = "A"

End If

If str(10) = "a" Then

Chr8.Text = "A"

End If

If str(11) = "a" Then

Chr7.Text = "A"

End If

If str(12) = "a" Then

Chr6.Text = "A"

End If

If str(13) = "a" Then

Chr5.Text = "A"

End If

If str(14) = "a" Then

Chr4.Text = "A"

End If

If str(15) = "a" Then

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

Убивать чтобы жить 3

Бор Жорж
3. УЧЖ
Фантастика:
героическая фантастика
боевая фантастика
рпг
5.00
рейтинг книги
Убивать чтобы жить 3

Герцогиня в ссылке

Нова Юлия
2. Магия стихий
Любовные романы:
любовно-фантастические романы
5.00
рейтинг книги
Герцогиня в ссылке

Шатун. Лесной гамбит

Трофимов Ерофей
2. Шатун
Фантастика:
боевая фантастика
7.43
рейтинг книги
Шатун. Лесной гамбит

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

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

Смерть может танцевать 3

Вальтер Макс
3. Безликий
Фантастика:
боевая фантастика
5.40
рейтинг книги
Смерть может танцевать 3

АН (цикл 11 книг)

Тарс Элиан
Аномальный наследник
Фантастика:
фэнтези
героическая фантастика
попаданцы
аниме
5.00
рейтинг книги
АН (цикл 11 книг)

Сердце дракона. Том 18. Часть 2

Клеванский Кирилл Сергеевич
18. Сердце дракона
Фантастика:
героическая фантастика
боевая фантастика
6.40
рейтинг книги
Сердце дракона. Том 18. Часть 2

Боги, пиво и дурак. Том 4

Горина Юлия Николаевна
4. Боги, пиво и дурак
Фантастика:
фэнтези
героическая фантастика
попаданцы
5.00
рейтинг книги
Боги, пиво и дурак. Том 4

Старатель 3

Лей Влад
3. Старатели
Фантастика:
боевая фантастика
космическая фантастика
5.00
рейтинг книги
Старатель 3

Измена. Свадьба дракона

Белова Екатерина
Любовные романы:
любовно-фантастические романы
эро литература
5.00
рейтинг книги
Измена. Свадьба дракона

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

Марей Соня
2. Попаданка в деле, или Ваш любимый доктор
Любовные романы:
любовно-фантастические романы
7.43
рейтинг книги
Попаданка в деле, или Ваш любимый доктор - 2

Последний Паладин. Том 2

Саваровский Роман
2. Путь Паладина
Фантастика:
фэнтези
попаданцы
аниме
5.00
рейтинг книги
Последний Паладин. Том 2

Ты нас предал

Безрукова Елена
1. Измены. Кантемировы
Любовные романы:
современные любовные романы
5.00
рейтинг книги
Ты нас предал

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

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