Подсчитать из предыдущего задания неубывающих сочетаний — код vb.net

Решение задачи номер 54с по книге Лукина С.Н. «Понятно о Visual Basic.NET»

Условие задачи:

Подсчитать из них количество неубывающих сочетаний, то есть таких, где каждая сле-дующая цифра не меньше предыдущей – 1123, 1223, 2222 и т.п., но не 3322. Распечатать все такие сочетания.

Решение задачи

Код vb.net

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim one, two, three, four, a, b, c, d, kolvo As Integer
        one = 0
        For a = 1 To 3
            one += 1
            two = 0
            For b = 1 To 3
                two += 1
                If two >= one Then
                    three = 0
                    For c = 1 To 3
                        three += 1
                        If three >= two Then
                            If three >= one Then
                                four = 0
                                For d = 1 To 3
                                    four = four + 1
                                    If four >= one Then
                                        If four >= two Then
                                            If four >= three Then
                                                kolvo += 1
                                                Debug.WriteLine(kolvo & " " & one & two & three & four)

                                            End If
                                        End If
                                    End If
                                Next
                            End If


                        End If
                    Next
                End If
            Next
        Next



    End Sub
End Class

Разбор кода vb.net

  1. Как и в предыдущей задаче вкладываем в циклы, только с условием, что цифра не может быть меньше, чем предыдущие.
Запись опубликована в рубрике Решение заданий vb.net. Добавьте в закладки постоянную ссылку.