محاسبه جذر عدد

[mona rahimi]

با عرض سلام و خسته نباشید.
یه سورس میخواستم که بدون استفاده از تابع جذر یه عدد رو تا 4 رقم اعشار حساب کند.

 

[Aref_Alikhani]

'enrer your num in x
x = 0
r = 1
If (x <> 0) Then
  For i = 1 To 100
    r = (r + x / r) / 2
  Next
  Text1.Text = Round(r, 4)
Else
  r = 0
  Text1.Text = 0
End If