Вычисление косинуса в программе "Калькулятор"

Dim x#, y#, znak As Integer
Dim z
Dim s As String
Dim Pi#
Const e = 7
Dim tr As Boolean
 
Private Sub Command1_Click(Index As Integer)
If tr = True Then
Text1.Text = "": tr = False
End If
Text1.Text = Text1.Text + CStr(Index)
End Sub
 
 
 
Private Sub Command11_Click()
y = Val(Replace(Text1.Text, ",", "."))
 
Select Case znak
Case 1: z = x + y
Case 2: z = x - y
Case 3: z = x * y
Case 4: If y <> 0 Then z = x / y Else z = "Error"
End Select
If z <> "Error" Then z = Round(z, e)
Text1.Text = z
tr = False
End Sub
 
Private Sub Command12_Click()
Text1.Text = Text1.Text + "."
End Sub
 
Private Sub Command13_Click(Index As Integer)
x = Val(Replace(Text1.Text, ",", "."))
If tr = False Then tr = True
znak = Index + 1
End Sub
 
 
 
Private Sub Command15_Click(Index As Integer)
x = Val(Replace(Text1.Text, ",", "."))
Select Case Index
Case 0: s = Sin(x * Pi / 180)
Case 1: s = Cos(x * Pi / 180)
End Select
Text1.Text = Round(s, e)
 
End Sub
 
 
 
Private Sub Command19_Click()
 
Text1.Text = ""
znak = 0
z = 0
x = 0
y = 0
End Sub
 
Private Sub Command20_Click()
z = Val(Text1.Text)
z = z * (-1)
Text1.Text = z
End Sub
 
 
 
Private Sub Form_Load()
Pi = 4 * Atn(1)
tr = False
End Sub

Private Sub Command16_Click()
s = Cos(Val(Text1.Text) * 3.14159265358979 / 180)
Text1.Text = Format(s, "0.00000000")
End Sub

Private Sub Command16_Click()
s = Cos(Val(Text1.Text) * 3.1415926535 / 180)
Text1.Text = s
MSGBOX s,,"S="
End Sub