编写一个计算n！的VBA程序，要求：n的值由输入框输入，结果在消息框输出

Sub a()Dim n, x As Integern = InputBox("请输入一个整数")x = 1For i = 1 To nx = x * iNext iMsgBox (n & "!=" & x)End Sub