http://expert.csdn.net/Expert/topic/1917/1917536.xml?temp=.5598413

解决方案 »

  1.   

    公平竞争!WHO 怕 WHO啊!
      

  2.   

    On Error Resume Nextcall 往死里去爱()
    if 她不爱你 then
       end
    else
       continue
       if err.number<>0 then
          call 你去死吧()
       end if
    end if 
      

  3.   

    To:mingnuo(星雨)
    无效的过程名:往死里去爱()
      

  4.   

    if 她不爱你 And 你很爱她 then
      

  5.   

    On Error GoTo MyErr 
    if 她不爱你 And 你很爱她 then
        去死
     else if 她爱你 And 你爱她 then
        上
     end If
     MyErr:
        你去死
      

  6.   

    http://expert.csdn.net/Expert/topic/1923/1923477.xml?temp=.5089228
      

  7.   

    转载-----------------
    #include "我说两句.h"
    #include "和朋友相恋2000冬季.h"
    #include "和朋友分手2000夏季.h"
    #include "嫌我有病_说疯不疯_说精不精_说我是四不象.h"
    #include "分手时的理由_我没有品位_特粗俗.h"
    #include "至今单身_26.h"
    #include "为什么受伤的总是我.h"
    //举杯消愁愁更愁,无心赏那垂枝柳。
    //抽烟解忧忧上忧,天复一天人消瘦。
    BOOL InitWindow( HINSTANCE hInstance, int nCmdShow );
    LRESULT CALLBACK WinProc( HWND hWnd, UINT message,
                              WPARAM wParam, LPARAM lParam );
    //-------------------------------------------------------------
    int PASCAL WinMain( HINSTANCE hInstance,        
                        HINSTANCE hPrevInstance,    
                        LPSTR lpCmdLine,            
                        int nCmdShow)               
    {
    if ( !InitWindow( hInstance, nCmdShow ) )
                    return FALSE;
            while ( GetMessage(&msg, NULL, 0, 0) )
            {                
    TranslateMessage(&msg);
                    DispatchMessage(&msg);
            }
            return msg.wParam;
    }
    //----------------------------------------------------------
    static BOOL InitWindow( HINSTANCE hInstance, int nCmdShow )
    {
            HWND            hWnd;                  
            WNDCLASS        wc;            
            wc.style                = CS_VREDRAW | CS_HREDRAW;
            wc.lpfnWndProc          = (WNDPROC)WinProc;
            wc.cbClsExtra           = 0;
            wc.cbWndExtra           = 0;
            wc.hInstance            = hInstance;
            wc.hIcon                = LoadIcon( hInstance, IDI_APPLICATION );
            wc.hCursor              = LoadCursor( NULL, IDC_ARROW);
            wc.hbrBackground        = (HBRUSH)GetStockObject(WHITE_BRUSH);
            wc.lpszMenuName         = NULL;
            wc.lpszClassName        = szClassName;
            RegisterClass( &wc );
            hWnd = CreateWindow(szClassName, 
                                szCaption,                             WS_OVERLAPPEDWINDOW|WS_HSCROLL|WS_VSCROLL
                                150, 
                                100, 
                                550,
                                450,
                                NULL,                               
                                hmenu,
                                hInstance,                          
                                NULL); 
            if( !hWnd ) return FALSE;                       
            ShowWindow( hWnd, nCmdShow );      
            UpdateWindow( hWnd );
            SetFocus(hWnd);        return TRUE;
    }
    //-----------------------------------------------------
    LRESULT CALLBACK WinProc( HWND hWnd,UINT message,
                              WPARAM wParam,LPARAM lParam )
    {
    HDC hdc;
    PAINTSTRUCT ps; switch( message )
             {                 
              case WM_PAINT:             
                  hdc=BeginPaint( hWnd,&ps );               SetTextColor( 红色 ); 
                  SetBkColor(黄色);
         TextOut (我的爱人->她的心,得不到你,心里爱你) ;      EndPaint( hWnd, &ps );
             break;         case WM_DESTROY:
                  if(你不爱我)
                  {
               ShowMessage(_T("拜拜"));
                        PostQuitMessage(0);
                  }
             break;
            }
            return DefWindowProc(hWnd, message, wParam, lParam);
    }to zxy_net(zxy_net):
    你的程序我朋友可能看不懂啊
    帮你翻译一下:谈恋爱的过程包括了
     "我说两句.h"
     "和朋友相恋2000冬季.h"
     "和朋友分手2000夏季.h"
     "嫌我有病_说疯不疯_说精不精_说我是四不象.h"
     "分手时的理由_我没有品位_特粗俗.h"
     "至今单身_26.h"
     "为什么受伤的总是我.h"
    等过程说明文件
    以下两行是注释:
    (//举杯消愁愁更愁,无心赏那垂枝柳。
    //抽烟解忧忧上忧,天复一天人消瘦。
    //下面开始介绍我的恋爱人生)
    但我第一天见到你时,( WinMain)
    你是这样一个女孩     ( wc.style.......................)
    我决定了,就是你了,(RegisterClass( &wc );)
    然后建立我们的爱情(CreateWindow)
    展现出我对你的爱(ShowWindow;  UpdateWindow;)
    你会看到我黄色的面孔上用红字写着“我的爱人->她的心,得不到你,心里爱你”;
    最后,你是不是爱我呢?你如果不爱我,那我只能对你说"拜拜";
      

  8.   

    if 爱 and (not 爱) then
    放弃
    end if
      

  9.   

    if 爱 or(not 爱) then
    放弃
    end if
      

  10.   

    IF 兄弟.重要 > GF.重要*2 Then 放
      

  11.   

    sub Main()
        Dim X as yourFrined.GirlFrined
        DIm Y as YOurFrined
        Dim z as you
      
               if  ( x is Very beautiful girl )=True then
                    CYourGirlFrined(x) for Noreason
                     
               elseif ( y is not important perosn For z)=True then
                        ActionForLove x             
               else
                        GiveUp x AtOnce    
               endif
    end sub
      

  12.   

    呵呵,这里不仅VB高手如云,而且都是多方面的英才,实在是令小生佩服
    不过说到这里我不仅也想说一句,:::::
        记得一朋友说过:
        dim 女人
          IF not 结夫
        THEN her=公家
    end if 
          该出手时还得出
        还有句是看你的需要了,最好让你朋友提 出跟她分手
        那不是两全齐美
      

  13.   

    IF 兄弟.重要 > GF.重要*2 Then end
      

  14.   

    为了朋友,我可以两肋叉刀;
    为了女友,我可以捅朋友两刀!开个玩笑,记得,如果GIRL 爱的是你朋友,放弃!!!叉刀吧!
    如果GIRL 爱你,可别桶朋友哦!讲道理
      

  15.   

    To: toby521 (毒药) 
    =====================================
        其实我认为,不管你认为那个女孩喜不喜欢你,你先要搞清楚你有没有把握把她弄到手。如果搞了个半天你才发现你都没把握让那女孩投入你的怀抱,那又何必去冒个“抢朋友女友”的险呢?
        如果你认为你很有把握让那女孩抛弃你的朋友来跟你,才是到你考虑朋友重要还是女人重要的时候。但这方面我也可以提一些意见。
        1、首先县考虑那女孩的各方面条件是不是值得让你去这么做。
           (1)人品(2)外貌(3)学识
            解释:如果和人品有问题的人生活很容易就因为各种原因散伙(比如另有新欢)。
                  如果外貌中下会让你有遗憾,还很容易自己就移情别恋。(散伙)
                  如果你们的知识水平相差太远,会导致没有共同语言,各自生活在各自的
                      世界中,容易感情淡薄。(容易散伙)
        如果你好不容易放弃了兄弟间的感情抢了他的女友,最后却换来一段不长久的感情,今后都要为了这一时的痛快而招人背地里唾骂(或是更严重的!!!),那不是很不值吗。
        2、考虑你和你朋友的感情分数。
           如果你认为你和你的朋友的感情很重要,还可能会影响你的一生(比如:前途、唯一的兄弟、最好的兄弟)那么你就该好好想一想了。但以我来说,朋友没有一生都会很好的,在没有利益冲突的情况下,可能会非常的要好,但很多人之间的友情如果碰到的任何的利益关系,都有可能被对方出卖或是出卖对方。经得起考验的友情没几个的。
           举个例子,如果你父亲和你朋友同时掉下河,他们都不会游泳,你会去就谁?
           如果你朋友的父亲和你掉下河,你们都不会游泳,他会去就谁?
        其实我也只是想说你所谓的兄弟间的感情还是存在漏洞的,并不是头脑发热时所想像的那么完美的,当然爱情也是一样的,同样的问题你也可以用在爱情上试一试。试者想点新的和双方利益有关的问题衡量一下,可能你会得出个不后悔的结果。
      

  16.   

    To  SupermanKing(人类)  ,你简直不是人类,爱情不是像你想象的那样
      

  17.   

    To: laixiaopeng(...爱你一生...) 
    ===========================================
        我说的:“爱情是短暂的,没有一生不变的爱情。即使再深的爱情,也会随着时间、生活、还有其它的因数而改变或升华的一天。而真正的爱情已经所省无几,只有越发感慨或特别有兴致或是遇到危险的时候,爱情才可能苏醒过来,但不久后,它又会长眠在你的心中。而通常人们会以为亲情就是爱情。”
        人的一生不单只是有者男女间的所谓爱情,还有者很多的爱。如果你认为为了心爱的情人可以牺牲自己的生命,这就是最高的爱的话,那你的理解就错了。可以为爱而放弃生命的不止如此。就举个例子说吧:母亲可以为就自己的孩子而放弃自己的生命;英雄可以为同胞而牺牲自己。这些不都被说为是最伟大的爱吗?但人们都称他们的感情为母爱、博爱。但是,也有母亲为了自己的生命或颜面而放弃自己的孩子。也有叛国求荣的汉奸,难道事情不是都有两面的吗?难道你认为所有人的感情世界都是一样的吗?我向搂主提出衡量哪段感情重要的方法,难道你认为这也会有问题?不要怪我说一句:“你的见识太浅薄了,历练还不够。”,友情也有伟大的时候。