Как продублировать каждый символ в слове - VB
Формулировка задачи:
привет светлые умы, вот такое вот задание: в текстбокс вводится слово, программа должна вывести этоже слово, только продублировав кажлый знак, ну допустим ввели мы "привет5" после нажатия кнопки получаем "ппррииввеетт55"... сделать надо с помощью оператора мид.... помогите пожалуйста
Решение задачи: «Как продублировать каждый символ в слове»
textual
Листинг программы
Function s_2(s As String) As String Dim i& For i = 1 To Len(s) s_2 = s_2 & String$(2, Mid$(s, i, 1)) Next i End Function Function s_3(s As String) As String Dim i& s_3 = Space$(Len(s) * 2) For i = 1 To Len(s) Mid(s_3, i * 2 - 1) = String$(2, Mid$(s, i, 1)) Next i End Function Function dup(s As String) As String If Len(s) = 1 Then dup = s & s Else dup = dup(Mid$(s, 1, 1)) + dup(Mid$(s, 2)) End If End Function Sub example() Dim t!, s$ s = Space$(4000) DoEvents t = Timer s_2 s Debug.Print "Склеивание", Format(Timer - t, "0.000") DoEvents t = Timer s_3 s Debug.Print "Оператор Mid", Format(Timer - t, "0.000") DoEvents t = Timer dup s Debug.Print "Рекурсия", Format(Timer - t, "0.000") End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д