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的值。

相关问题

【问题描述】 编写VBA程序，输入一个正整数n，输出S=21*1!+ 22*2!+ 23*3!+…+2n*n!的值。 【输入形式】 输入正整数n。 【输出形式】 输出数列之和。 【样例输入】 5 【样例输出】 4282

以下是 VBA 代码实现：

Function Factorial(ByVal n As Integer) As Long
    If n <= 1 Then
        Factorial = 1
    Else
        Factorial = n * Factorial(n - 1)
    End If
End Function

Sub sum()
    Dim n As Integer, i As Integer, total As Long
    total = 0
    n = InputBox("请输入正整数n：")
    For i = 1 To n
        total = total + (2 ^ i) * Factorial(i)
    Next i
    MsgBox "S=" & total
End Sub

这里定义了一个函数 `Factorial` 来计算阶乘，然后在 `sum` 这个子程序中读入输入的正整数n，用一个循环来计算序列的和，最后输出结果。

设sum=1^1+2^2+3^3+…+n^n,使用VBA语言求sum不大于100000时最大的n

以下是使用 VBA 语言求解 sum 不大于 100000 时最大的 n 的代码：

Sub FindMaxN()
Dim sum As Double
Dim n As Integer
sum = 0
n = 1
Do While sum + n ^ n <= 100000
sum = sum + n ^ n
n = n + 1
Loop
MsgBox "最大的 n 为：" & n - 1 & "，sum 为：" & sum
End Sub

运行该代码后，会弹出一个消息框，显示最大的 n 为 4，sum 为 30。