lab6

Function Factorial(Num As Double) As Double
If Num = 0 Then
Factorial = 1
Else
Factorial = Num * Factorial(Num - 1)
End If
End Function

Sub Fac(n As Integer)

End Sub
Sub faccc()
Dim n As Double
n = Cells(1, 2)
Cells(2, 2) = Factorial(n)
End Sub
Sub Conv()
Dim temp As Double
temp = Cells(1, 5)
Cells(2, 5) = 1.8 * temp + 32
Cells(3, 5) = temp + 273
End Sub
Sub ButtonCelsius()
Call faccc
Call Conv
End Sub