[求助]这个程序运行的结果是什么?(进来--读读--运行--一笑) - VFP论坛

| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛 |

编程论坛 → 数据库技术 → 『 VFP论坛』 → [求助]这个程序运行的结果是什么?(进来--读读--运行--一笑)

我的收件箱(0)

欢迎加入我们，一同切磋技术

共有 1660 人关注过本帖

标题：[求助]这个程序运行的结果是什么?(进来--读读--运行--一笑)

只看楼主加入收藏

中国龙王

等　级：贵宾
威　望：16
帖　子：484
专家分：283
注　册：2006-5-17

第 21 楼

得分:0

这是个好东西,把它给顶出来

不要为了打发无聊而做无聊的事！不要在虚幻的世界里做虚幻的事！

2006-05-30 16:03

Tiger5392

等　级：贵宾
威　望：88
帖　子：2775
专家分：2237
注　册：2006-5-17

第 22 楼

得分:0

以下是引用中国龙王在2006-5-30 16:03:00的发言：
这是个好东西,把它给顶出来

感言：学以致用。博客：http://www./blog/user14/65009/index.shtml email：Tiger5392@

2006-06-01 23:15

yt1426

等　级：新手上路
帖　子：23
专家分：0
注　册：2006-5-24

第 23 楼

得分:0

.............................................................................................
SET TALK OFF
A="041000044047054037000057047053001"
?
FOR I=1 TO LEN(A)/3
??CHR(VAL(SUBSTR(A,I*3-2,3))+32)
ENDFOR

wait "You are a dead duck." window at 20,50 timeout 3
messagebox("警告",1,"发现病毒")
wait "Now stop......." window at 20,50 timeout 2
a=messagebox("请插入A驱动器",1+48+256,"复制文件")
do case a=1
wait "It's a cake!" window at 20,50 nowait
case a=2
wait "Now exit" window at 20,50
endcase
if a=2
messagebox("你这孩子完了",48,"哎")
endif
.............................................................................................
建议给all person
我是刚学VFP的,给Tiger5392的东西再加了点
大家不如都来上,给它来改改,看会有什么创意!