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

Dim a, b, c, d, x, y, z As Double

Dim Kteklik, Kobes, Rpr, Rproiz As Double

Dim Fotd, Oos, Oobakt, Ozap, Odz, Oba, Oksk As Double

Dim s500, s510, s730, s735, s740, tekaktiv, tekpassiv As Double

Расчёт частного от значений 1-го и 2-го текстовых полей:

Private Sub Command1_Click()

Text3.Text = "" a = 0 b = 0 c = 0

If Text1.Text = "" Then GoTo M

If Text2.Text = "" Then GoTo M

If Text2.Text = 0 Then Text3.Text = "На ноль делить нельзя!!!"

If Text2.Text = 0 Then GoTo M a = Text1.Text b = Text2.Text c = a / b

Text3.Text = c

M:

Text1.SetFocus

End Sub

Очистка формы от всех результатов:

Private Sub Command2_Click()

Text1.Text = ""

Text2.Text = ""

Text3.Text = ""

Label1.Caption = "Показатель"

Label4.Caption = ""

Label5.Caption = ""

Label6.Caption = ""

Label7.Caption = ""

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



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

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