| Вопрос: Помогите начинающему программисту | Добавлено: 08.10.07 20:16 |
Автор вопроса:  Алекc
|
| Нужно разработать программу, которая читает откуда-либо текстовую строку, выводит ее куда-либо и сообщает общее количество символов во всех строках. Например, программа может считать строку из файла, получить от пользователя и из ресурсов, а выводить считанные строки в TextBox, ListBox и текстовый файл, соответственно. А также выводить суммарную длину строк в MsgBox.Нужно без оператора Select case. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362 |
Профиль | Цитата | #1 | Добавлено: 08.10.07 22:41 |
| Господи, чем же тебе помочь? Давай денег что-ли дам... | ||
|
Номер ответа: 2 Автор ответа: Mr.Smile ICQ: 427682013 Вопросов: 14 Ответов: 464 |
Профиль | Цитата | #2 | Добавлено: 09.10.07 00:13 |
Алекc, у тебя талант объяснять...  а выводить считанные строки в TextBox, ListBox и текстовый файл, соответственно. TextBox: txt1.Text = txt1.Text & "[твоя строка]";
ListBox: lst1.AddItem "[твоя строка]"; Для файла надо?
А также выводить суммарную длину строк в MsgBox. MsgBox Len([твоя строка]) - длина текста
|
||
|
Номер ответа: 3 Автор ответа: SharpЛидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | Цитата | #3 | Добавлено: 09.10.07 21:48 |
| Оператор Select Case является подмножеством оператора If относительно возможных действий, поэтому ты смело можешь использовать If везде, где у тебя есть Select Case | ||
|
Номер ответа: 4 Автор ответа: Кверт Вопросов: 2 Ответов: 14 |
Профиль | Цитата | #4 | Добавлено: 12.10.07 10:11 |
|
Sub qwert()
Dim s As String, k As Integer, l As Integer s = InputBox("Введите строку" 
Do While s <> "" Debug.Print s k = k + 1 l = l + Len(s) s = InputBox("Введите строку"
Loop MsgBox "Всего строк: " & k & vbNewLine & _ "суммарная длина: " & l End Sub |
||
Страница: 1 |