RosettaCodeData/Task/Quine/Visual-Basic-.NET/quine-1.vb
2023-07-01 13:44:08 -04:00

12 lines
235 B
VB.net

Module Program
Sub Main()
Dim s = "
Module Program
Sub Main()
Dim s = {0}{1}{0}
Console.WriteLine(s, ChrW(34), s)
End Sub
End Module"
Console.WriteLine(s, ChrW(34), s)
End Sub
End Module