Нарисовать треугольник - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д