搞单片机的职业病

发表于 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);

发表于 2008-5-9 13:31

发表于 2008-5-9 14:15

这样的病应该多生点，不是吗？
干一行像一行嘛！

发表于 2008-5-9 16:24

发表于 2008-5-10 13:22

发表于 2008-5-10 23:17

搞单片机的职业病

哈哈~~~自己乐和才是根本之道~~~

程序跑飞=脑子进水

哈哈~~~俺是整天乐和---学一个倒塌一个~~~

有些时候会仔细过头，做一件事情什么意外都会先考虑一下

ftjb tj ugm b !!

哈哈

女生找男朋友的程序(VB.NET)

一个女生的程序

楼上的程序网上很多也很现实~~~

病的不轻！？

呵呵 ·！～！

痴

NB

浏览过的版块

社区建设奖章

欢快之小溪

技术新星奖章

哈哈~自己乐和才是根本之道~

哈哈~俺是整天乐和---学一个倒塌一个~

呵呵　·！～！