Sqr Function
рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐рдХреЛ рд╡рд░реНрдЧрдореВрд▓ рдЧрдгрдирд╛ рдЧрд░реНрдиреБрд╣реЛрд╕реН
рд╡рд╛рдХреНрдп рд╕рдВрд░рдЪрдирд╛:
Sqr (рдирдореНрдмрд░)
рдорд╛рди рдлрд░реНрдХрд╛рдЙрдиреБрд╣реЛрд╕реН:
рдбрдмрд▓
рдкрд░рд╛рдорд┐рддрд┐рд╣рд░реВ:
рд╕рдЩреНрдЦреНрдпрд╛:рддрдкрд╛рдИрдБрд▓реЗ рд╡рд░реНрдЧрдореВрд▓ рдЧрдгрдирд╛ рдЧрд░реНрди рд▓рд╛рдЧрд┐ рдЪрд╛рд╣реЗрдХреЛ рдХреБрдиреИ рд╕рдЩреНрдЦреНрдпрд╛рддреНрдордХ рдЕрднрд┐рд╡реНрдпрдХреНрддрд┐ ред
рд╡рд░реНрдЧрдореВрд▓ рдПрдЙрдЯрд╛ рдирдореНрдмрд░ рд╣реЛ рдЬрд╕рд▓рд╛рдИ рддрдкрд╛рдИрдБ рдЕрд░реНрдХреЛ рдирдореНрдмрд░ рдЙрддреНрдкрд╛рджрди рдЧрд░реНрдирд▓рд╛рдИ рддреНрдпрд╣реА рдирдореНрдмрд░рд▓реЗ рдЧреБрдгрди рдЧрд░реНрдиреБ рднрдпреЛ, рдЙрджрд╛рд╣рд░рдгрдХрд╛ рд▓рд╛рдЧрд┐ рейрем рдХреЛ рдмрд░реНрдЧ рдирдореНрдмрд░ рем рд╣реЛ ред
рдЙрджрд╛рд╣рд░рдг:
Sub ExampleSqr
Dim iVar As Single
iVar = 36
MsgBox Sqr(iVar)
End Sub