ПОНЯТНО О Visual Basic NET (том 3)


         

Если вы поменяете местами операторы


        Next
        If Вершина.GetNodeCount(False) = 0 Then
            Вершина.Nodes.Add(Вершина.Text & "1")
            Вершина.Nodes.Add(Вершина.Text & "2")
        End If
End Sub
Если вы поменяете местами операторы For и If, это приведет к безграничному разрастанию дерева. Почему?
143.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Реши_задачу(TreeView1)
End Sub
Sub Реши_задачу(ByVal Вершина As Object)
        Dim Дочь As TreeNode
        For Each Дочь In Вершина.Nodes
            If Дочь.Text.StartsWith("Ф") Then Пометь(Дочь) Else Реши_задачу(Дочь)
        Next
End Sub
Sub Пометь(ByVal Вершина As TreeNode)
        Вершина.BackColor = Color.LightGreen
        Dim Дочь As TreeNode
        For Each Дочь In Вершина.Nodes
            Пометь(Дочь)
        Next
End Sub
145.
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim Запись As DataRow
        For Each Запись In DataSet11.Книги.Rows
            Запись("Kol_str") = Запись("Kol_str") + 2
        Next
End Sub
146.
50
100
Специально для http://all-ebooks.com
[†] Программа на машинном языке представлена по-другому.

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





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