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

Question

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

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