错写代码，结果新程序能导致 XP 系统假死？

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.程序陷入死循环
'程序将一直无限制的计算，所以程序会造成系统卡死，直到终止程序的运行。