| Вопрос: VBA в MS Excel | Добавлено: 08.10.07 21:41 |
Автор вопроса:  nikit89
|
|
Помогите сделать прогу
Последовательно вводятся буквы |
| Ответы | Всего ответов: 2 |
|
Номер ответа: 1 Автор ответа: nikit89 Вопросов: 1 Ответов: 1 |
Профиль | Цитата | #1 | Добавлено: 08.10.07 21:46 |
| В первый раз затупил.Последовательно вводятся буквы f,a,c,b,g,,e,d. Каждая буква сразу после ввода заносится в коллекцию.В коллекции буквы расположить в алфавитном порядке.Значение элементов коллекции ввести в окне Immediate | ||
|
Номер ответа: 2 Автор ответа:  GenyaA Вопросов: 0 Ответов: 185 |
Web-сайт: Профиль | Цитата | #2 | Добавлено: 08.10.07 23:06 |
|
Sub nnn()
Dim cb As New Collection Dim b As String, i As Integer Do 'ввод пока не пусто/Cancel b = InputBox("Символ?" 
If b = "" Then Exit Do 'составление коллекции в "алфавитном" порядке If cb.Count = 0 Then cb.Add Left(b, 1) ElseIf Asc(b) <= Asc(cb.Item(1)) Then cb.Add Item:=Left(b, 1), before:=1 ElseIf Asc(b) >= Asc(cb.Item(cb.Count)) Then cb.Add Item:=Left(b, 1), after:=cb.Count Else For i = 2 To cb.Count If Asc(cb.Item(i - 1)) <= Asc(b) And Asc(b) <= Asc(cb.Item(i)) Then cb.Add Item:=Left(b, 1), before:=i Exit For End If Next i End If Loop 'последовательный вывод элементов коллекции For i = 1 To cb.Count Debug.Print cb.Item(i) Next i Debug.Print End Sub |
||
Страница: 1 |