2,计算下式的值:1+1/2!+1/3!+1/4!+1/5!+...,直到某项的值

2,计算下式的值:1+1/2!+1/3!+1/4!+1/5!+...,直到某项的值
vb
数学人气:426 ℃时间:2020-02-04 00:51:12
优质解答
Private Sub Command1_Click()n=inputbox("请输入n:")Dim a As integera = 1Dim sum As DoubleFor i = 1 To n For j = 1 To i a = a * j Next sum = sum + 1 / a a = 1NextPrint sumEnd Sub不对
我来回答
类似推荐
请使用1024x768 IE6.0或更高版本浏览器浏览本站点,以保证最佳阅读效果。本页提供作业小助手,一起搜作业以及作业好帮手最新版!
版权所有 CopyRight © 2012-2024 作业小助手 All Rights Reserved. 手机版