程序界面：

很简单，一个Command按钮
代码：

Option Explicit

Private Sub Command1_Click()         'Command1单击事件
Dim i As Integer, mySum As Integer    '定义i和mySum为整型局部变量,
  Do While i <= 50                   'Do loop循环语句，循环条件：当i<=50时执行循环语句。
    mySum = mySum + i                '循环语句：每次循环,执行一次mysum+i然后将值赋给mySum
    i = i + 1                        '循环语句：每次循环，执行一次i+1然后将值赋给i
    Loop
MsgBox mySum                        '循环结束后，弹出mySum的值

End Sub

让我感觉到疑惑的是：
i  和  mySum的初始值是多少？
没初始值怎么得出的结果1275？

数值型变量默认初始值为0
字符型是空串“”
逻辑型是False
……

一般我们都是事先赋值，以避免不必要的麻烦。

我连这个都不知道，是不是。。。有点2B。。

再列举详细一点啊。。。

这次不知，下次不就知道了！慢慢来就好了！

嗯，对，贵在坚持！一起努力