Нарисуйте на экранной форме ряд состоящий из десяти одинаковых треугольников - VB
Формулировка задачи:
С помощью оператора цикла со счетчиком и графического метода Line нарисуйте на экранной форме ряд состоящий из десяти одинаковых треугольников.
заранее спасибо!)
Решение задачи: «Нарисуйте на экранной форме ряд состоящий из десяти одинаковых треугольников»
textual
Листинг программы
- Option Explicit
- Private Sub Form_Load()
- Dim n As Single, s As Single
- AutoRedraw = True: s = ScaleWidth / 11
- For n = 0 To ScaleWidth Step ScaleWidth / 10
- Line (n, s)-Step(s, 0): Line -Step(-s / 2, -s): Line -Step(-s / 2, s)
- Next
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
