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

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

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

x = Val(Text1.Text)

y = Val(Text2.Text)

b = x - y

Label5.Caption = Str(b)

End Sub

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

x = Val(Text1.Text)

y = Val(Text2.Text)

b = x * y

Label6.Caption = Str(b)

End Sub

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

x = Val(Text1.Text)

y = Val(Text2.Text)

b = x / y

Label7.Caption = Str(b)

End Sub

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

x = Val(Text1.Text)

y = Val(Text2.Text)

a = x \ y

Label8.Caption = Str(a)

End Sub

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

x = Val(Text1.Text)

y = Val(Text2.Text)

a = x Mod y

Label9.Caption = Str(a)

End Sub

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

x = Val(Text1.Text)

y = Val(Text2.Text)

b = x ^ y

Label10.Caption = Str(b)

End Sub

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

z = Val(Text3.Text)

b = Abs(z)

Label11.Caption = Str(b)

End Sub

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

z = Val(Text3.Text)

b = Atn(z)

Label12.Caption = Str(b)

End Sub

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

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

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

Label13.Caption = Str(b)