Private Sub Command1_Click()
x = InputBox("请输入x：")
s = 1
fact = 1
Do
i = i + 1
fact = fact * i
t = x ^ i / fact
s = s + t
Loop Until t