Как написать генератор символов - Visual Basic .NET
Формулировка задачи:
Здравствуйте, уважаемые программисты. Просто не понимаю как написать код для генератора символов.
Предположим, что у нас есть массив символов полученный путем:
Задача состоит в том, чтобы в течение одного прохода цикла генерировалась строка типа:
0
1
2
...
z
01
02
...
0z
10
11
...
1z
20
21
.........
z5Xy7z
z5Xy8a
z5Xy8b
.........
zzzzzz
Буду очень признателен, если вам удастся решить подобную задачу.
Листинг программы
- Dim CharBase As String = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
- Dim FDChar(CharBase.Length - 1)
- For i=0 To CharBase.Length - 1
- FDChar(i) = CChar(Mid$(CharBase, i + 1, i + 1))
- Next
Решение задачи: «Как написать генератор символов»
textual
Листинг программы
- Public Class Form1
- Dim C As String = "0123456789AaBbCcDdEeFfGgHhIiJjKkLlMmNnOoPpQqRrSsTtUuVvWwXxYyZz"
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- For i = 1 To 2 'до шести считайте сами, мне не дожить.
- p(1, Space(i))
- Next
- End Sub
- Sub p(ByVal l%, ByVal s$)
- For i = 0 To C.Length - 1
- Mid(s, l, 1) = C(i)
- If l = s.Length Then
- Debug.Print(s) 'здесь ловим следующую комбинацию
- Else
- p(l + 1, s)
- End If
- Next
- End Sub
- End Class
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д