Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Private Sub Command6_Click()

If Fotd = 0 Then GoTo M: a = 365 / Int(Fotd)

Label10.Caption = Int(a)

M:

If Oos = 0 Then GoTo N: b = 365 / Int(Oos)

Label11.Caption = Int(b)

N:

If Oobakt = 0 Then GoTo V: c = 365 / Int(Oobakt)

Label18.Caption = Int(c)

V:

If Ozap = 0 Then GoTo F: d = 365 / Int(Ozap)

Label19.Caption = Int(d)

F:

If Odz = 0 Then GoTo H: x = 365 / Int(Odz)

Label20.Caption = Int(x)

H:

If Oba = 0 Then GoTo P: y = 365 / Int(Oba)

Label21.Caption = Int(y)

P:

If Oksk = 0 Then GoTo I: z = 365 / Int(Oksk)

Label22.Caption = Int(z)

I:

End Sub

Завершение работы приложения:

Private Sub Exit_Click()

Рекомендуем скачать другие рефераты по теме: курсовая работа политика, бесплатные дипломные работы.



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки