Процедуры и функции: определение центра тяжести плоских геометрических фигур (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