Sqr Function

рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рд╡рд░реНрдЧрдореВрд▓ рдЧрдгрдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН

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


Sqr (рдирдореНрдмрд░)

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

Double

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

рд╕рдЩреНрдЦреНрдпрд╛:рддрдкрд╛рдИрдБрд▓реЗ рд╡рд░реНрдЧрдореВрд▓ рдЧрдгрдирд╛ рдЧрд░реНрди рд▓рд╛рдЧрд┐ рдЪрд╛рд╣реЗрдХреЛ рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ ред

рд╡рд░реНрдЧрдореВрд▓ рдПрдЙрдЯрд╛ рдирдореНрдмрд░ рд╣реЛ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рдЕрд░реНрдХреЛ рдирдореНрдмрд░ рдЙрддреНрдкрд╛рджрди рдЧрд░реНрдирд▓рд╛рдИ рддреНрдпрд╣реА рдирдореНрдмрд░рд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБ рднрдпреЛ, рдЙрджрд╛рд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐ рейрем рдХреЛ рдмрд░реНрдЧ рдирдореНрдмрд░ рем рд╣реЛ ред

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

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

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


Sub ExampleSqr
Dim iVar As Single
    iVar = 36
    MsgBox Sqr(iVar)
End Sub

Please support us!