v_obl.Text = "0"

v_ob_ak.Text = "0"

End Sub

Sub EXT_Click ()

End

End Sub

Sub Form_Load ()

kol = 0

summa = 0

End Sub

Sub V_OB_AK_Change ()

If Val(v_ob_ak.Text) < 0 Then

MsgBox "Требуется ввести положительное число"

v_ob_ak.Text = "0"

End If

End Sub

Sub V_obl_Change ()

If Val(v_obl.Text) < 0 Then

MsgBox "Требуется ввести положительное число"

v_obl.Text = "0"

End If

End Sub

Sub V_PR_AK_Change ()

If Val(v_pr_ak.Text) < 0 Then

MsgBox "Требуется ввести положительное число"

v_pr_ak.Text = "0"

End If

End Sub

Тестовая задача.

Рассчитать финансовый леверидж для данной группы из 8 акционерных обществ, а также рассчитать среднее значение левериджа для этих предприятий.