Нарисуйте на экранной форме ряд состоящий из десяти одинаковых треугольников - 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
                        

Оцени полезность:

12 голосов , оценка 4.25 из 5

Похожие ответы