Описать процедуру, сливающую два списка L1 и L2 по правилу - VB
Формулировка задачи:
Описать процедуру, сливающую два списка L1 и L2 по правилу: элемент L1, элемент L2, элемент L1, элемент L2 т.д. Если один список короче другого, то оставшиеся элементы продолжаются в обычном порядке
Ребят кто нить может предложить вариант решения этой задачи по спискам.
Решение задачи: «Описать процедуру, сливающую два списка L1 и L2 по правилу»
textual
Листинг программы
Set new_cell.NextCell = L Set L = new_cell End Sub Public Sub AddCell2(a2 As Integer) Dim new_cell2 As New cell2 new_cell2.info = a2 Set new_cell2.NextCell2 = L2 Set L2 = new_cell2 End Sub Private Sub Command1_Click() Dim s1(), s2() As Integer, i, is1, is2 As Integer: n = 8: m = 5 max = IIf(n > m, n, m) 'максимальная длина списка ''''''''''''''''''''''''''''''''''''''''''''' забиваем исходные списки Randomize: ReDim s1(1 To n): ReDim s2(1 To m) For is1 = 1 To n s1(is1) = Int(10000 * Rnd) AddCell (s1(is1)) List1.AddItem (s1(is1)) Next is1 For is2 = 1 To m s2(is2) = Int(10000 * Rnd) AddCell2 (s2(is2)) List2.AddItem (s2(is2)) Next is2 ''''''''''''''''''''''''''''''''''''''''''''' ''цикл печати списка на лист 4 с головы Set p = L For i = 1 To n List4.AddItem ("Список 1 : " & p.info) Set p = p.NextCell Next i ''''''''''''''''''''''''''''''''''''''''''''' ''цикл печати списка на лист 5 с головы Set pp = L2 For i = 1 To m List5.AddItem ("Список 2 : " & pp.info) Set pp = pp.NextCell2 Next i ''''''''''''''''''''''''''''''''''''''''''''' End Sub Private Sub Command2_Click() Set p = L Set pp = L2 For i = 1 To max If i <= n Then List6.AddItem ("Список 1 : " & p.info) Set p = p.NextCell End If If i <= m Then List6.AddItem ("Список 2 : " & pp.info) Set pp = pp.NextCell2 End If Next i End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д