趣题：自打印 - VB6论坛

全能ASP/PHP/ASP.NET主机，支持月付	专业 MSSQL 数据库空间，支持月付	专业 MySQL 数据库空间，支持月付	买域名，送MP3、MP4
高端软件开发 = 年薪十万不是梦	赛孚耐:软件保护加密专家	身份认证令牌USB KEY	买空间，免费送域名（厦门中资源）

共有 548 人关注过本帖

标题：趣题：自打印

multiple1902

等级：版主
威望：40
帖子：4479
积分：45682
注册：2007-2-9

楼主

趣题：自打印

出题：

用VB写一个模块，功能是用MsgBox函数打印出这个模块的代码。
不允许文件读写、网络访问等cheat行为，整个工程仅包含这一个模块。

鉴于程序运行结果就是程序代码，写出来的或者有思路的打个招呼就行了。做出来没有自己最明白。

以下发个示例，其实代码就这么长。

[ 本帖最后由 multiple1902 于 2008-9-14 15:13 编辑 ]

附件: 只有本站会员才能下载或查看附件，请您登录或注册

搜索更多相关主题的帖子: 打印

2008-9-14 15:10

我是菜鸟哦

等级：版主
威望：11
帖子：676
积分：7582
注册：2007-5-4

第 2 楼

。。。。。。msgbox “”里的代码也要输出？？？这不是恶性循环，难道有是么好的函数还是方法处理？

[ 本帖最后由我是菜鸟哦于 2008-9-14 19:50 编辑 ]

偶是菜鸟鸟偶惧WHO?!!!!

2008-9-14 19:48

multiple1902

等级：版主
威望：40
帖子：4479
积分：45682
注册：2007-2-9

第 3 楼

当然要输出了……不然就一点难度都没了

“高考”这个词在耳边不断萦绕，心中的激动不言而喻。写下一句话，一起努力。Let's struggle together.

2008-9-14 20:40

我是菜鸟哦

等级：版主
威望：11
帖子：676
积分：7582
注册：2007-5-4

第 4 楼

哦，那我慢慢想

偶是菜鸟鸟偶惧WHO?!!!!

2008-9-14 20:41

multiple1902

等级：版主
威望：40
帖子：4479
积分：45682
注册：2007-2-9

第 5 楼

很想知道楼上慢慢想的结果……

“高考”这个词在耳边不断萦绕，心中的激动不言而喻。写下一句话，一起努力。Let's struggle together.

2008-10-14 21:04

我是菜鸟哦

等级：版主
威望：11
帖子：676
积分：7582
注册：2007-5-4

第 6 楼

老大。。。。。。。其实，再慢还是想不明白里边有什么玄机

偶是菜鸟鸟偶惧WHO?!!!!

2008-10-14 21:11

我是菜鸟哦

等级：版主
威望：11
帖子：676
积分：7582
注册：2007-5-4

第 7 楼

想了2个晚上，直接放弃，普通方法打印代码部分如何和源码相同我再弄弄

[ 本帖最后由我是菜鸟哦于 2008-10-14 21:14 编辑 ]

偶是菜鸟鸟偶惧WHO?!!!!

2008-10-14 21:12

multiple1902

等级：版主
威望：40
帖子：4479
积分：45682
注册：2007-2-9

第 8 楼

我是菜鸟哦在 2008-10-14 21:12 的发言：

想了2个晚上，直接放弃，普通方法打印代码部分如何和源码相同我再弄弄

这是道经典题，是同济大学OJ的P1072，各种语言有不同的实现方法。

Sub Main()
a = "Sub Main()" & vbCrLf & "a = : b = Mid(a, 1, 16) & Chr(34) & Replace(a, vbCrLf, Chr(34) & "" & vbCrLf & "" & Chr(34)) & Chr(34) & Mid(a, 17, 133): MsgBox b" & vbCrLf & "End Sub": b = Mid(a, 1, 16) & Chr(34) & Replace(a, vbCrLf, Chr(34) & " & vbCrLf & " & Chr(34)) & Chr(34) & Mid(a, 17, 133): MsgBox b
End Sub
我贴的只是一种思路。

“高考”这个词在耳边不断萦绕，心中的激动不言而喻。写下一句话，一起努力。Let's struggle together.

2008-10-14 21:22

永夜的极光

等级：版主
威望：17
帖子：2671
积分：34179
注册：2007-10-9

第 9 楼

早上刚从VBGOOD学来的

附件: 只有本站会员才能下载或查看附件，请您登录或注册

从BFS(Breadth First Study)到DFS(Depth First Study)
学习VIM中,欢迎访问我的blog http://hi.baidu.com/newkedison
严重鄙视一切把论坛当成作业生成器和人肉搜索引擎的人

2008-10-14 21:35

multiple1902

等级：版主
威望：40
帖子：4479
积分：45682
注册：2007-2-9

第 10 楼

永夜的极光在 2008-10-14 21:35 的发言：

早上刚从VBGOOD学来的
37768

话说利用上VB可以不定义变量的特性就更好了……

“高考”这个词在耳边不断萦绕，心中的激动不言而喻。写下一句话，一起努力。Let's struggle together.

2008-10-14 21:40