Space Function
рд╕реНрдЯреНрд░рд┐рдЩрд╣рд░реВрд▓рд╛рдИ рдлрд░реНрдХрд╛рдЙрдБрдЫ рдЬрд╕рд▓реЗ рдирд┐рд░реНрджрд┐рд╖реНрдЯ рдЧрд░реЗрдХреЛ рдЦрд╛рд▓реА рд╕реНрдерд╛рдирд╣рд░реВрдХреЛ рдорд╛рддреНрд░рд╛ рд▓рд╛рдИ рд╕реВрдЪреАрдд рдЧрд░реНрджрдЫ ред
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
Space (n As Long)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рд╕реНрдЯреНрд░рд┐рдЩ
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
n: рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ рдЬрд╕рд▓реЗ рд╕реНрдЯреНрд░рд┐рдЩрдорд╛ рдЦрд╛рд▓реА рд╕реНрдерд╛рдирд╣рд░реВрдХреЛ рдирдореНрдмрд░ рдкрд░рд┐рднрд╛рд╖рд┐рдд рдЧрд░реНрджрдЫ ред nрдХреЛ рдЕрдзрд┐рдХрддрдо рд╕реНрд╡рд┐рдХрд╛рд░реНрдп рдорд╛рди ремрелрелрейрел рд╣реЛ ред
рдЙрджрд╛рд╣рд░рдг:
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