Квин-программа, или программа, печатающая свой исходный текст - VB

Узнай цену своей работы

Формулировка задачи:

Задаю этот вопрос под влиянием

этой темы

и предлагаю решение:
А ваш вариант?

Решение задачи: «Квин-программа, или программа, печатающая свой исходный текст»

textual
Листинг программы
Sub Main()
    s = "Sub Main()*    s = ?*    Debug.Print Replace(Replace(s, Chr(42), vbNewLine), Chr(63), Chr(34) & s & Chr(34))*End Sub"
    Debug.Print Replace(Replace(s, Chr(42), vbNewLine), Chr(63), Chr(34) & s & Chr(34))
End Sub

Оцени полезность:

14   голосов , оценка 3.714 из 5
Похожие ответы