Записать буквы в коллекцию и сортировать по алфавиту - VB
Формулировка задачи:
Создать коллекцию данных, в неё занести буквы е, с, d, b, f, a - в этом порядке, а в коллекции расположить их по алфвиту. Вывести коллекцию в окне Immediate.
Результат:
10
15
20
30
35
25
10
да, результат неверный получается, но если я задаю параметры вывода для других чисел, то появляется сообщение об ошибке. И к тому же для первых чисел нельзя задать параметры вывода, т.к. коллекция ещё пуста? Каким образом можно решить эту проблему?Я пока думаю только так - сначала занести все числа в коллекцию, а потом для каждого задать параметра вывода.
Решение задачи: «Записать буквы в коллекцию и сортировать по алфавиту»
textual
Листинг программы
Sub bb() Const BUK$ = "e c d b f a" Dim s, i&, j& With New Collection 'заполнение коллекции For Each s In Split(BUK) .Add s Next 'сортировка пузырьком For j = 1 To .Count - 1 For i = 1 To .Count - j If .Item(i) > .Item(i + 1) Then s = .Item(i) .Remove i .Add s, After:=i End If Next i, j 'вывод результата For i = 1 To .Count Debug.Print i, .Item(i) Next End With End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д