求助~

任意输入m,n．求〔m,n〕区间里正态分布函数的积分．
Private Sub Command3_Click()
e = 1.4
pi = 3.14159
m = Val(Text1.Text)
n = Val(Text2.Text)
 y1 = 1 / Sqr(2 * pi) * e ^ (-m ^ 2 / 2) '下限
 y2 = 1 / Sqr(2 * pi) * e ^ (-n ^ 2 / 2) '上限
 m1 = m + 0.0001
 y3 = 1 / Sqr(2 * pi) * e ^ (-m1 ^ 2 / 2)
 sum = 0.0001 * (y1 + y3) / 2     'sum=(f(m)+f(m+0.0001))/2 * 0.0001
 x = m1
 Do While x <= n
  y4 = 1 / Sqr(2 * pi) * e ^ (-x ^ 2 / 2)
  X1 = x + 0.0001
  y5 = 1 / Sqr(2 * pi) * e ^ (-X1 ^ 2 / 2)
  sum1 = (y4 + y5) * 0.0001 / 2
  sum = sum1 + sum
  x = X1
 Loop
Label1.Caption = sum
End Sub