теория-вероятностей - Как найти вероятность?

@Vlad_nep, вопросы надо задавать с главной страницы, а не в чужих топиках шестилетней давности...

@Vlad_nep: прежде чем что-то вычислять программе, неплохо было бы освоить грамотное использование терминологии. Здесь подразумевалась не вероятность величины (это нонсенс), а вероятность попадания нормально распределённой случайной величины в заданный промежуток [a,b]. Для этого имеется готовая формула, которая вероятность выражает через интеграл от плотности. Такая формула есть в учебниках или в Википедии. Проблема в том, что там интеграл "неберущийся", и тогда всё зависит от того, есть ли в стандартном пакете VB6 функция erf. Если встроенной процедуры нет, то надо считать приближённо.

Встроенной процедуры нет, но эксперты предлагают такую реализацию:
Private Function erf(ByVal z As Variant) As Variant

Dim t As Variant
Dim ans As Variant
Dim result As Variant

t = CDec(1 / (1 + (0.5 * Abs(z))))
ans = CDec(1 - (t * Exp(((-1 * z) * z) - 1.26551223 + t * (1.00002368 + t * (0.37409196 + t * (0.09678418 + t * (-0.18628806 + t * (0.27886807 + t * (-1.13520398 + t * (1.48851587 + t * (-0.82215223 + t * (0.17087277))))))))))))

If z >= 0 Then
    result = ans
Else
    result = CDec(-1 * ans)
End If

erf = result
End Function