Удвоение букв - VB
Формулировка задачи:
При вводе фамилии, имени, отчества. Выводится Фамилия и инициалы(код ниже)только , не могу понять, каким методом, командой или способом можно сделать удвоение букв в нужном для этого окна(Text)
Решение задачи: «Удвоение букв»
textual
Листинг программы
Public Function udv(stroka) As String Dim a() As Byte, i% a() = stroka For i = 0 To UBound(a) - 1 Step 2 udv = udv & Chr(a(i)) udv = udv & Chr(a(i)) Next End Function ?udv( "abcd") aabbccdd
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д