Dim Graph1 As Graphics
Dim Pen1 As New Pen(Color.Black, 1)
Dim Pen2 As New Pen(Color.White, 1)
Dim I, N, M, X, Y As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Graph1 = Me.PictureBox1.CreateGraphics()
Graph1.Clear(Color.White)
N = Val(TextBox1.Text)
Graph1.TranslateTransform(0, 250)
Graph1.ScaleTransform(1, -1)
Dim a(500) As PointF
For X1 As Integer = 0 To 500
a(X1).X = X1
a(X1).Y = X1 ^ 2 / 1000

Next
Graph1.DrawCurve(Pens.Blue, a)
Graph1.DrawRectangle(Pen2, 1, 1, 498, 498)
For I = 1 To N
X = Rnd() * 500
Y = Rnd() * 250
Graph1.DrawEllipse(Pen1, X, Y, 1, 1)
If Y <= X ^ 2 / 100 Then M = M + 1
Next I
Label1.Text =

Dim Graph1 As Graphics
Dim Pen1 As New Pen(Color.Black, 1)
Dim Pen2 As New Pen(Color.White, 1)
Dim I, N, M, X, Y As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Graph1 = Me.PictureBox1.CreateGraphics()
Graph1.Clear(Color.White)
N = Val(TextBox1.Text)
Graph1.TranslateTransform(0, 250)
Graph1.ScaleTransform(1, -1)
Dim a(500) As PointF
For X1 As Integer = 0 To 500
a(X1).X = X1
a(X1).Y = X1 ^ 2 / 1000

Next
Graph1.DrawCurve(Pens.Blue, a)
Graph1.DrawRectangle(Pen2, 1, 1, 498, 498)
For I = 1 To N
X = Rnd() * 500
Y = Rnd() * 250
Graph1.DrawEllipse(Pen1, X, Y, 1, 1)
If Y <= X ^ 2 / 100 Then M = M + 1
Next I
Label1.Text =

Не могу никак вывести последнюю формулу:
Label1.Text =

Нет, мне нужна формула площади, к этой гиперболе.