ВУЗ:
Составители:
Рубрика:
15
If Tek > 0 Then
p1.X = Points(Tek).X
p1.Y = Points(Tek).Y
Picture1.Line (p1.X, p1.Y)-(p.X, p.Y)
End If
' Рисование линии
ReDim Preserve Points(Tek + 1)
Points(Tek + 1).X = X
Points(Tek + 1).Y = Y
Tek = Tek + 1
End Sub
Спецификация файлов отчета об экзаменационной работе
№ п/п Имя файла Длина, байт Назначение Примечания
1. Project1.vbp 640 Головной файл
проекта.
2. Project1.vbw 50 Системный
файл проекта.
Формируется
ИС Visual Basic
автоматически
3. Form1.frm 5147 Модуль формы Сформирован
мной в ИС
Visual Basic
визуальными
средствами и с
помощью
редактора кода.
2. Отчет о выполнении
экзаменационного
задания Вариант 3.doc
54272 Настоящий
документ
Выполнил:
Студент группы 2523 Таипов Таип Таипович
Электронный отчет
согласно спецификации принял,
Старший оператор Операторов Оператор
Операторович
If Tek > 0 Then
p1.X = Points(Tek).X
p1.Y = Points(Tek).Y
Picture1.Line (p1.X, p1.Y)-(p.X, p.Y)
End If
' Рисование линии
ReDim Preserve Points(Tek + 1)
Points(Tek + 1).X = X
Points(Tek + 1).Y = Y
Tek = Tek + 1
End Sub
Спецификация файлов отчета об экзаменационной работе
№ п/п Имя файла Длина, байт Назначение Примечания
1. Project1.vbp 640 Головной файл
проекта.
2. Project1.vbw 50 Системный Формируется
файл проекта. ИС Visual Basic
автоматически
3. Form1.frm 5147 Модуль формы Сформирован
мной в ИС
Visual Basic
визуальными
средствами и с
помощью
редактора кода.
2. Отчет о выполнении 54272 Настоящий
экзаменационного документ
задания Вариант 3.doc
Выполнил:
Студент группы 2523 Таипов Таип Таипович
Электронный отчет
согласно спецификации принял,
Старший оператор Операторов Оператор
Операторович
15
Страницы
- « первая
- ‹ предыдущая
- …
- 13
- 14
- 15
- 16
- 17
- …
- следующая ›
- последняя »
