急求！VB程序设计，计算下面公式的值，如图所示

似乎要用到循环结构写代码的大神能为我讲解一下就更好了

2025-06-22 16:49:54

推荐回答（1个）

回答1：

这需要用到两个变量和一个timer控件

代码如下
Option Explicit
Dim e
Dim n

Private Sub Form_Load()
e = 1
For i = 2 To 10
e = e * i
n = n + 1 / e
Next
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Print "e=" & n + 2
Timer1.Enabled = False
End Sub
因为从第3个数他每加一个分数，那个分数的分母就加1，3-1=2，所以从2到10循环。
因为除数不能为0，所以要先把e设置为1
最后要加2是因为在第三个数前，还有一分之一和1，一分之一就是1，1+1=2