Нарисовать треугольник - VB
Формулировка задачи:
Имеется Picture2, как нарисовать в нем треугольник ?
Решение задачи: «Нарисовать треугольник»
textual
Листинг программы
- d = 1000
- XP = (Picture2.Width - d) / 2
- YP = (Picture2.Height + 2 * d / 3) / 2
- FillStyle = 0
- Picture2.Line (XP, YP)-(XP + d, YP), vbBlack
- Picture2.Line (XP + d, YP)-(XP + d / 2, YP / 2), vbBlack
- Picture2.Line (XP + d / 2, YP / 2)-(XP, YP), vbBlack
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
