Вывести на форму квадрат, эллипс, ромб и текстовые подписи для фигур - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

6   голосов , оценка 4.167 из 5
Похожие ответы