Страница: 1 |
Вопрос: Проблема с задачкой | Добавлено: 13.05.08 11:03 |
Автор вопроса: ![]() |
Программа, которая вводит строку и выводит ее, сокращая каждый раз один символ до тех пор, пока в строке не останется один символ.
Ребят, как это осуществить? Помогите, пожалуйста. |
Ответы | Всего ответов: 7 |
Номер ответа: 1 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #1 | Добавлено: 13.05.08 11:13 |
Private Sub Form_Load()
Const myString As String = "Съешь еще этих мягких французских булок." Dim i As Integer Me.AutoRedraw = True For i = Len(myString) To 1 Step -1 Print Left$(myString, i) Next End Sub |
Номер ответа: 2 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() Вопросов: 3 Ответов: 5 |
Профиль | Цитата | #2 | Добавлено: 13.05.08 13:34 |
спасибо |
Номер ответа: 3 Автор ответа: ![]() ![]() ![]() ![]() ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | Цитата | #3 | Добавлено: 14.05.08 23:46 |
"...да выпей чаю" забыл |
Номер ответа: 4 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | Цитата | #4 | Добавлено: 15.05.08 00:34 |
Я не забыл, просто чтоб в стандартную ширину формы влезло сделал ![]() |
Номер ответа: 5 Автор ответа: ![]() ![]() ![]() ![]() ![]() ![]() ![]() ![]() Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | Цитата | #5 | Добавлено: 15.05.08 14:11 |
"Широкая электрификация южных губерний даст мощный толчок подъёму сельского хозяйства" |
Номер ответа: 6 Автор ответа: ![]() ![]() ![]() ![]() Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | Цитата | #6 | Добавлено: 15.05.08 18:13 |
"Государев указ: душегубцев да шваль всякую высечь, да калёным железом по щекам этих физиономий съездить!"
![]() |
Номер ответа: 7 Автор ответа: ![]() ![]() ![]() ![]() ICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | Цитата | #7 | Добавлено: 16.05.08 23:59 |
а вот это уже не влезет в эту малюсенькую стандартную форму![]() |
Страница: 1 |
|