搞单片机的职业病

只看该作者 · 2008-5-9 01:08

你们这帮家伙都得了 sjmp $ 病了,没治!!

只看该作者 · 2008-5-9 10:54

只看该作者 · 2008-5-9 13:14

Public class FindMan
Shared Sub Main()
Dim strMan AS String
Dim strInput AS String
System.Cousole.Wrint("please input 男人的类型")
strInput = System.Cousole.Readline()
strMan =CStr(strInput)

Select Case strMan
    Case  帅
       System.Cousole.Wrint("OK")
    Case  有钱
       System.Cousole.Wrint("OK")
    Case  高
       System.Cousole.Wrint("OK")
   Case  会说话
       System.Cousole.Wrint("OK")
   Case  幽默
       System.Cousole.Wrint("OK")
   Case  懂幽默
       System.Cousole.Wrint("OK")
  Case  体贴一点
       System.Cousole.Wrint("OK")
  Case  温柔一点
       System.Cousole.Wrint("OK")
  Case  酷一点
       System.Cousole.Wrint("OK")
  Case  老实一点
       System.Cousole.Wrint("OK")
  Case Else
        System.Cousole.Wrint("靠“运气”吧")
End Selest

ENd SUB

End Class

只看该作者 · 2008-5-9 13:17

　　　　　　　　

RESULT love(boy, girl)
　　　　　　{
　　　　　　if( boy.有房() AND boy.有车() )
　　　　　　{
　　　　　　boy.Set(Nothing);
　　　　　　 return girl.嫁给(boy);
　　　　　　　　}
　　　　　　if( girl.愿意等() )
　　　　　　 {
　　　　　　 while(!(boy.赚钱 > 100,000 AND girl.感情 > 8 ) )
　　　　　　 {
　　　　　　 for( day=1; day <=365; day++)
　　　　　　 {
　　　　　　 if( day == 情人节 )
　　　　　　 if( boy.GiveGirl(玫瑰) )
　　　　　　 girl.感情++;
　　　　　　 else
　　　　　　 girl.感情--;
　　　　
　　　　　　 if( day == girl.生日)
　　　　　　 if( boy.GiveGirl(玫瑰) )
　　　　　　 girl.感情++;
　　　　　　 else
　　　　　　 girl.感情--;
　　　　　　 boy.拼命赚钱();
　　　　　　 }
　　　　　　 }
　　　　　　　　　 if( boy.有房() AND boy.有车() )
　　　　　　　　　 {
　　　　　　 boy.Set(Nothing);
　　　　　　 return girl.嫁给(boy);
　　　　　　 }
　　　　　　年龄++;
　　　　　　 girl.感情--;
　　　　　　 }
　　　　　　 return girl.goto( another_boy);