Как написать генератор символов - Visual Basic .NET

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

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

Здравствуйте, уважаемые программисты. Просто не понимаю как написать код для генератора символов. Предположим, что у нас есть массив символов полученный путем:
Листинг программы
  1. Dim CharBase As String = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
  2. Dim FDChar(CharBase.Length - 1)
  3. For i=0 To CharBase.Length - 1
  4. FDChar(i) = CChar(Mid$(CharBase, i + 1, i + 1))
  5. Next
Задача состоит в том, чтобы в течение одного прохода цикла генерировалась строка типа: 0 1 2 ... z 01 02 ... 0z 10 11 ... 1z 20 21 ......... z5Xy7z z5Xy8a z5Xy8b ......... zzzzzz Буду очень признателен, если вам удастся решить подобную задачу.

Решение задачи: «Как написать генератор символов»

textual
Листинг программы
  1. Public Class Form1
  2.   Dim C As String = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
  3.  
  4.   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
  5.     For i = 1 To 2 'до шести считайте сами, мне не дожить.
  6.       p(1, Space(i))
  7.     Next
  8.   End Sub
  9.  
  10.   Sub p(ByVal l%, ByVal s$)
  11.     For i = 0 To C.Length - 1
  12.       Mid(s, l, 1) = C(i)
  13.       If l = s.Length Then
  14.         Debug.Print(s) 'здесь ловим следующую комбинацию
  15.       Else
  16.         p(l + 1, s)
  17.       End If
  18.     Next
  19.   End Sub
  20. End Class

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


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

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

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

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

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

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