End Sub. Private Sub Command11_Click() 'щелчок по кнопке "Cos"

Private Sub Command11_Click() 'щелчок по кнопке "Cos"

z = Val(Text3.Text) 'будем считать, что введено число в градусах

b = Cos((z * Atn(1) * 4) / 180) 'переводим исходное число Z в радианы и вычисляем косинус данного угла

Label14.Caption = Str(b)

End Sub

Private Sub Command12_Click() 'щелчок по кнопке "Tan"

z = Val(Text3.Text) 'будем считать, что введено число в градусах

b = Tan((z * Atn(1) * 4) / 180) 'переводим исходное число Z в радианы и вычисляем тангенс данного угла

Label15.Caption = Str(b)

End Sub

Private Sub Command13_Click() 'щелчок по кнопке "Exp"

z = Val(Text3.Text)

b = Exp(z)

Label16.Caption = Str(b)

End Sub

Private Sub Command14_Click() 'щелчок по кнопке "Log"

z = Val(Text3.Text)

b = Log(Abs(z))

Label17.Caption = Str(b)

End Sub

Private Sub Command15_Click() 'щелчок по кнопке "Sqr"

z = Val(Text3.Text)

b = Sqr(Abs(z))

Label18.Caption = Str(b)

End Sub

Private Sub Command16_Click() 'щелчок по кнопке "Rnd"

Randomize Timer 'для неповторяемости числа

z = Val(Text3.Text)

a = (z - 0 + 1) * Rnd() + 0 'случайное число в диапазоне от 0 до Z

Label19.Caption = Str(a)

End Sub

Private Sub Command17_Click() 'щелчок по кнопке "Int"

z = Val(Text3.Text)

a = Int(z)

Label20.Caption = Str(a)

End Sub

Private Sub Command18_Click() 'щелчок по кнопке "Fix"

z = Val(Text3.Text)

a = Fix(z)

Label21.Caption = Str(a)








Дата добавления: 2015-06-12; просмотров: 668;


Поиск по сайту:

При помощи поиска вы сможете найти нужную вам информацию.

Поделитесь с друзьями:

Если вам перенёс пользу информационный материал, или помог в учебе – поделитесь этим сайтом с друзьями и знакомыми.
helpiks.org - Хелпикс.Орг - 2014-2024 год. Материал сайта представляется для ознакомительного и учебного использования. | Поддержка
Генерация страницы за: 0.003 сек.