String Function
рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдЕрдиреБрд╕рд╛рд░ рд╕реНрдЯреНрд░рд┐рдЩ рд╕рд┐рд░реНрдЬрдирд╛ рдЧрд░реНрджрдЫ рд╡рд╛ рд╕реНрдЯреНрд░рд┐рдЩ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рдкрд╣рд┐рд▓реЛрд▓реЛ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдЬрд╕реНрд▓реЗ рдкреНрд░рдХрд╛рд░реНрдпрдорд╛ рдкрд╛рд╕ рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
рд╕реНрдЯреНрд░рд┐рдЩ (рд▓рдореНрдмрд╛рдЗрдХреЛ рд░реВрдкрдорд╛ n, {рдЗрдиреНрдЯреЗрдЧрд░рдХреЛ рд░реВрдкрдорд╛ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ | рд╕реНрдЯреНрд░рд┐рдЩрдХреЛ рд░реВрдкрдорд╛ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░})
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рд╕реНрдЯреНрд░рд┐рдЩ
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
n: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рд╕реНрдЯреНрд░рд┐рдЩрдорд╛ рдлрд░реНрдХрд╛рдЙрдирд▓рд╛рдИ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рд╣рд░реВрдХреЛ рдирдореНрдмрд░рд▓рд╛рдИ рдЬрдирд╛рдЙрдЫ ред n рдХреЛ рдЕрдзрд┐рдХрддрдо рдорд╛рди ремрелрелрейрел рдорд╛рддреНрд░ рд╕реНрд╡рд┐рдХрд╛рд░реНрдп рд╣реБрдиреНрдЫ ред
рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рдХрд╛ рд▓рд╛рдЧрд┐ ASCII рд╕рдЩреНрдХреЗрдд рдкрд░рд┐рднрд╛рд╖рд╛ рдЧрд░реНрджрдЫ ред
рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░: рдХреБрдиреИ рдПрдХрд▓ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░ рдлрд░реНрдХрдиреЗ рд╕реНрдЯреНрд░рд┐рдЩ рдмрд╛рдирд╛рдЙрдирд▓рд╛рдИ рдкреНрд░рдпреЛ рдЧрд░рд┐рдиреНрдЫ, рд╡рд╛ рдХреБрдиреИ рд╕реНрдЯреНрд░рд┐рдЩ рдЬреБрдирдЪрд╛рдБрд╣рд┐ рдкрд╣рд┐рд▓реЛ рдХреНрдпрд╛рд░реЗрдХреНрдЯрд░рдорд╛ рдорд╛рддреНрд░реИ рдкреНрд░рдпреЛрдЧ рдЧрд░реНрди рд╕рдХрд┐рдиреНрдЫ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleString
Dim sText As String
sText = String(10,"A")
MsgBox sText
sText = String(10,65)
MsgBox sText
End Sub