Question

求excel中计算1+2+。。+n的VBA代码！

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

就是这样的要求，谢谢。

Answer 1

方法1，速度超快：
Sub x()
n = InputBox("请输入一个数字，用于计算【1+2+3+...+n】的结果", "提示", "100")
结果 = (n + 1) * (n / 2)
MsgBox "【1+2+3+...+n】的计算结果是" & 结果
End Sub

方法2，速度稍慢，在数字异常大时有体现：
Sub x()
n = InputBox("请输入一个数字，用于计算【1+2+3+...+n】的结果", "提示", "100")
For i = 1 To n
结果 = 结果 + i
Next i
MsgBox "【1+2+3+...+n】的计算结果是" & 结果
End Sub

正解，请采纳，谢谢。

Answer 2

Sub sum1ton()
Dim i%, n%, r&
n = InputBox("请输入一个自然数")
For i = 1 To n
r = r + i
Next i
MsgBox ("1+2+...+n的结果是：" & r)
End Sub

作业还是多自己思考的好，这个题目非常简单的

追问

如果弹出来的框框什么都没有怎么办。。？

 

（压根就没学过书上又没有怎么思考。。）

追答

晕，这作业原来是预习用的么……
什么都没有的话估计excel有问题吧，换个机器试试，如果有的话那你的excel可能需要修复一下。
msgbox和inputbox都不涉及窗口的显示问题。

追问

搞定了！谢谢~
就，其实能不能解释一下什么意思，，，，

追答

sub和end sub是定义过程的开始和结束，sum1ton是给这个过程起的个名字，
dim是定义了3个数字，i、n、r，都是整数，其中r是长整数，避免计算的结果过大溢出，
然后弹出inputbox，把输入的数字赋值给n，
for就是循环的开始，让i从1循环到n，
r刚定义的时候是0，第一次循环：r＝0+1，第二次，r已经是1了，r＝1+1……
next i就是循环下个i，和前面的for是一对。
最后算出的r用msgbox输出显示。

Answer 3

代码如下：

Private Sub CommandButton1_Click()
Dim n, i, m
n = InputBox("请输入一个自然数")
n = Val(n)
For i = 1 To n
   m = m + i
Next
MsgBox "1到" & n & "的和为：" & m
End Sub

Answer 4

Sub tset()
    n = Application.InputBox("请输入数据:")
    For i = 1 To n
        If n > 0 Then s = s + i
    Next
    MsgBox s
End Sub