Question

BASIC编程：使用下面近似公式求e的值，直到第n项小于10-6为止，在窗体上输出e的近似值。 e ≈

Answer 1

Private Sub Command1_Click()
Dim i%, n&, t!, e!
  e = 0              ' 存放累加和结果
  i = 0               '计数器清零
  n = 1               ' 存放阶乘的值
  t = 1               ' 级数第i项值
   Do While t > 0.00001
     e = e + t
     i = i + 1         ' 计数器
     n = n * i         ' 连乘，求阶乘
     t = 1 / n         ' 累加和
  Loop
 Label2.Caption = "一共计算了 " & i & " 项的和是 " & e & ",其误差小于0.00001"
End Sub

追问

不可运行

追答

是什么错误呢？