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

来源：学生作业帮编辑：神马作文网作业帮分类：数学作业时间：2024/11/15 20:17:44

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 Su

用VB计算 S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+…当i项值用vb计算s=1+2\3+3\5+4\7+.,当第i项的值小于10^-5时结束 VB编程计算s=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+...,当第i项的值＜10的－4次方 VB表达式：计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+1/29+···当第i项的值用VB编写 VB计算公式S=1+1/3+1/5+1/7+.+1/2n-1的和,当第n项的值 VB分别利用For和Do循环语句求s=1+1/2+1/4+1/7+1/11+1/16+1/22+……的值,当第i项的值用VB计算S=1+2^2+2^3+…+2^10的代码用VB程序写出计算s=1!+2!+3!+…+50!的值. 求助vb编程题一道计算S=1+ 1/2 + 1/4 + 1/7 + 1/11 + 1/16 + 1/22 + 1/29 vb程序,计算1/2+1/4+1/6+1/8+1/10 ,当第i项的值 VB程序设计计算S=1+1/2+1/4+1/7+1/11+1/16+1/22+……,要求加数不小于0.00001并显示 vb编程.会的来.感激不尽~vb 【循环结构】编程计算【s=1+2+3++100的值】