Вывести все комбинации звездочек и одной буквы - Visual Basic .NET

Узнай цену своей работы

Формулировка задачи:

Всем доброго здоровичка!!! Такой вопрос: В лейбл надо вывести все комбинации : Z***** *Z**** **Z*** ***Z** и т.д. количество комбинаций задаётся случайно. Понимаю, что надо в цикле. Не могу сделать, чтобы буква переходила по позициям и везде были звёздочки. Спасибо заранее!!!
И ещё: ZZ**** Z*Z*** Z**Z** Z***Z* Z****Z *ZZ*** *Z*Z** *Z**Z* и т.д. ****ZZ
С одной буквой сделал. Правда коряво, длинный код получился. Как сделать с двумя буквами???

Решение задачи: «Вывести все комбинации звездочек и одной буквы»

textual
Листинг программы
  1. Private n As Integer = 6
  2. Private cc As Char = "Z"c
  3. Private sb As System.Text.StringBuilder
  4. Private Sub Button7_Click(sender As System.Object, e As System.EventArgs) Handles Button7.Click
  5.     Dim nn As Integer = 10
  6.     Dim ss(nn - 1) As String
  7.     Dim ii As Integer = -1, k As Integer = 0
  8.     For i = 0 To nn - 1
  9.         ii += 1
  10.         If ii = n Then
  11.             k += 1
  12.             If k = n Then k = 0
  13.             ii = k
  14.         End If
  15.         sb = New System.Text.StringBuilder(New String("*", n), n)
  16.         sb.Chars(ii) = cc
  17.         ss(i) = sb.ToString
  18.     Next
  19.     MsgBox(String.Join(vbCrLf, ss))
  20. End Sub
  21. Private Sub Button8_Click(sender As System.Object, e As System.EventArgs) Handles Button8.Click
  22.     Dim cc As Char = "Z"c
  23.     Dim nn As Integer = Enumerable.Sum(Enumerable.Range(1, n - 1))
  24.     Dim ss(nn - 1) As String
  25.     Dim ii As Integer = 0, jj As Integer = 0
  26.     For i = 0 To nn - 1
  27.         jj += 1
  28.         If jj = n Then
  29.             ii += 1
  30.             jj = ii + 1
  31.         End If
  32.         sb = New System.Text.StringBuilder(New String("*", n), n)
  33.         sb.Chars(ii) = cc
  34.         sb.Chars(jj) = cc
  35.         ss(i) = sb.ToString
  36.     Next
  37.     MsgBox(String.Join(vbCrLf, ss))
  38. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

13   голосов , оценка 3.385 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы