String Function

рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдЕрдиреБрд╕рд╛рд░ рд╕реНрдЯреНрд░рд┐рдЩ рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрджрдЫ рд╡рд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рдкрд╣рд┐рд▓реЛрд▓реЛ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдЬрд╕реНрд▓реЗ рдкреНрд░рдХрд╛рд░реНрдпрдорд╛ рдкрд╛рд╕ рдЧрд░реНрджрдЫ ред

рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:


рд╕реНрдЯреНрд░рд┐рдЩ (рд▓рдореНрдмрд╛рдЗрдХреЛ рд░реВрдкрдорд╛ n, {рдЗрдиреНрдЯреЗрдЧрд░рдХреЛ рд░реВрдкрдорд╛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐  | рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░})

рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:

рд╕реНрдЯреНрд░рд┐рдЩ

рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:

n: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рд╕реНрдЯреНрд░рд┐рдЩрдорд╛ рдлрд░реНрдХрд╛рдЙрдирд▓рд╛рдИ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рд╣рд░реВрдХреЛ рдирдореНрдмрд░рд▓рд╛рдИ рдЬрдирд╛рдЙрдЫ ред n рдХреЛ рдЕрдзрд┐рдХрддрдо рдорд╛рди ремрелрелрейрел рдорд╛рддреНрд░ рд╕реНрд╡рд┐рдХрд╛рд░реНрдп рд╣реБрдиреНрдЫ ред

рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рдХрд╛ рд▓рд╛рдЧрд┐ ASCII рд╕рдЩреНрдХреЗрдд рдкрд░рд┐рднрд╛рд╖рд╛ рдЧрд░реНрджрдЫ ред

рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░: рдХреБрдиреИ рдПрдХрд▓ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдлрд░реНрдХрдиреЗ рд╕реНрдЯреНрд░рд┐рдЩ рдмрд╛рдирд╛рдЙрдирд▓рд╛рдИ рдкреНрд░рдпреЛ рдЧрд░рд┐рдиреНрдЫ, рд╡рд╛ рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЬреБрдирдЪрд╛рдБрд╣рд┐ рдкрд╣рд┐рд▓реЛ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рдорд╛ рдорд╛рддреНрд░реИ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред

рддреНрд░реБрдЯрд┐ рд╕рдЩреНрдХреЗрддрд╣рд░реВ

5 рдЕрд╡реИрдз рдХрд╛рд░реНрдп-рд╡рд┐рдзрд┐ рдХрд▓

рдЙрджрд╛рд╣рд░рдг:


Sub ExampleString
Dim sText As String
    sText = String(10,"A")
    MsgBox sText
    sText = String(10,65)
    MsgBox sText
End Sub

Please support us!