VBA编写程序，输入一个整数n，输出S=21*1!+ 22*2!+ 23*3!+…+2n*n!

以下是使用VBA编写的程序，可以完成输入一个整数n，输出S=21*1!+ 22*2!+ 23*3!+…+2n*n!的功能：

Sub calculateS()
    Dim n As Integer
    Dim i As Integer
    Dim factorial As Long
    Dim S As Double
    
    n = InputBox("请输入一个整数n：")
    S = 0
    
    For i = 1 To n
        factorial = 1
        For j = 1 To i
            factorial = factorial * j
        Next j
        S = S + (2 ^ i) * factorial
    Next i
    
    MsgBox "S的值为：" & S
End Sub

程序中使用了两个循环，外层循环控制i的取值范围为1到n，内层循环计算i的阶乘。其中，使用了变量factorial来保存计算出来的阶乘，S用来保存最终的结果。在每次循环时，先根据i计算出i的阶乘，然后根据公式S=21*1!+ 22*2!+ 23*3!+…+2n*n!计算出本次循环的结果，最后将结果累加到S中。最终，使用MsgBox函数输出S的值。