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

UptoLike

13
осуществляется с помощью командных кнопок, надписи на которых
указывают на их назначение.
Текст программы состоит из общей части, где описан тип данных
«точка» и необходимые переменные, а также процедур обработки событий.
Важной переменной является динамический массив Points, элементы
которого содержат значения координат точек, составляющих ломаную.
К событиям относятся:
- Загрузка формы;
- Движение мыши в рабочей области (ЭУ PictureBox).
- Отпускание кнопки мыши в PictureBox.
- Щелчки левой кнопкой мыши по командным кнопкам.
Текст программы приведен ниже.
Общая часть
Private Type point ‘ Тип «Точка»
X As Long
Y As Long
End Type
Dim p As point, p1 As point
Dim Points() As point ‘ Ломаная
Dim Tek As Integer
Private Sub Command1_Click() ‘Завершение работы приложения
End
осуществляется с помощью командных кнопок, надписи на которых
указывают на их назначение.




     Текст программы состоит из общей части, где описан тип данных
«точка» и необходимые переменные, а также процедур обработки событий.
Важной переменной является динамический массив Points, элементы
которого содержат значения координат точек, составляющих ломаную.
     К событиям относятся:
            - Загрузка формы;
            - Движение мыши в рабочей области (ЭУ PictureBox).
            - Отпускание кнопки мыши в PictureBox.
            - Щелчки левой кнопкой мыши по командным кнопкам.

      Текст программы приведен ниже.

‘ Общая часть
Private Type point ‘ Тип «Точка»
   X As Long
   Y As Long
End Type
Dim p As point, p1 As point
Dim Points() As point ‘ Ломаная
Dim Tek As Integer

Private Sub Command1_Click() ‘Завершение работы приложения
  End

                                                                   13