VB题目，求【1】【2】【3】

Private Sub Form_Click() Dim i%, n&, t!, e! e = 0 n = 1 i = 0 t = 1 Do While t > 0.00001 e = e + t i = i + 1 n = n * i t = 1 / n Loop Print "计算了 "; i; " 项的和是 "; e End Sub