Cos function in VB 6 returns the cosine value of a degree. When you enter a degree value in the program, it gives you a real value, that is, the
The program code is given below along with output.
Program Code: Cos Function
Private Sub Command1_Click() Dim Cosine As Double Cosine = Cos(Val(Text1.Text)) MsgBox ("The Cosine value is" & " " & Cosine) End Sub