Input #1, X(I), y(I)
Next i
Close #1
Calc = 0
Call calcule(a, b, r, x(), y(), n, calc)
Call pnt(x(), y(), n, a, b, r, calc, x1, y1, x2, y2)
End Sub
Private Sub calcule(a, b, r, x, y, n, calc)
For i = 1 To n
If y(i)<a1+ln(x(i)) and y(i)>a2+ln(x(i)) Then calc = calc + 1
Next i
Print "calcule"
End Sub
Private Sub pnt(x, y, n, a, b, calc, x1, y1, x2, y2)
Form1.BackColor = RGB(100, 100, 100)
Form1.BackColor = vbBlue
Form1.CurrentX = 50
Form1.CurrentY = 50
Print "number of points: "; calc
Line (0, 3000)-(5000, 3000), vbRed
Line (2500, 0)-(2500, 5000), vbRed
Form1.CurrentX = 4900
Form1.CurrentY = 2700
Print "x"
Form1.CurrentX = 2600
Form1.CurrentY = 200
Print "y"
Line (x1, y1)-(x2, y2), , B
For i=1 to 5000
PSet(i, a1+ln(i)),vbgreen
PSet(i, a2+ln(i)), vbgreen
Next i
For i = 1 To n
PSet(x(i),y(i)), vbgreen
Next i
End Sub
Private Sub Command9_Click()
Dim x,y(100) as single
Open “C:\inf\input.txt” for input as #1
SUB calcule (a, b, x(), y(), n, calc)
SUB pnt (x(), y(), n, a, b, calc)
Input #1, a, n
For i=1 to n
Input #1, X(I), y(I)
Next i
Close #1
Calc = 0
Call calcule(a, b, r, x(), y(), n, calc)
Call pnt(x(), y(), n, a, b, r, calc, x1, y1, x2, y2)
End Sub
Private Sub calcule(a, b, r, x, y, n, calc)
For i = 1 To n
If y(i)>a*x^2 Then calc = calc + 1
Next i
Print "calcule"
End Sub
Private Sub pnt(x, y, n, a, b, calc, x1, y1, x2, y2)
Form1.BackColor = RGB(100, 100, 100)
Form1.BackColor = vbBlue
Form1.CurrentX = 50
Form1.CurrentY = 50
Print "number of points: "; calc
Line (0, 3000)-(5000, 3000), vbRed
Line (2500, 0)-(2500, 5000), vbRed
Form1.CurrentX = 4900
Form1.CurrentY = 2700
Print "x"
Form1.CurrentX = 2600
Form1.CurrentY = 200
Print "y"
Line (x1, y1)-(x2, y2), , B
For i=1 to 5000
PSet(i, a*x^2),vbgreen
Next i
For i = 1 To n
PSet(x(i),y(i)), vbgreen
Next i
End Sub
Private Sub Command10_Click()
Dim x,y(100) as single
Open “C:\inf\input.txt” for input as #1
SUB calcule (a, b, x(), y(), n, calc)
SUB pnt (x(), y(), n, a, b, calc)
Input #1, a, b, n
For i=1 to n
Input #1, X(I), y(I)
Next i
Close #1
Calc = 0
Call calcule(a, b, r, x(), y(), n, calc)
Call pnt(x(), y(), n, a, b, r, calc, x1, y1, x2, y2)
End Sub
Private Sub calcule(a, b, r, x, y, n, calc)
For i = 1 To n
If y(i)>a*i^2 and y(i)<a*i^2-b Then calc = calc + 1
Next i
Print "calcule"
End Sub
Private Sub pnt(x, y, n, a, b, calc, x1, y1, x2, y2)
Form1.BackColor = RGB(100, 100, 100)
Form1.BackColor = vbBlue
Form1.CurrentX = 50
Form1.CurrentY = 50
Print "number of points: "; calc
Line (0, 3000)-(5000, 3000), vbRed
Line (2500, 0)-(2500, 5000), vbRed
Form1.CurrentX = 4900
Form1.CurrentY = 2700
Print "x"
Form1.CurrentX = 2600
Form1.CurrentY = 200
Print "y"
Line (x1, y1)-(x2, y2), , B
For i=1 to 5000
PSet(i, a*x^2),vbgreen
PSet(i, a*x^2-b),vbgreen
Next i
For i = 1 To n
PSet(x(i),y(i)), vbgreen
Next i
End Sub
Private Sub Command11_Click()
Dim x, y, r(100) as single
Open “C:\inf\input.txt” for input as #1
SUB calcule (a, b, x(), y(), n, calc)
SUB pnt (x(), y(), n, a, b, calc)
Input #1, a, n
For i=1 to n
Input #1, x(i), y(i), r(i)
Next i
Close #1
Calc = 0
Call calcule(a, b, r, x(), y(), n, calc)
Call pnt(x(), y(), n, a, b, r, calc, x1, y1, x2, y2)
End Sub
Private Sub calcule(a, b, r, x, y, n, calc)
For i = 1 To n
If y(i)>a+r(i) Then calc = calc + 1
Next i
Print "calcule"
End Sub
Private Sub pnt(x, y, n, a, b, calc, x1, y1, x2, y2)
Form1.BackColor = RGB(100, 100, 100)
Form1.BackColor = vbBlue
Form1.CurrentX = 50
Form1.CurrentY = 50
Print "number of points: "; calc
Line (0, 3000)-(5000, 3000), vbRed
Line (2500, 0)-(2500, 5000), vbRed
Form1.CurrentX = 4900
Form1.CurrentY = 2700
Print "x"
Form1.CurrentX = 2600
Form1.CurrentY = 200
Print "y"
Line (x1, y1)-(x2, y2), , B
For i=1 to 5000
PSet(i, a),vbgreen
Next i
For i = 1 To n
circle(x(i),y(i)),r(i), vbgreen
Next i
End Sub
Private Sub Command12_Click()
Dim x, y, r(100) as single
Open “C:\inf\input.txt” for input as #1
SUB calcule (a, b, x(), y(), n, calc)
SUB pnt (x(), y(), n, a, b, calc)
Input #1, a, n
For i=1 to n
Input #1, x(i), y(i), r(i)
Next i
Close #1
Calc = 0
Call calcule(a, b, r, x(), y(), n, calc)
Call pnt(x(), y(), n, a, b, r, calc, x1, y1, x2, y2)
End Sub
Private Sub calcule(a, b, r, x, y, n, calc)
For i = 1 To n
If y(i)<a+r(i) Then calc = calc + 1
Next i
Print "calcule"
End Sub
Private Sub pnt(x, y, n, a, b, calc, x1, y1, x2, y2)
Form1.BackColor = RGB(100, 100, 100)
Form1.BackColor = vbBlue
Form1.CurrentX = 50
Form1.CurrentY = 50
Print "number of points: "; calc
Line (0, 3000)-(5000, 3000), vbRed
Line (2500, 0)-(2500, 5000), vbRed
Form1.CurrentX = 4900
Form1.CurrentY = 2700
Print "x"
Form1.CurrentX = 2600
Form1.CurrentY = 200
Print "y"
Line (x1, y1)-(x2, y2), , B
For i=1 to 5000
PSet(i, a),vbgreen
Next i
For i = 1 To n
circle(x(i),y(i)),r(i), vbgreen
Next i
End Sub
Private Sub Command13_Click()
Dim x, y, r(100) as single
Open “C:\inf\input.txt” for input as #1
SUB calcule (a, b, x(), y(), n, calc)
SUB pnt (x(), y(), n, a, b, calc)
Input #1, a, n
For i=1 to n
Input #1, x(i), y(i), r(i)
Next i
Close #1
Calc = 0
Call calcule(a, b, r, x(), y(), n, calc)
Call pnt(x(), y(), n, a, b, r, calc, x1, y1, x2, y2)
End Sub
Private Sub calcule(a, b, r, x, y, n, calc)
For i = 1 To n
If y(i)>a+r(i) Then calc = calc + 1
Next i
Print "calcule"
End Sub
Private Sub pnt(x, y, n, a, b, calc, x1, y1, x2, y2)
Form1.BackColor = RGB(100, 100, 100)
Form1.BackColor = vbBlue
Form1.CurrentX = 50
Form1.CurrentY = 50
Print "number of points: "; calc
Line (0, 3000)-(5000, 3000), vbRed
Line (2500, 0)-(2500, 5000), vbRed
Form1.CurrentX = 4900
Form1.CurrentY = 2700
Print "x"
Form1.CurrentX = 2600
Form1.CurrentY = 200
Print "y"
Line (x1, y1)-(x2, y2), , B
For i=1 to 5000
PSet(a, i),vbgreen
Next i
For i = 1 To n
circle(x(i),y(i)),r(i), vbgreen
Next i
End Sub
Private Sub Command14_Click()
Dim a, b(100) as single
Open “C:\inf\input.txt” for input as #1
SUB calcule (a, b, x(), y(), n, calc)
SUB pnt (x(), y(), n, a, b, calc)
Input #1, c, d, r, n
For i=1 to n
Input #1, a(i), b(i)
Next i
Close #1
Calc = 0
Call calcule(a, b, r, x(), y(), n, calc)
Call pnt(x(), y(), n, a, b, r, calc, x1, y1, x2, y2)
End Sub
Private Sub calcule(a, b, r, x, y, n, calc)
For i = 1 To n
If d+r>a(i)+b(i)*c Then calc = calc + 1
Next i
Print "calcule"
End Sub
Private Sub pnt(x, y, n, a, b, calc, x1, y1, x2, y2)
Form1.BackColor = RGB(100, 100, 100)
Form1.BackColor = vbBlue
Form1.CurrentX = 50
Form1.CurrentY = 50
Print "number of points: "; calc
Line (0, 3000)-(5000, 3000), vbRed
Line (2500, 0)-(2500, 5000), vbRed
Form1.CurrentX = 4900
Form1.CurrentY = 2700
Print "x"
Form1.CurrentX = 2600
Form1.CurrentY = 200
Print "y"
Line (x1, y1)-(x2, y2), , B
For i = 1 To n
circle(c,d),r, vbgreen
Next i
End Sub
Private Sub Command15_Click()
Dim a, b(100) as single
Open “C:\inf\input.txt” for input as #1
SUB calcule (a, b, x(), y(), n, calc)
SUB pnt (x(), y(), n, a, b, calc)
Input #1, n, a, b
For i=1 to n
Input #1, x(i), y(i), r(i)
Next i
Close #1
Calc = 0
Call calcule(a, b, r, x(), y(), n, calc)
Call pnt(x(), y(), n, a, b, r, calc, x1, y1, x2, y2)
End Sub
Private Sub calcule(a, b, r, x, y, n, calc)
For i = 1 To n
If y(i)+r(i)>a+b*i and a(i)-r(i)<a+b*i Then calc = calc + 1
Next i
Print "calcule"
End Sub
Private Sub pnt(x, y, n, a, b, calc, x1, y1, x2, y2)
Form1.BackColor = RGB(100, 100, 100)
Form1.BackColor = vbBlue
Form1.CurrentX = 50
Form1.CurrentY = 50
Print "number of points: "; calc
Line (0, 3000)-(5000, 3000), vbRed
Line (2500, 0)-(2500, 5000), vbRed
Form1.CurrentX = 4900
Form1.CurrentY = 2700
Print "x"
Form1.CurrentX = 2600
Form1.CurrentY = 200
Print "y"
Line (x1, y1)-(x2, y2), , B
For i=1 to 5000
Pset(i,a+b*i),vbgrey
Next i
For i = 1 To n
circle(x(i),y(i)),r(i), vbgreen
Next i
End Sub
Private Sub Command16_Click()
Dim a, b(100) as single
Open “C:\inf\input.txt” for input as #1
SUB calcule (a, b, x(), y(), n, calc)
SUB pnt (x(), y(), n, a, b, calc)
Input #1, n, a1, b1, a2, b2
For i=1 to n