vba - 丢失的 quines : Visual Basic (for Applications)

Question

今天，我在维基百科上浏览了一些随机的极客文章，以获取我每天的无用知识。我偶然发现了 quines，它们是打印自己的源代码的程序。我发现这是一种让我的大脑受伤的好方法，所以我开始在 VBA 中研究一个奎因。我有两个很好的理由:

我找不到用 VBA 编写的 quine

VBA 鼓励您编写令人头疼的笨拙代码

这是我的杰作:

Sub q()
c = "Sub q();c = #;Debug.Print Replace(Replace(c, Chr(59), vbNewLine), Chr(35), Chr(34) & c & Chr(34));End Sub"
Debug.Print Replace(Replace(c, Chr(59), vbNewLine), Chr(35), Chr(34) & c & Chr(34))
End Sub

我的挑战:你能不能让它更短(最好更别扭)？

Answer 1

怎么样

Sub q() '//in mdl1
Debug.Print Workbooks(1).VBProject.VBComponents(5).CodeModule.Lines(1, 3)
End Sub