求VB编程代码(For循环).题目:求Fibonacci数列:1,1,2,3,5,8,…的前40个数
即:F1=1 (n=1), F2=l (n=2),Fn=F(n-l) F(n-2) (n>=3)谢谢
人气:285 ℃ 时间:2020-03-22 03:25:15
解答
Private Sub Form_Click()Dim a(1 To 40) As LongFor i = 1 To 40If i = 1 Or i = 2 Thena(i) = 1Elsea(i) = a(i - 2) + a(i - 1)End IfPrint a(i); Tab;If i Mod 5 = 0 Then PrintNext iEnd Sub
推荐
- 输出Fibonacci数列1,1,2,3,5,8等的前20项,按每行5个数显示.用vb谢谢
- 用VB编程,求Fibonacci数列的前40个数以及它们的和.
- vb程序设计课后答案:请问“求Fibonacci数列的前20个数.Fibonacci数列的特征是:第1个数和第二个数都是1
- 斐波那契数序列分别用递归法和递推法输出这个数列的前20项VB代码
- 关于“的”“得”“地”的短语各十个!
- 已知集合A={y/y=x(的平方)-2x+1,x属于R},集合B=[a/a=b(的平方)-2b+3,b属于R,求确定集合A与集合B的关系
- 为什么会产生CO用化学方程式表达
猜你喜欢
- 钡餐的主要成分
- 设f(x)=(sinx^2+1),求f(x)在x=0点的带PEANO余项的泰勒公式,并求f(n)(0)
- W、X、Y、Z是原子序数依次增大的同一短周期元素,W、X是金属元素,Y、Z是非金属元素. (1)W、X各自的最高价氧化物对应的水化物可以反应生成盐和水,该反应的离子方程式为_. (2)W与
- 粮店运来420千克面粉,运来的面粉也大米少1/7,运来的面粉比大米少多少千克?
- 有一质量为5.4kg的铝球,体积是3000cm3,试判断这个球是实心还是空心的?若是空心的,求出空心部分的体积.(铝的密度为2.7×103kg/m3,取g=10N/kg)
- 在三角形abc中,a坐标(4,-1),它的两条角平分线方程为L1:X-Y-1=0和L2:X+Y+2=0,求BC所在直线方程?
- 大正方形的边长是1分米,小正方形的边长是6厘米,小正方形面积是大正方形的几分之几?(最简分数)
- Does John have a ___?Yes,he ___ at a school.A.job;works B.work;works C.job;work D.job;jobs