Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 45000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свою работу

Составить игру "Крестики-нолики" в среде "Mathcad" или "VBA".

Номер заказа
31652
Создан
22 марта 2013
Выполнен
25 марта 2013
Стоимость работы
490
Проблема по информатике. Срочно закажу курсовую работу по информатике. Есть буквально 3 дня. Тема работы «Составить игру "Крестики-нолики" в среде "Mathcad" или "VBA".».
Всего было
15 предложений
Заказчик выбрал автора
Этот заказ уже выполнен на сервисе Автор24
На нашем сайте вы можете заказать учебную работу напрямую у любого из 45000 авторов, не переплачивая агентствам и другим посредникам. Ниже приведен пример уже выполненной работы нашими авторами!
Узнать цену на свою работу
Или вы можете купить эту работу...
Страниц: 16
Оригинальность: Неизвестно
490
Не подошла
данная работа?
Вы можете заказать учебную работу
на любую интересующую вас тему
Заказать новую работу

Составить игру "Крестики-нолики" в среде "Mathcad" или "VBA".
Содержание
Постановка задачи
Алгоритм решения
Код программы
Тестирование
Список литературы

Список литературы
1.Слепцова Л.Д. Программирование на VBA в Microsoft Office 2 010. –М.:ООО”Вильямс”, 2010. – 432 с.
2.Уокенбах Джон Профессиональное программирование на VBA в Excel 2003. :Пер. с англ. – М. : Вильямс, 2005. – 800
For i = 1 To 3
Бок 20, 10, i, flag
If flag = True Then Exit Sub
Next i
Диагональ1 2, 10, flag
If flag = True Then Exit Sub
Диагональ2 2, 10, flag
If flag = True Then Exit Sub
For j = 1 To 3
Верх 2, 10, j, flag
If flag = True Then Exit Sub
Next j
For i = 1 To 3
Бок 2, 10, i, flag
If flag = True Then Exit Sub
Next i
Диагональ1 10, 10, flag
If flag = True Then Exit Sub
Диагональ2 10, 10, flag
If flag = True Then Exit Sub
For j = 1 To 3
Верх 10, 10, j, flag
If flag = True Then Exit Sub
Next j
For i = 1 To 3
Бок 10, 10, i, flag
If flag = True Then Exit Sub
Next i
For i = 1 To 3
For j = 1 To 3
If Статус(i, j) = 0 Then
Показать все
Автор24 - это фриланс-биржа. Все работы, представленные на сайте, загружены нашими пользователями, которые согласились с правилами размещения работ на ресурсе и обладают всеми необходимыми авторскими правами на данные работы. Скачивая работу вы соглашаетесь с тем что она не будет выдана за свою, а будет использована использовать исключительно как пример или первоисточник с обязательной ссылкой на авторство работы. Если вы правообладатель и считаете что данная работа здесь размещена без вашего разрешения - пожалуйста, заполните форму и мы обязательно удалим ее с сайта. Заполнить форму
Оценим бесплатно
за 10 минут
Эта работа вам не подошла?
У наших авторов вы можете заказать любую учебную работу от 200 руб.
Оформите заказ и авторы начнут откликаться уже через 10 минут!
Заказать курсовую работу