Sheet1中有一个按钮，请将该按钮关联一段VBA代码，执行一段程序？

Question

当按下按钮时，该程序通过 输入窗口（可使用InputBox函数）输入一个自然数n，然后使用for……next结构计算从1+2+。。。+n的结果，最后在利用输出窗口（可使用MsgBox函数）输出计算结果。　 　

Answer 1

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