Вывести на форму квадрат, эллипс, ромб и текстовые подписи для фигур - VB
Формулировка задачи:
Написать программу, которая выводит на форму квадрат, элипс, ромб и текстовые подписи для фигур.
Решение задачи: «Вывести на форму квадрат, эллипс, ромб и текстовые подписи для фигур»
textual
Листинг программы
Private Sub Command1_Click() Scale (0, 100)-(100, 0) Line (5, 75)-(25, 95), vbRed, B ForeColor = vbRed Print " ГЄГўГ*äðГ*ГІ" Circle (20, 50), 12, vbGreen, , , 0.7 ForeColor = vbGreen Print " ýëèïñ" Line (5, 5)-(10, 25), vbBlue s = Sqr(5 ^ 2 + 20 ^ 2) Line (10, 25)-(s + 10, 25), vbBlue ForeColor = vbBlue Print " ðîìá" Line (s + 10, 25)-(s + 5, 5), vbBlue Line (s + 5, 5)-(5, 5), vbBlue End Sub Private Sub Form_Load() Form1.Height = 6000 Form1.Width = 6000 End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д