Space Function

рд╕реНрдЯреНрд░рд┐рдЩрд╣рд░реВрд▓рд╛рдИ рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЬрд╕рд▓реЗ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реЗрдХреЛ рдЦрд╛рд▓реА рд╕реНрдерд╛рдирд╣рд░реВрдХреЛ рдорд╛рддреНрд░рд╛ рд▓рд╛рдИ рд╕реВрдЪреАрдд рдЧрд░реНрджрдЫ ред

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

Space (n As Long)

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

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

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

n: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рд╕реНрдЯреНрд░рд┐рдЩрдорд╛ рдЦрд╛рд▓реА рд╕реНрдерд╛рдирд╣рд░реВрдХреЛ рдирдореНрдмрд░ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджрдЫ ред nрдХреЛ рдЕрдзрд┐рдХрддрдо рд╕реНрд╡рд┐рдХрд╛рд░реНрдп рдорд╛рди ремрелрелрейрел рд╣реЛ ред

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

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

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

Sub ExampleSpace

Dim sText As String,sOut As String

Dim iLen As Integer

    iLen = 10

    sText = "Las Vegas"

    sOut = sText & Space(iLen) & sText & Chr(13) &_

    sText & Space(iLen*2) & sText & Chr(13) &_

    sText & Space(iLen*4) & sText & Chr(13)

    msgBox sOut,0,"рд╕реВрдЪрдирд╛:"

End Sub