给VB版友拜年

Question

如题
祝大家新年钱包鼓鼓，身体健康，家庭幸福

Answer 1

祝楼主二五计划超额完成全年Personal_GDP总值：
    
    IF Personal_GDP>=2008 then
       VB版友皆大欢喜
    ELSE
       革命尚未成功，同志仍需努力！
    ENDIF

Answer 2

再来吧！祝楼主二五计划超额完成全年Personal_GDP总值：
    
    IF Personal_GDP>=2008 then
       VB版友皆大欢喜
       goto 酒楼
    ELSE
       革命尚未成功，同志仍需努力！
       goto 农家乐
    ENDIF酒楼:  MainMenu="米饭"&"酒"&"饺子"
       SubMenu(1)="猪头"
       SubMenu(2)="猪身"
       SubMenu(3)="猪身" 
       SubMenu(4)="猪尾"
       SubMenu(5)="鱼"&"虾"&"螃蟹"&"鸡"&"鸭"&"香肠"&"腊肉"&"Others"
       
       For Hours=1 to 24
           麻将=麻将+1
           地主=地主+1
           双扣=双扣+1
           围棋=围棋+1
           唱歌=唱歌+1
           跳舞=跳舞=1
               .
               .
               .
       Next Hours    
       Exit Sub农家乐:MainNenu="红米饭"&"南瓜汤"&"野菜"
       SubMenu="土豆烧牛肉"
       Exit Sub

Answer 3

过年好。═══════════════════════
《Visual Basic 6.0 完全自学手册》 新书出版
 详情请见网址:  www.mugua.net
═══════════════════════