VB题目s=1-1/2!+1/3!-1/4!+...-1/n!≈ 要求用do loop

Private Sub Command1_Click() Dim n!, s!, t! n = 0: s = 0 t = 1 Do n = n + 1 t = t * n s = s + (-1) ^ (n - 1) / t Loop Until n = 20 Print sEnd Sub