Y=1/2!+1/3!+1/4!+...+1/n!VB编程当通项小于10^(-7)停止计算Y=1/2!+1/3!+1/4!+...+1/n!编程当通项小于10^(-7)停止计算

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 09:13:30
Y=1/2!+1/3!+1/4!+...+1/n!VB编程当通项小于10^(-7)停止计算Y=1/2!+1/3!+1/4!+...+1/n!编程当通项小于10^(-7)停止计算

Y=1/2!+1/3!+1/4!+...+1/n!VB编程当通项小于10^(-7)停止计算Y=1/2!+1/3!+1/4!+...+1/n!编程当通项小于10^(-7)停止计算
Y=1/2!+1/3!+1/4!+...+1/n!VB编程当通项小于10^(-7)停止计算
Y=1/2!+1/3!+1/4!+...+1/n!编程当通项小于10^(-7)停止计算

Y=1/2!+1/3!+1/4!+...+1/n!VB编程当通项小于10^(-7)停止计算Y=1/2!+1/3!+1/4!+...+1/n!编程当通项小于10^(-7)停止计算
private sub command1-click()
dim n%,y#,s&
n=2:y=0:s=1
do
s=s*n
y=y+1/s
n=n+1
loop until 1/s