用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项值
数学人气:173 ℃时间:2020-01-29 09:59:05
优质解答
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
我来回答
类似推荐
猜你喜欢
- 1费马小定理中 (a,p)=1表示什么
- 2读书笔记(题目,开头,结尾,体会,好句)
- 3函数y=log2(1-x^2)的定义域为
- 4That colour makes us feel unhappy.(改为被动语态)
- 5what is your ___ (day) life like
- 6把一个实心球分别投入足量的水,酒精中静止,受到水的浮力是1.7牛,受到酒精的浮力是1.6牛,求小球的密度
- 76、初一一道数学题,要求有详解
- 8阅读下列文字后,解答问题: 我们知道,对于关于x的方程ax=b,当a不等于0时,方程的解为x=b/a;当a等于0,b也等于0时,所有实数x都能使方程等式成立,也就是说方程的解为全体实数;当a等
- 9一个长方体长是宽的二分之三,宽是高的2倍长是12cm体积是多少
- 10关于夏天优美的句子