出题：

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


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

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

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

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

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

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

哦，那我慢慢想

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

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

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

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

这是道经典题，是同济大学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
我贴的只是一种思路。

早上刚从VBGOOD学来的

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