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

来源:学生作业帮助网 编辑:六六作业网 时间:2024/07/03 08:13:44
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!+

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