Процедуры и функции: определение центра тяжести плоских геометрических фигур (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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д