Программа на VBA

        .ChartTitle.Characters.Text = "Средний бал  по каждому предмету" ' задаем  название диаграммы

        .HasAxis(xlCategory, xlPrimary) = True

        .HasAxis(xlValue, xlPrimary) = True

    End With

    ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic

End Sub 'завершаем функцию  построения диаграммы 
 

Private Sub isnumer_Click() ' создаем  функцию для определения правильности введенных данных в ячейки

    For i = 1 To 10 'перебираем  значения по строкам с использованием  цикла for

        For j = 1 To 6 'перебираем значения по  столбцам

            ' если в ячейнке не число  или отрицательное число, или ячейка пустая, то выводим окно с сообщением о неправильных данных в ячейке и завершаем функцию

            If Not (IsNumeric(Cells(i + 2, j + 1))) Or Trim(Cells(i + 2, j + 1)) = "" Or CDbl(Cells(i + 2, j + 1)) <= 0 Or CDbl(Cells(i + 2, j + 1)) > 5 Then

                MsgBox ("В таблице присутствуют недопустимые значения!!!!") 'вывести сообщение

                Exit Sub 'завершить функцию принудительно

            End If 'завершение оператора ветвления

        Next j ' получить следующее значение  номера столбца

    Next i 'получить  следующее значение номера строки

    MsgBox ("Данные  в таблице правильные!!!!") ' вывести  сообщение если данные правильные

End Sub ' завершаем функцию  проверки правильности данных 
 

Private Sub ochistka() 'создаем  функцию которая очищает ячейки с полученными результатами

    Worksheets("Данные").Range("h2:h12").Clear 'очищаем содержимое ячеек

    Worksheets("Данные").Range("b13:h13").Clear 'очищаем содержимое ячеек

    Cells(14, 2) = "" 'очищаем содержимое ячейки

    Cells(15, 2) = "" 'очищаем содержимое ячейки

End Sub 'завершение функции' 
 

Private Sub proverka_Click() ' создаем  функцию проверки алгоритма на 0 и на 1

    Otv = MsgBox("Если  вы будете проверять правильность  на 1 нажмите Да, если на 0 нажмите  НЕТ", vbYesNo + vbQuestion) 'запрос на выбор ответа

    Sheets("Лист2").Select 'открываем лист с данными для  проверки на 0 или 1

    Worksheets("Лист2").Range("a1:h15").Value = Worksheets("Данные").Range("a1:h15").Value 'записываем данные из одного  листа в лист с данными

    If Otv = vbYes Then 'если выбрана кнопка "Да"

        Worksheets("Лист2").Range("b3:g12").Value = 1 'заполняем ячейки единицами

    Else 'иначе

        Worksheets("Лист2").Range("b3:g12").Value = 0 'заполняем ячейки нулями

    End If 'завершить  оператор if

    Call zap_mass 'вызываем функцию заполнения данными массивов

    Call zad_1 'вызываем  функцию для вычисления первого  задания варианта

    Call zad_2 'вызываем  функцию для вычисления второго  задания варианта

    Call zad_3 'вызываем  функцию для вычисления третьего задания варианта

    Call zad_4 'вызываем  функцию для вычисления четвертого  задания варианта

End Sub 
 

Private Sub vosstanov_Click() 'создаем  функцию выполняющуюся при нажатии  на кнопку vosstanovit - Восстановление  исходных данных

    Dim Otv As Integer ' описываем переменную для выбора ответа

    Otv = MsgBox("Желаете  ли Вы восстановить данные  из архива?", vbYesNo + vbQuestion) 'запрос  на выбор ответа

    If Otv = vbYes Then 'если выбрана кнопка "Да"

        Worksheets("Данные").Range("a1:g12").Value = Worksheets("Лист3").Range("a1:g12").Value 'записываем данные из одного листа в лист с данными

        Call ochistka 'вызываем функцию

    End If 'завершить  оператор if

End Sub 'завершаем функцию 

 

                                   Результат работы программы

Результат упорядочивания данных

 

Результат работы программы (построение диаграммы)

 
Запрос на проверку данных

Проверка  на 0

Проверка  на 1

 

 

                        

                       Список литературы

1.Иванов М.И., Суворов   Информатика.Часть2.Программирование.-Москва 2004.

2.Конспект курса  лекционных и практических занятий  в МГИУ.