好奇怪啊，vb和循环的

网上看到的

史上最强的循环语名
史上最强的循环语名
老总对秘书说：这几天我带你去北京走走.你准备下.
秘书打电话给老公：这几天我要和老总去北京开会,你自己照顾自己.
老公给情人打电话：我老婆这几天要去北京出差,我们也出来玩吧.
情人给辅导功课的小男孩打电话：这几天不用上课，我有事情.
小男孩给爷爷打电话：爷爷，这几天老师有事，不用上课，你陪我玩吧
爷爷给秘书打电话：我这几天要陪孙子玩,不能去北京了.
秘书给老公打电话：这几天老总有急事,我们不去北京开会了.
老公给情人打电话：这几天不能出来玩,我老婆不去北京了.
情人给辅导功课的小男孩电话：这几天继续正常上课.
小男孩给爷爷电话：爷爷，这几天还是要上课，我不能陪你玩了.
爷爷给秘书电话：这几天我还是带你去北京走走的.你准备下

用VB试了下，默认是
Combo1.Text = "爷爷老总"
Combo2.Text = "秘书"
Combo3.Text = "秘书老公"
Combo4.Text = "秘书老公情人"
Combo5.Text = "小男孩"
设的Command2的单击事件，上面的

然后Command1的单击事件是这样的
If Combo1.Text = "爷爷老总 去" Then Combo2.Text = "秘书去"
If Combo2.Text = "秘书去" Then Combo3.Text = "秘书老公找情人"
If Combo3.Text = "秘书老公找情人" Then Combo4.Text = "秘书老公情人找秘书老公"
If Combo4.Text = "秘书老公情人找秘书老公" Then Combo5.Text = "小男孩找爷爷玩"






If Combo5.Text = "小男孩找爷爷玩" Then Combo1.Text = "爷爷老总 不去" '第一次出现反循环





If Combo1.Text = "爷爷老总 不去" Then Combo2.Text = "秘书不去"
If Combo2.Text = "秘书不去" Then Combo3.Text = "秘书老公不找情人"
If Combo3.Text = "秘书老公不找情人" Then Combo4.Text = "秘书老公情人不找秘书老公"

If Combo4.Text = "秘书老公情人不找秘书老公" Then Combo5.Text = "小男孩不找爷爷玩" '第二次出现反循环，补课
If Combo5.Text = "小男孩不找爷爷玩" Then Combo1.Text = "爷爷老总 去" '第三次循环，开始无限循环

好玩吗，不好玩