Процедуры и функции: определение центра тяжести плоских геометрических фигур (VB 6.0)

Узнай цену своей работы

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

Разработать приложение, назначением которого является определение центра тяжести плоских геометрических фигур (равностороннего треугольника, квадрата, прямоугольника, круга, ромба). Вывести изображение перечисленных фигур и провести через центры тяжести лини.

Решение задачи: «Процедуры и функции: определение центра тяжести плоских геометрических фигур (VB 6.0)»

textual
Листинг программы
Option Explicit
Dim ix As Integer
 
Private Sub cmdKrug_Click()
    Image1(ix).Visible = False
    Image1(3).Visible = True
    ix = 3
End Sub
 
Private Sub cmdKvad_Click()
    Image1(ix).Visible = False
    Image1(1).Visible = True
    ix = 1
End Sub
 
Private Sub cmdPram_Click()
    Image1(ix).Visible = False
    Image1(4).Visible = True
    ix = 4
End Sub
 
Private Sub cmdRomb_Click()
    Image1(ix).Visible = False
    Image1(0).Visible = True
    ix = 0
End Sub
 
Private Sub cmdTreu_Click()
    Image1(ix).Visible = False
    Image1(2).Visible = True
    ix = 2
End Sub
 
Private Sub Command1_Click()
    End
End Sub

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


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

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

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