End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

End Sub

8. Аналогично напишите обработчики события Click для остальных кнопок:

Private Sub Command2_Click() 'щелчок по кнопке "-"

x = Val(Text1.Text)

y = Val(Text2.Text)

b = x - y

Label5.Caption = Str(b)

Private Sub Command3_Click() 'щелчок по кнопке "*"

x = Val(Text1.Text)

y = Val(Text2.Text)

b = x * y

Label6.Caption = Str(b)

Private Sub Command4_Click() 'щелчок по кнопке "/"

x = Val(Text1.Text)

y = Val(Text2.Text)

b = x / y

Label7.Caption = Str(b)

Private Sub Command5_Click() 'щелчок по кнопке "\"

x = Val(Text1.Text)

y = Val(Text2.Text)

a = x \ y

Label8.Caption = Str(a)

Private Sub Command6_Click() 'щелчок по кнопке "Mod"

x = Val(Text1.Text)

y = Val(Text2.Text)

a = x Mod y

Label9.Caption = Str(a)

Private Sub Command7_Click() 'щелчок по кнопке "^"

x = Val(Text1.Text)

y = Val(Text2.Text)

b = x ^ y

Label10.Caption = Str(b)

Private Sub Command8_Click() 'щелчок по кнопке "Abs"

z = Val(Text3.Text)

b = Abs(z)

Label11.Caption = Str(b)

Private Sub Command9_Click() 'щелчок по кнопке "Atn"

z = Val(Text3.Text)

b = Atn(z)

Label12.Caption = Str(b)

Private Sub Command10_Click() 'щелчок по кнопке "Sin"

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

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

Label13.Caption = Str(b)

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

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

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

Label14.Caption = Str(b)

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

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

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

Label15.Caption = Str(b)

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

z = Val(Text3.Text)

b = Exp(z)

Label16.Caption = Str(b)

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

z = Val(Text3.Text)

b = Log(Abs(z))

Label17.Caption = Str(b)

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

z = Val(Text3.Text)

b = Sqr(Abs(z))

Label18.Caption = Str(b)

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

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

z = Val(Text3.Text)

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

Label19.Caption = Str(a)

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

z = Val(Text3.Text)

a = Int(z)

Label20.Caption = Str(a)

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

z = Val(Text3.Text)

a = Fix(z)

Label21.Caption = Str(a)

Private Sub Command19_Click() 'щелчок по кнопке "CInt"

z = Val(Text3.Text)

a = CInt(z)

Label22.Caption = Str(a)

Дата добавления: 2014-12-23