G = InputBox ("Introduzca un ángulo en grados.") R = G * 2 * 3.1416 / 360 ra = MsgBox("El ángulo en radianes vale: " &R) seno=sin(R) cose=cos(R) sc= MsgBox("Su seno vale " &seno & Chr(13) & Chr(10) &"Su coseno vale " &cose)