求这段vbs代码的解释

dim a
a=msgbox("给你讲个故事!",vbyesno,"XX制作")
if a=vbyes then
    do
      msgbox("从前有座山")
      msgbox("山上有座庙")
      msgbox("庙里有两个和尚")
      msgbox("大和尚给小和尚讲故事说")
   a=1
loop while a=1
end if

给你讲故事，你如果点“是”，就一一地弹出下面的4个消息框，然后又一一地弹出下面的4个消息框 a=1
loop while a=1这里是死循环
这样写会更好，效果和上面的是一样的：do
    msgbox("从前有座山")
    msgbox("山上有座庙")
    msgbox("庙里有两个和尚")
    msgbox("大和尚给小和尚讲故事说")
 loop

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息