VB中运用计数循环结构计算出1+2+3+4+......+100的结果代码？

Question

我是VB6.0初学者，麻烦高手帮我详细解说一下下面这段代码的循环每一个执行步骤啊，要容易理解点的。谢谢。Private Sub Command1_Click()Dim i As IntegerDim sum As Longsum = 0For i = 1 To 100sum = sum + iNext iPrint sumEnd Sub

Answer 1

Private Sub Command1_Click() // command的点击事件触发后执行
Dim i As Integer // 定义一个i变量为整形的，用来进行循环赋值
Dim sum As Long //定义一个sum变量长整形的，用来保存i每次自加之和
sum = 0 //给定义的sum变量赋上初始值为0，因为变量没值不能和数值相加
For i = 1 To 100 //for循环 刚定义的i变量赋初值为1 to到100结束 默认每次i自加1
sum = sum + i //然后sum把每次循环自加1的i保存到sum中，
Next i //继续循环i直到条件i到101的时候不满足自动结束for循环
Print sum //默认打印sum的值到当前窗体中End Sub //结束当前函数事件这样第一次i等于1没到100 于是执行for循环 将sum=0+上这个i的值 i当前值为1 这样sum就等于1了，然后判断for循环是否满足i到100的值，明显i并没有到100 所以for循环继续执行，第二次i就默认自加了1，犹豫没设定步长step所以这个超作是留给虚拟机自动识别的。这次把sum的值加上i循环后的值 i现在是2 而sum等于上次i的值为1 所以1+2就等于3然后把结果给了sum 这样一直循环...........直到i等于101的时候超过了100就停止执行了，所以sum最终都是i自加后的值 这个时候循环结束然后执行下一条语句也就是print sum 打印sum的值 于是总数是5050吧。

Answer 2

Private Sub Form_Click()
Dim s As Integer, i As Integer
s = 0
i = 1
Do
s = s + i
i = i + 1
Loop Until i = 101
Print "s="; s
End Sub
运行结果：
s= 5050

Answer 3

vb你都会，地球人真是无法阻挡你了，