Государственная аттестация по дисциплинам программистского цикла. Курганский В.И - 11 стр.

        Координаты каждой из точек задаются в колонках A и B.
Дополнительно они помечены символами X и Y. Значения координат
вводятся и редактируются обычным образом после позиционирования на
соответствующую ячейку Excel.
        Перед запуском программы для вычисления длины ломаной
необходимо выделить при помощи мыши или с клавиатуры нужную область
ячеек. На рисунке выделена область ячеек по адресу: $A$2:$B$9. Для
выделенной области существуют следующие ограничения:
          • Количество строк должно быть больше одной
          • Количество столбцов должно быть ровно 2
          • В выделенной области должны быть только числовые значения
Все эти ограничения контролируются в программном коде.
      Запуск программы обработки ломаной осуществляется нажатием
командной кнопки, расположенной на этом же листе справа от исходных
данных. Кнопка имеет название «Длина ломаной»
      Результат вычисления записывается в следующей за выделенным
фрагментом строке, во второй колонке. На рисунке это ячейка $B$10
       Выводы. Основу разработанной информационной технологии для
решения экзаменационной задачи составляет табличный процессор Excel. Он
же обеспечивает необходимый интерфейс. Программное обеспечение
представляет собой макрос, выполненный в VBA.
                            Программный код
      Sub Длина_Ломаной()
      Dim mSel As Range
      Dim x As Double, y As Double, i As Integer

      Set mSel = Application.Selection
      If mSel.Rows.Count < 2 Then
         MsgBox " Необходимо выделить область с координатами точек
из двух колонок "
         Exit Sub
      End If
      If mSel.Columns.Count <> 2 Then
         MsgBox " Область с координатами точек должна состоять из
двух колонок"
         Exit Sub
      End If

     x=0
     For i = 1 To mSel.Rows.Count - 1
       If IsNumeric(mSel(i, 1).Value) And IsNumeric(mSel(i + 1, 1).Value)
And IsNumeric(mSel(i, 2).Value) And IsNumeric(mSel(i + 1, 2).Value) Then


                                                                       11