Function f(x)
' we integrate function f(x)
'f = 1 / Sqr(1 - x ^ 2)
f = Sin(x) / x
End Function
Private Sub Form_Load()

' n is your student number
n = 15108097
T = n Mod 100

' we integrate function f(x) from a to b:
a = 0
b = 1

' j is the number of points for the Rectangular rule of numerical calculation of the integral
j = T + 2
h = (b - a) / j

' i is the integral we calculate

' initializing the variable i for the subsequent summation:
i = 0

' to avoid division by zero in the improper integrals, we use right or left rectangles, where appropriate:
'For p = 0 To j-1
For p = 1 To j
i = i + h * f(h * p)
Next p
' p goes through the points (nodes) from 0 to j-1 or from 1 to j

' printing the resulting value of the integral:
MsgBox i

End Sub