Курсовая работа: Расчет составной конструкции системы двух тел

End Sub

Private Sub ex_Click()

otvet = MsgBox("Завершить программу?", vbYesNo + vbQuestion, "Курсовая работа по информатике")

If otvet = vbYes Then End

End Sub

Private Sub MDIForm_Load()

End Sub

Private Sub mnuDannye_Click()

frmDannye.Show

End Sub

Private Sub mnuExit_Click()

otvet = MsgBox("Завершить программу?", vbYesNo + vbQuestion, "Курсовая работа по информатике")

If otvet = vbYes Then End

End Sub

Private Sub mnuPassport_Click()

frmPasport.Show

End Sub

Private Sub mnuRaschet_Click()

frmRaschet.Show

End Sub

Private Sub cmdShow_Click()

Set Pic1 = Picture1

Picture1.Picture = LoadPicture()

a = 10

alfa = 4 * Atn(1) / 3

Picture1.ScaleMode = 6

Picture1.DrawWidth = 3.5

' Рисуем исходный рисунок

xo = 10: yo = 40 'начальная точка