用VB计算 S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+…当i项值
题目
用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的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
热门考点
- 求have a chance和 have the chance区别
- 天平的使用7个字的步骤
- 两个完全一样的三角形不可能拼成一个().A长方形 B平行四边形 C正方形 D
- 不是在空气中就有吗?
- 英语翻译
- 借款两千元,按月计收复利,日利率为千分之零点五,请问这两千元每月的利息总额是多少?要是千分之五呢?
- 英语翻译
- 将下列成语按(A)聪明、(B)技高、(C)机敏、(D)住那个心;四个方面归类
- 英语连词成句:some,he,beautiful,with,swam,fish(.)
- 甲箱长12宽8高5乙箱长8宽8高6甲装满水,乙水箱空.将甲箱点水抽乙箱,使两箱水面高一样.现两水箱高?