大家好!我最近在学习vba代码,学到循环语句了,遇到这么一段程序不明白。
      求1到1000的自然数的和,程序如下:   Sub mysum()
Dim Lsum As Long, i As Long
For i = 1 To 1000
    Lsum = Lsum + i
Next
MsgBox "1到1000的自然数和为:" & Lsum
End Sub
  
   我想问的是“Dim Lsum As Long, i As Long”和“  Lsum = Lsum + i”是什么意思啊。还有就是L和i分别定义的是什么呀?

解决方案 »

  1.   

    Sub mysum()  '定义一个过程名 mysum()
    Dim Lsum As Long, i As Long  '定义两个变量,Lsum是累计值, i为自然数递增变量
    For i = 1 To 1000  '让i从1到1000循环
      Lsum = Lsum + i  '每次i增加的时候, Lsum都自动累计所有i从1~现在的值,直到到了1000时自动退出
    Next  
    MsgBox "1到1000的自然数和为:" & Lsum    'msgobx 显示最后累计的Lsum内容
    End Sub
    快给分