实验名称：根据n的不同取值,分别计算从1到n的累加和或者n!实验要求：n要求为整数,利用InputBox()函数

Sub shiyan()
Dim InputValue,ReturnValue As Integer
InputValue = InputBox("请输入一个自然数","实验",1)
If InputValue < 1 Or InputValue - Int(InputValue) 0 Then
MsgBox "错误：输入必须为自然数!" & Chr(10) & "程序终止!"
Exit Sub
End If
ReturnValue = InputValue * (InputValue + 1) / 2
MsgBox "从1到输入值N=" & InputValue & ":" & Chr(10) & "累加结果为：" & ReturnValue & Chr(10) & _
"阶乘结果为" & Evaluate("fact(" & InputValue & ")")
End Su

编程？