Распечатать все возможные сочетания из четырех цифр — код vb.net

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

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

Распечатать все возможные сочетания из четырех цифр, каждая из которых может принимать значения 1,2,3. Например, 2123, 3312, 1111. Получилось? А теперь подсчитай-те количество таких сочетаний.

Код 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 = one + 1
            two = 0
            For b = 1 To 3
                two = two + 1
                three = 0
                For c = 1 To 3
                    three += 1
                    four = 0
                    For d = 1 To 3
                        four += 1
                        kolvo += 1
                        Debug.WriteLine(kolvo & " " & one & two & three & four)
                    Next
                Next
            Next
        Next
    End Sub
End Class

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

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

Оставить комментарий

Пожалуйста, авторизуйтесь чтобы добавить комментарий.
  Подписаться  
Уведомление о