首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

请帮小弟我解释一下这段程序。多谢

2012-03-17 
请大虾帮我解释一下这段程序。谢谢!大家好!我最近在学习vba代码,学到循环语句了,遇到这么一段程序不明白。求

请大虾帮我解释一下这段程序。谢谢!
大家好!我最近在学习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分别定义的是什么呀?

[解决办法]
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


快给分

热点排行