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