https://bbs.bccn.net/thread-437769-1-1.html
本来想写这个，结果代码写错了。
成了一个新的2B程序。。
界面：

代码：

Option Explicit

Private Sub Command1_Click()          'Command1的单击事件
Dim i As Integer, mySum As Integer      '定义整型局部变量，i  mysum         i和mysum 的初始值均为0
  Do While i <= 50            'Do  loop 循环语句， 循环条件为i<=50           0<50 循环条件成立，开始执行循环语句。
  mySum = i + 1               '循环语句：每次将整型局部变量i+1的值赋给mysum   mysum=0+1=1
  Loop
  MsgBox mySum                '最后弹出mysum 的值
  
End Sub                       '  结束过程
'数值类型的默认值为0，字符串类型的默认值为空字符串""，逻辑类型的默认值为False。。
'i=0,没有给使变量i变化的表达式，所以i永远是0，
'mysum=0+1=1    因为i永远为0，所以mysum的值永远为1.程序陷入死循环
'程序将一直无限制的计算，所以程序会造成系统卡死，直到终止程序的运行。

最主要的是，错写的这个程序，并没有任何报错，还且还会造成系统假死(XP)？
你们测试下， 看看是什么原因。。。
附件：

总结：
认真是做任何事情所必须的。

[ 本帖最后由 VB丶小宇 于 2014-10-28 12:10 编辑 ]

i值未累加，结果是i值恒等于0，mysum值恒等于1，死循环。

大神就是大神，一眼看出。