a = 1 b = 1 i = 1 While i < 20 i = i + 1 b = b * i a = a + 1 / b Wend Debug.Print a结果：2.71828182845905
