VB求e的近似值
发布网友
发布时间：2022-04-23 16:58
共2个回答
热心网友
时间：2023-07-11 01:25
见图所示
热心网友
时间：2023-07-11 01:25
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 <= 10 ^ -6
Print "e^" & x & "=" & s
End Sub
