Разделение текста в TextBox на равные части - Visual Basic .NET
Формулировка задачи:
Нужна программа которая разделяет текст в textbox на равные части.И каждая часть заменяется другим словом заданным с помощью Case.Помогите пожалуйста
Решение задачи: «Разделение текста в TextBox на равные части»
textual
Листинг программы
Dim Shifer As String = "haspklvbt"
Dim Out As New System.Text.StringBuilder
Dim Dict As New Dictionary(Of String, Char)
Dict.Add("vbt", "q")
Dict.Add("eyr", "w")
Dict.Add("pkl", "e")
Dict.Add("has", "r")
For I As Integer = 0 To Shifer.Length - 1 Step 3
Out.Append(Dict(Shifer.Substring(I, 3)))
Next
MsgBox(Out.ToString)
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д