Мы выбрали метод пузырька, но

                End If
            Next i
        Next m
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Фамилия() As String = {"Иванов", "Петров", "Сидоров", "Николаев"}
        Dim Рост() As Integer = {173, 182, 169, 175}
        Dim Вес() As Integer = {71, 93, 62, 70}
        Dim N As Integer = Вес.Length - 1                                       'Это размер таблицы без 1
        puziryok_3(Фамилия, Рост, Вес, N)                                    'Сортируем массивы
       'Распечатываем  отсортированную  таблицу:
        Dim i As Integer
        For i = 0 To N
            Debug.WriteLine(Фамилия(i) & "       " & Рост(i) & "       " & Вес(i))         
        Next
End Sub
Пояснение: Мы выбрали метод пузырька, но теперь обмен элементами идет не в одном массиве, а в трех.
126.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Объект As Control
        Dim Флажок As CheckBox
        Dim Коллекция_флажков As New Collection
        'Заполняем флажками с формы коллекцию флажков:
        For Each Объект In Controls
            If TypeName(Объект) = "CheckBox" Then Коллекция_флажков.Add(Объект)
        Next
        'Распечатываем выбранные блюда:
        For Each Флажок In Коллекция_флажков
            If Флажок.Checked Then Debug.WriteLine(Флажок.Text)
        Next
End Sub
Пояснения: Если бы на форме присутствовали только флажки и не было бы кнопки и метки, можно было бы не создавать коллекцию флажков, а обойтись коллекцией Controls.
127.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Радиокнопка As RadioButton
        For Each Радиокнопка In GroupBox1.Controls
            If Радиокнопка.Checked Then Debug.WriteLine(Радиокнопка.Text) : Exit For

Содержание  Назад  Вперед

---

Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий

---

---

---