Нарисовать несколько вишен - VB

Формулировка задачи:

Составить программу в Visual Basic для рисования на форме с помощью графических методов грозди вишен. Помогите пожалуйста, буду очень признательна)

Решение задачи: «Нарисовать несколько вишен»

textual
                            Листинг программы 
                        

                            Private Sub Form_Load()
    Dim i As Integer
    AutoRedraw = True
    FillColor = vbRed
    BackColor = vbWhite
    ForeColor = vbBlue
    FontSize = 18
    FontBold = True
    Print "Ветка вишни"
    FillStyle = 0
    DrawWidth = 3
    ForeColor = 0
    Scale (-10, 10)-(10, -10)
    Line (-5, 5)-(5, 5)
    For i = -3 To 3 Step 3
        Line (i, -3)-(0, 5)
        Circle (i, -3), 2
    Next i
End Sub
                        

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

6 голосов , оценка 4.167 из 5

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