The infinite series for the cosine of x is cos x = sigma^n_i=0 (-1)^i x^2i/(2i)! or, in expanded form, x = x^0/0! - x^2/2! + x^4/4! - x^6/6! + ellipsis Write a Sub procedure, cosine, that uses this formula to calculate the value of the cosine of x, given x and the number of terms, n. Use separate procedure, to calculate the factorial of x. Do not have the Sub procedure any input or output. That is, just do the calculation. Here is the calling program: Option Explicit Sub cosEvaluate () Dim n As Integer Double Dim x As Double, c As Double x = InputBox("Enter value of x:") n = InputBox ("Enter number of evaluations: ") Call cosine (x, n, c) MsgBox c End Sub