Scientific Calculator

Dim Y As Double, X As Double, A As Double

Private Sub Command1_Click()
A = 22 / (7 * 180)
X = Text1.Text
Y = Sin(X * A)
Text1.Text = Round(Y, 6)
End Sub

Private Sub Command10_Click()
X = Text1.Text
Y = Exp(X)
Text1.Text = Round(Y, 6)
End Sub

Private Sub Command2_Click()
A = 22 / (7 * 180)
X = Text1.Text
Y = Cos(X * A)
Text1.Text = Round(Y, 6)
End Sub

Private Sub Command3_Click()
A = 22 / (7 * 180)
X = Text1.Text
Y = Tan(X * A)
Text1.Text = Round(Y, 6)
End Sub

Private Sub Command4_Click()
A = 22 / (7 * 180)
X = Text1.Text
Y = 1 / Sin(X * A)
Text1.Text = Round(Y, 6)
End Sub

Private Sub Command5_Click()
A = 22 / (7 * 180)
X = Text1.Text
Y = 1 / Cos(X * A)
Text1.Text = Round(Y, 6)
End Sub

Private Sub Command6_Click()
A = 22 / (7 * 180)
X = Text1.Text
Y = 1 / Tan(X * A)
Text1.Text = Round(Y, 6)
End Sub

Private Sub Command7_Click()
Text1.Text = ""
End Sub

Private Sub Command8_Click()
X = Text1.Text
Y = Log(X)
Text1.Text = Round(Y, 6)
End Sub

Private Sub Command9_Click()
X = Text1.Text
Y = Log(X) / 2.303
Text1.Text = Round(Y, 6)
End Sub