趣题：自打印 - VB6论坛

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

编程论坛 → 开发语言 → 『 VB6论坛』 → 趣题：自打印

我的收件箱(0)

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

共有 1691 人关注过本帖

标题：趣题：自打印

取消只看楼主加入收藏

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

楼主

问题点数：0 回复次数：6

趣题：自打印

出题：

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

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

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

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

1.PNG (50.58 KB)

图片附件: 游客没有浏览图片的权限，请登录或注册

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

2008-09-14 15:10

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 2 楼

得分:0

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

2008-09-14 20:40

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 3 楼

得分:0

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

2008-10-14 21:04

multiple1902

等　级：贵宾
威　望：42
帖　子：4881
专家分：671
注　册：2007-2-9

第 4 楼

得分:0

[bo][un]我是菜鸟哦[/un] 在 2008-10-14 21:12 的发言：[/bo]

想了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
我贴的只是一种思路。

2008-10-14 21:22