以文本方式查看主题 -  堕落街论坛  (http://duoluojie.1314179.com.cn:443/index.asp) --  游戏体育  (http://duoluojie.1314179.com.cn:443/list.asp?boardid=331) ----  发个程序,让大家PP.  (http://duoluojie.1314179.com.cn:443/dispbbs.asp?boardid=331&id=636)

--  作者：淡淡 --  发布时间：2003/7/27 18:32:00 --  发个程序,让大家PP. On Error Resume Next If 掀起充满痛苦和忧伤的记忆，Then 你却显得如此清晰。 End If Do Untile 虽然你我都已决定放弃， 但别挥走我们纯真的友谊。 Loop With 在雪花纷飞的夜里， 不知你在何方何地。 突然又把你悄悄想起， 不知你是否也受到大雪的淋漓。 End With Dim 在这佳期节到来之际， For i=0 To 10000 祝你快乐神怡。 而我回忆复燃的心底， 又是不经意的哭泣。 Next i Select Case 远方亲爱的你， Case 是否也有追忆？ 想想曾经的过去， Case 你是否也为此惋惜？ End Select Dim 随风飘去的记忆， As 不知道何时又回到心底。 If Not IsNull( 想起为你编写的歌句，) Then Call 如今又羞又愧的笑起。 Else If 一场美丽而冒昧的随笔， 那是想你念你=爱你的心意。 End If If 永远永远也=无法忘记， Then UnLoad 你我曾经的点点滴滴。 MsgBox 因为你， 给我带来今生今世的哭泣。.Show End If Set 所有美好的过去，=LoadPicture(我都愿把它永藏心底。) InputBox 就算没有结果没有再续， Set 哪天哪日想起=也是一种美好的追忆。 \'此诗精心为你设计， \'此诗精心为你编辑。 \'这是杨柳的亲笔， \'这是杨柳的心意。 借这平凡的诗句，.Open 祝你佳节快乐平安心怡。=Ture Public Function 愿你我充满坎坷的友谊，() Shell 化作春风春雨。 End Function

--  作者：楚狂 --  发布时间：2003/7/27 20:18:00 --   vb

--  作者：维她命 --  发布时间：2003/7/28 4:39:00 --   运算结果会是什么类。。。

--  作者：楚狂 --  发布时间：2003/7/28 15:34:00 --   会是错误 那些表达式编译器怎么可能识别得了？

--  作者：维她命 --  发布时间：2003/7/28 15:41:00 --   呵呵，知道会是错误。。 可这也是爱情的逻辑运算嘛，倒也要看看计算机在这方面的能力怎么样嘛。。

--  作者：淡淡 --  发布时间：2003/7/28 20:19:00 --   hohoho......... 你想让它怎么样,就怎么样撒...

--  作者：chenshuuu --  发布时间：2003/9/11 17:17:00 --   hahahhahahaha