VBA编程计算数列1+1/3+1/5+……+1/100的和。 vb 计算1-1/3!+1/5!-1/7!。。。之值
VBA代码如下：
Sub 求和()
Dim j, s
s = 0
For j = 1 To 100 Step 2
s = s + 1 / j
Next
MsgBox "该数列的和为：" & s
End Sub
Sub SUM_S()
Dim s As Double
Dim n As Integer
n = 1
s = 0
Do While n <= 100
s = s + 1 / n
n = n + 2
Loop
Sheet1.Cells(1, 1) = s
MsgBox ("The result is " & s)
End Sub
vb编程 1+1/3+1/5+……1/49 用for语句~
for i = 1 to 49 step 2
s=s + 1/i
next
msgbox s
其实那样写1e-7是表示1乘以10的负7次方，只不过在vb代码窗口它会自动帮你变为0.0000001
If 1 / m < 0.0000001 Then Exit Do
数列的第一和第二个数分别为1和1,从第三个数开始,每个数等于其前两...
答：INPUT a=1,b=1 POINT a,b DO c=a+b a=b b=c UNTIL c<0 POINT c END
求数列1,1,2,3,5,8……前20项之和 的VB编程
答：Private Sub Command1_Click()Dim s(1 To 20) As Integer Dim sum As Integer s(1) = 1 s(2) = 1 sun=s(1)+s(2)For i = 3 To 20 s(i) = s(i - 1) + s(i - 2)sum = sum + s(i)Next Print sum End Sub
等差数列公差与等比数列公比都为ba1=b1,a4=b4,a10=b10求a1与d的值...
答：a4=b4,a10=b10 所以，a4-a1=b4-b1 即 6d=b1(d^3)(d^6-1)=b1(d^3)(d^3-1)(d^3+1)……⑵ 由题意知 d≠0 a1=b1≠0 2*⑴=⑵ 得 2*(d^3-1)=(d^3)(d^3-1)(d^3+1) d^-1≠0 所以 （d^3）^2+（d^3）-2=0 解之得 d^3=-2 d=-三次根号2 回代求a1...
python做斐波那契数列。
答：def get_Fibonacci_sequence(n):'''输入n,遍历到第n位的斐波那契数列'''a,b=0,1 if n>=3:#即等于>2 相当于1,2位特殊处理 for i in range(n-1):#操作次数是n-1，去除一次第一位的操作 c=a+b a,b,=b,c print(b)#这里选择先改变再输出，可以减少1次的循环 def get_Fibonacci_N...
已知1,a,b,8成等比数列,则a=?
答：a1=1 a2=a a3=b a4=8 则公比q=a2/a1=a 所以a3=b=a2*q=a²a4=8=a2*q²=a³所以a=2 b=4 或者a4=a1*q³得q=2 q=a2/a1=a 所以a=2
编程实现,用循环结构实现求分数数列:3/2,5/3,9/5,11/6……的前30项和...
答：首先，我们需要初始化变量 sum 为0，用于累加前30项的和。然后，我们使用变量 a 和 b 分别表示分数数列中的分子和分母，分别初始化为3和2，即数列的第一项3/2。接下来，我们使用 for 循环来计算前30项的和，循环变量 i 取值范围为0到29，即循环30次。在每次循环中，我们将当前项的分数值累加到...
帮我写程序,求下面数列前20项之和: 2/1,3/2,5/3,8/5,13/8,21/13...
答：int i,f1=1,f2=2,f;double t,sum=0;for(i=1;i<=20;i++){ t=f2*1.0/f1;sum+=t;f=f1; /*先将f1的值保存下来*/ f1=f2; /*将f2的值赋给下一次的f1*/ f2=f+f2; /*将保存下来的f2与f2相加得到新的f2*/ /*所以第一项为：2/1,第二项为：3/2,……*/ } pri...
用java写出兔子的规律为数列1,1,2,3,5,8,13,21...
答：晕，看错题目了。int fun(int n){ if(n < 4){ return 2n}//前几年小兔子们还没有开始产崽 else return fun(n-1) + fun(n-1) - 4 //前一年的兔子不死，其中总是有4只还没有开始产崽。}
写过程:三个数a,b,c成等差数列,其和为6,且a,b,c+1成等比数列,求a,b...
答：等比数列: b的平方=aX(c+1)---步骤3 步骤1,2可得：2b=6-b--所以：b=2---所以：a+c=4---步骤4 步骤3,4可得4=aX(5-a)---a的平方-5a+4=0=(a-1)(a-4)---a1=1,a2=4 又当a=4时，c=0，且等比数列q不为0，则a=4舍去 所以a=1 所以a=1,b=2,c=3 === 简便写...
vb编程 裴波那契数列
答：integer n = inputbox("请输入n")If n=1 then msgbox("数列的第1个数是1")Elseif n=2 then msgbox("数列的第2个数是1")Elseif n<=0 then msgbox("请输入大于0的正整数")Else a = 1 b = 1 For i = 3 to n c = a + b a = b b = c Next msgbox("数列的第"&Str(n...
