Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
Модератор
Эксперт Python
28432 / 15319 / 3023
Регистрация: 12.02.2012
Сообщений: 25,098
Записей в блоге: 4
1

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

15.10.2014, 16:37. Просмотров 1420. Ответов 3
Метки нет (Все метки)


Задаю этот вопрос под влиянием этой темы и предлагаю решение:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub Kvin()
Dim A(1 To 13) As String
 X = Chr$(65) + Chr$(40)
 Y = Chr$(41) + Chr$(61)
A(1) = "Sub Kvin()"
A(2) = "Dim A(1 to 13) As String"
A(3) = "X = Chr$(65) + Chr$(40)"
A(4) = "Y = Chr$(41) + Chr$(61)"
A(5) = "  For i% = 1 To 13"
A(6) = "    Debug.Print A(i%)"
A(7) = "    If i% = 4 Then"
A(8) = "       For j% = 1 To 11"
A(9) = "           Debug.Print X; CStr(j%); Y + Chr$(34) + A(j%) + Chr$(34)"
A(10) = "       Next j%"
A(11) = "    End if"
A(12) = "  Next i%"
A(13) = "End Sub"
 For i% = 1 To 13
     Debug.Print A(i%)
     If i% = 4 Then
        For j% = 1 To 13
            Debug.Print X; CStr(j%); Y + Chr$(34) + A(j%) + Chr$(34)
        Next j%
     End If
 Next i%
End Sub
А ваш вариант?
1
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.10.2014, 16:37
Ответы с готовыми решениями:

Программа печатающая текст - не работает конечный цикл
Проблема в том, что не работает тут: 00000000 31C0 xor ax,ax 00000002 CD16 ...

Программа, сохраняющая свой исходный код
Я решал задачу, в которой программа должна хранить свой исходный код. Как это лучше сделать?? 1....

Программа определяющая и печатающая большее и меньшее а также кратно ли большее меньшему или нет. На С++
Программа определяющая и печатающая большее и меньшее а также кратно ли большее меньшему или нет....

Программа, печатающая символы от a до z
2. Написать программу, печатающую символы от a до z. Использовать цикл while. В строку выводится...

__________________
Помогаю в написании курсовых работ и дипломов здесь.
3
Модератор
8384 / 3154 / 824
Регистрация: 22.02.2013
Сообщений: 4,672
Записей в блоге: 78
15.10.2014, 17:03 2
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Интересно... Вот что придумал:
Visual Basic
1
2
3
4
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
1
Модератор
Эксперт Python
28432 / 15319 / 3023
Регистрация: 12.02.2012
Сообщений: 25,098
Записей в блоге: 4
15.10.2014, 17:10  [ТС] 3
Оба решения используют трюк (chr$(34)= "). А нельзя ли без трюков?
0
Модератор
8384 / 3154 / 824
Регистрация: 22.02.2013
Сообщений: 4,672
Записей в блоге: 78
16.10.2014, 15:21 4
Catstail, так или иначе нужно будет ставить кавычки, не важно Chr$(34) это, или через подстановочные знаки, в конце концов массивы.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
16.10.2014, 15:21

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Программа, печатающая числа от 1 до 4
Ps: Тема подразумевает собой не 1 вопрос а при постепенном изучении C++ - постановка нового вопроса...

Программа читает свой текст и обрабатывает его по заданному в варианте условию
написать программу, которая читает свой текст и обрабатывает его по заданному в варианте условию....

Программа, печатающая саму себя
Есть код прграммы, которая печатает посимвольно саму себя в текстовом редакторе. #include "joke.h"...

Программа, печатающая в консоли треугольники из звездочек
Цель задания - чтобы программа вывела треугольники в консоль в таком виде, как показано на рисунке,...

Программа печатающая значение true и false
Всем привет. Сижу на экзамене, помогите пожалуйста решить задачу. Заранее спасибо.

Программа, печатающая фамилию и инициалы ученика
Доброго времени суток! Помогите, пожалуйста, с решением следующей задачи: Заданы фамилия, имя и...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.