发信人: bency (灌水停止，生命结束), 信区: Npsos
标  题: 程序员的爱情故事
发信站: 哈工大紫丁香 (2002年11月29日16:57:27 星期五), 站内信件

发信人: danial (休假期间), 信区: Program
标  题: 程序员爱情故事
发信站: 南大小百合 (Tue Dec 19 20:03:18 2000) , 转信


程序员的爱情故事


BASIC `初恋
10 PRINT “Hello”,”World!” `九十年代初：轻轻敲醒沉睡的心灵，慢慢张开我的眼睛

20 LET xx=0 `红红的心中蓝蓝的天
30 FOR YOU=0 TO 100 STEP 1 `虹彩妹妹哼哈呦，长得好那么哼哈呦
FOR I=100 TO 0 STEP -1`你仿佛从未见过我，伤心、不语、退缩
IF YOU=I THEN PRINT”xx=”:YOU `但我仍然，仍然相信你和我今生一定有缘
ELSE PRINT “xx=”:”?” `如果你是我的传说？
NEXT I `又是一个月落，今夜的街头，有一个人游
70 NEXT YOU `一生要失败几次，才知道成功的意义？一生要爱过几回，`才了解爱的真谛
？
55 IF I<=50 THEN GOTO 80 `你知不知道？你知不知道？我等到花儿也谢了
80 END `爱只是一个字，却伤人一辈子
Visual Basic `九十年代末：我准备好自己，在安静中等待
Private Sub Dir1_Change() `不再梦想遥远的地方，虽然那有美丽的姑娘，在家门口
File1.Path = Dir1.Path `我认识了她
End Sub `我明白，此后不会走得太远
Private Sub Drive1_Change() `她改变我的食谱
Dir1.Path = Drive1.Drive `我吃面包、沙拉，和她一样
End Sub `所谓自由就这样变为温馨又闭合的一段时光
Private Sub File1_Click() `很快，她对我说，谈谈孩子吧，快生了
Dim fn As String `她给孩子取名叫“String”
With File1 `她说：我们依靠你
If Right(.Path, 1) = "\" Then `我想，如果这是生活的尽头，那么
fn = .Path & .filename `孩子就叫我爸爸，这也挺好
Else `否则
fn = .Path & "\" & .filename `你和我都该继续寻找，孩子需要父亲，我不是
End If `就这样对她说吧
Image1.Picture = LoadPicture(fn) `我眺望灯光灿烂的城市，说：不论怎样选择，世界
画卷依旧绚丽多彩
End With `她淡淡的笑了，帮我收拾完衣服，说：结束吧。
End Sub `你触动了我所发生的故事全部结束，我又开始等待



--
    他们的幸运，在于可以凭着优越的环境获得的成功。
※ 来源:．南大小百合 http://bbs.nju.edu.cn [FROM: 
209.53.148.58]                                                        

--
郁闷

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 210.46.72.251]