| Вопрос: Проблема с задачкой | Добавлено: 13.05.08 11:03 |
Автор вопроса:  Rene
|
|
Программа, которая вводит строку и выводит ее, сокращая каждый раз один символ до тех пор, пока в строке не останется один символ.
Ребят, как это осуществить? Помогите, пожалуйста. |
| Ответы | Всего ответов: 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 Автор ответа: Rene Вопросов: 3 Ответов: 5 |
Профиль | | #2 | Добавлено: 13.05.08 13:34 |
| спасибо | ||
|
Номер ответа: 3 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #3 | Добавлено: 14.05.08 23:46 |
| "...да выпей чаю" забыл | ||
|
Номер ответа: 4 Автор ответа: Администратор ICQ: 278109632 Вопросов: 42 Ответов: 3949 |
Web-сайт: Профиль | | #4 | Добавлено: 15.05.08 00:34 |
Я не забыл, просто чтоб в стандартную ширину формы влезло сделал 
|
||
|
Номер ответа: 5 Автор ответа:  shuffle Администратор ICQ: 201502381 Вопросов: 15 Ответов: 737 |
Профиль | | #5 | Добавлено: 15.05.08 14:11 |
| "Широкая электрификация южных губерний даст мощный толчок подъёму сельского хозяйства" | ||
|
Номер ответа: 6 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #6 | Добавлено: 15.05.08 18:13 |
|
"Государев указ: душегубцев да шваль всякую высечь, да калёным железом по щекам этих физиономий съездить!"
|
||
|
Номер ответа: 7 Автор ответа: AgentFireICQ: 192496851 Вопросов: 75 Ответов: 3178 |
Профиль | | #7 | Добавлено: 16.05.08 23:59 |
|
а вот это уже не влезет в эту малюсенькую стандартную форму
|
||
Страница: 1 |