用VB计算 S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+…当i项值

题目

答案

Private Sub Command1_Click() Dim m As Integer,n As Integer,s,result 'm为分母变量,n为位置变量,s为数值变量,result为和的变量 m = 1:n = 0:s = 1 / m:result = 0 + 1 / 1 Do While s >= 10 ^ -4 n = n + 1 m = m + n s = 1 / m result = result + s Loop MsgBox "S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+… " & vbCrLf & "运算结果为：" & result,vbOKOnly,"运算结果" End Sub

举一反三

已知函数f（x）=x，g（x）=alnx，a∈R．若曲线y=f（x）与曲线y=g（x）相交，且在交点处有相同的切线，求a的值和该切线方程．

查看答案

我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好

查看答案

奥巴马演讲不用看稿子.为什么中国领导演讲要看?

查看答案

想找英语初三上学期的首字母填空练习……

查看答案

英语翻译

查看答案