VB能帮你相亲？帮忙查查代码错误，唉……

Question

我已经年近30了，相亲没有1000也有300了，把自己的经过总结一下，大家帮忙看看代码有问题么？
For 相亲次数 = 1 To 9999
  
  Print "浪费时间、浪费金钱"
  
  Select Case 见面对象
  Case 妖怪
    Print "50%都这样"
  Case 妖精
    Print "基本不会遇到"
  Case 妖兽
    Print "偶尔没提前打听好情况会遇到"
  Case 妖物
    Print "只有一次，我被震惊了"
  Case 美女
    Print "100%都是自我清高做梦帮款型——我不需要掘金娘子"
  Case 满意度 > 50
    Print "有过，但满意度随着了解逐日下降，直至负值"
  Case Else
    Print "没有最惊奇，只有更惊奇！"
  End Select
  
  If 老妈急了 = True Then  '基本10次只内，老妈会急一次
    相亲次数 = 1
  End If
  
Next 相亲次数
经过我反复计算、推理和用数据进行边缘测试…… 天啊，这不靠谱的相亲基本是个死循环！结论：相亲 = 希望到失望的恶性循环郁闷了…… 天津的哥们吼起来！

Answer 1

if 老妈急了 then
看来你该在 满意度<50 里面找找看看
end if

Answer 2

If 相亲次数>9999 Then      
 Print "哇噻!美女!"
  End If

Answer 3

  Case 美女
    shell "c:\霸王硬上弓.exe"
恩，加上这句，基本不会死循环^_^

Answer 4

  Case 美女
    dim police as Boolean
    police = shell("c:\霸王硬上弓.exe")
    if police = true then
        shell "c:\跑路.exe"
    else
        shell "c:\负责.exe"
    end if
恩，把上面那个完善下，呵呵，愚人节马上要过了，说声愚人节快乐

Answer 5

用我的代码，包你三个月内结婚！
Select Case 见面对象
  Case 妖怪
    Print "YOU ARE MY BEST LOVE！"
    shell "c:\霸王硬上弓.exe"
  Case 美女
    Print "YOU ARE NOT MY STYLE！"
end select 
do while  老妈急了=true
   print "NO MONEY NO MM！"
loop