Question

inputBox函数和MsgBox函数

Sheet1中有一个按钮，请将该按钮关联一段VBA代码，执行一段程序。当按下按钮时，该程序通过 输入窗口（可使用InputBox函数）输入一个自然数n，然后使用for……next结构计算从1+2+。。。+n的结果，最后在利用输出窗口（可使用MsgBox函数）输出计算结果。　 　
需要的是vba代码

Answer 1

1. MSGBOX主要功能是“提示”，用户根据提示，点击鼠标，程序接收这个用户的选择即INTEGER值（例如：VBYES,VBNO等等），程序根据用户的选择决定执行什么功能。
   

2. 而INPUTBOX主要功能是“接收”，接收一个STRING变量，当然可以给INPUTBOX指定一个默认值。

　　另外，用户点击“取消”返回一个空值。    程序对用户输入的值进行处理，INPUTBOX返回的结果是程序下一步运行的参数。

　　切记：二者不可混为一谈。

Answer 2

追问

那段程序的代码，能发给我吗？

追答

文件都发给你了，自己可以看可以改的。就是下面的代码。
Private Sub CommandButton1_Click()
Dim n As Integer, s As Double, s2 As Double
s = 1
s2 = 0
n = Val(InputBox("请输入一个整数："))
For i = 1 To n
s = s * i
s2 = s2 + i
Next
MsgBox n & "的阶乘为：" & s & Chr(10) & Chr(13) & "1+..." & n & "的和为：" & s2

End Sub

追问

可以了，非常感谢