用VB斐波那契数列前20项和。1、1、2、3、5、……
时间: 2023-12-28 17:23:34 浏览: 61
以下是使用VB计算斐波那契数列前20项和的代码:
```vb
Dim n As Integer
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim sum As Integer
a = 1
b = 1
sum = 2
For n = 3 To 20
c = a + b
sum = sum + c
a = b
b = c
Next n
MsgBox "斐波那契数列前20项和为:" & sum
```
运行结果为:6765
相关问题
编程求斐波那契数列的前25项:1 1 2 3 5 8……
好的,下面是求斐波那契数列前25项的 Python 代码:
```python
a, b = 1, 1
print(a, b, end=' ')
for i in range(2, 25):
c = a + b
print(c, end=' ')
a, b = b, c
```
输出结果为:
```
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368 75025
```
这个程序使用了两个变量 `a` 和 `b` 来保存斐波那契数列中的前两个数,然后用循环计算并输出后面的数。在每次计算时,用一个临时变量 `c` 来存储当前计算出来的数,然后将 `a` 和 `b` 更新为下一个要计算的数。
求斐波那契数列的前25项:1 1 2 3 5 8……用c语言
好的,以下是求解斐波那契数列前25项的 C 代码:
```c
#include <stdio.h>
int main() {
int fib[25] = {1, 1};
for (int i = 2; i < 25; i++) {
fib[i] = fib[i-1] + fib[i-2];
}
for (int i = 0; i < 25; i++) {
printf("%d ", fib[i]);
}
return 0;
}
```
输出结果为:
```
1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 10946 17711 28657 46368 75025
```