Удвоение букв - VB

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

При вводе фамилии, имени, отчества. Выводится Фамилия и инициалы(код ниже)только , не могу понять, каким методом, командой или способом можно сделать удвоение букв в нужном для этого окна(Text)
Private Sub Go_Click()
 
    Text4.Text = Text1.Text & " " & Left(Text2.Text, 1) & "." & Left(Text3.Text, 1) & "."
   
End Sub


textual

Код к задаче: «Удвоение букв - VB»

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
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник