Вывод на экран геометрической фигуры - VB

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

Составить программу, реализующую вывод на экран геометрической фигуры по ее номеру: 1- окружность, 2 – ромб, 3 – цилиндр.

Решение задачи: «Вывод на экран геометрической фигуры»

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

                            Private Sub Комманда2_Click()
Scale (0, 50)-(50, 0)
DrawWidth = 3
Circle (25, 10), 10, , , , 0.5
Circle (25, 30), 10, , , , 0.5
Line (15, 10)-(15, 30)
Line (35, 10)-(35, 30)
End Sub
                        

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

9 голосов , оценка 4.556 из 5

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