Sub MonthCalendar()
' Задача - создать календарь месяца, указанного пользователем.
' Год должен быть ограничен знач. [1900;2100], месяц может быть введен буквенно, сокращенно
Dim monthInput, yearInput, monthNumber As Integer, daysInMonth As Integer
Dim firstDayOfWeek As Integer, calendarTable As String, dayNumber As Integer, currentDayOfWeek As Integer
monthInput = InputBox("Введите месяц, в числовом либо сокращенном формате")
yearInput = InputBox("Введите год в диапазоне 1900-2100:")
' Объявляем переменные и их значения, позволяем пользователю ввести значения двух переменных
' Для считывания значения месяца в формате сокращенного названия, используем Select Case
Select Case monthInput
Case "1", "Янв", "Янв.": monthNumber = 1
Case "2", "Фев", "Фев.", "Февр", "Февр.": monthNumber = 2
........
В игре используется 7 классов разных игровых объектов, а именно: класс игрока, астероида, лазерного орудия,
бомбы, взрыва, стрельбы и фон звезд. Все эти классы тесно взаимодействуют друг с другом. В игре есть отслеживание столкновений и объектов
и соответственное реагирование на эти события, напрмер при разрушении астероида пулей есть шанс выпуска баффов для корабля.
В игре есть главное окно и финальное окно при разрушении корабля, где подсчитываются очки и можно начать игру заново или выйти. С главного
окна есть только возможность выхода, начать игру и посмотреть кнопки управления.
Корабль управляется с помощью кнопок мыши и стреляет с помощью пробела, при этом он может перемещаться по всему игровому полю, что
делает процесс сбора баффов более простым и быстрым....
