For k = 2 To 11
n = (k - 1) * 100
For i = 1 To n
x = a + Rnd() * (b - a)
y = Rnd() * d
If sqr(4-x*x) >= y Then m = m + 1
Next
S = m / n * (b - a) * d
ActiveSheet.Cells(k)(j) = S
ActiveSheet.Cells(k)(2) = n
m = 0
Next
ActiveSheet.Cells(1)(j) = j - 2
Next
End Sub