原创 一个女生写的爱情函数(很好笑的)

2008-8-25 17:54 2849 5 6 分类: 工程师职场
一个女生写的爱情函数(很好笑的)

  今天刚刚看到的,只供编程疲惫时解闷~~~
result love(boy, girl)
  {
    if ( boy.有房() and boy.有车() )
    {
      boy.set(nothing);
      return girl.嫁给(boy);
    }
    else 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( girl.耐心 == 0 && girl.有其它追求者) 字串3

          {
            girl.goto( another_boy);
            boy.郁闷中();
            boy.天天到军坛灌水();
            return 没有结果;
          }
        }
      }
      try
      {
        girl.要男友买房();
        girl.要男友买车();
        girl.每天逛专卖店();
        if ( boy.有房() && boy.有车() )
        {
          girl.去澳洲旅游(boy);
          girl.到英国威斯敏斯结婚(boy);
          girl.嫁给(boy);
          boy.没日没夜挣钱();
        }
      }
      catch()
      {
        girl.byebye(boy);
        boy.郁闷中();
        boy.天天到天涯灌水();
        return girl.broadcast(“这个男人真小气“);
      } 字串1

      return girl.每天逛专卖店();
    }
    return girl.goto( another_boy);
  } 字串6

  字串9

文章评论1条评论)

登录后参与讨论

ilove314_323192455 2008-8-25 20:28

呵呵
相关推荐阅读
用户461316 2009-08-17 17:57
Zigbee星型网络组网程序段
最近一直在做Zigbee的星型网络的组网试验,由于时间的原因,现在只是在最高的应用层上来编写程序。即协议栈的程序是2430的开发商(无限龙)编写的,我只是调用相应的函数来完成组网的,星型网络组网部分的...
用户461316 2009-08-17 17:14
VB6的标题栏使用上真彩色图标
模块 ModIcon.Bas 代码: Option Explicit Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long...
用户461316 2009-08-17 16:58
AppendToLog一个API方式存取日志文件的模块
'**************************************' 模块名称: AppendToLog' 功能描述:一个很不错的日志文件写入模块,不同于'     open/print/...
用户461316 2009-08-17 16:57
(VB自定义函数)去除字符串中的空格
'去除字符串中的空格(方法一)Public Function DelBlank(SearchString As String)   DelBlank = Replace(SearchString, C...
用户461316 2009-08-17 16:56
(VB自定义函数)对任意输入的汉字,可以得到它的拼音的第一个字母
调用方法:Command1.Caption = getHzPy("你")'//函数入口为汉字串,返回值为该汉字的第一个字母Public Function getHzPy(hzStr As String...
用户461316 2009-08-17 16:54
VB_代码执行速度测试
'**************************************'Windows API/Global Declarations for :[ '     A Simple] code ...
我要评论
1
5
关闭 站长推荐上一条 /2 下一条