Input #1, X(I), y(I)
Next i
Close #1
Calc = 0
Call calcule(a, b, x(), y(), n, calc)
Call pnt(x(), y(), n, a, b, calc)
End Sub
Private Sub calcule(a, b, x(), y(), n, calc)
For i = 1 To n
If y(i)>a-b*x Then calc = calc + 1
Next i
Print "calcule"
End Sub
Private Sub pnt(x, y, n, a, b, calc)
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(x(i), y(i))
Pset(i, a-b*i)
Next i
End Sub
Private Sub Command6_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, a1, a2, 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)<a1-b*i and y(i)>a2-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, a2-b*i),vbgreen
PSet(i, a2+b*i), vbgreen
Next i
For i = 1 To n
PSet(x(i),y(i)), vbgreen
Next i
End Sub
Private Sub Command7_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, 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( x(), y(), n, calc)
For i = 1 to n
If y(i)>ln(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,ln(i)), vbgreen
Next i
For i = 1 To n
PSet(x(i),y(i)), vbgreen
Next i
End Sub
Private Sub Command8_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, a1, a2, n
For i=1 to n