请大家帮忙看一下这道vb程序设计题

请大家帮忙看一下这道vb程序设计题求sum=1+1+2+3+5+8+13+……+144的值,用do……while语句书写... 请大家帮忙看一下这道vb程序设计题求sum=1+1+2+3+5+8+13+……+144的值,用do……while 语句书写 展开
 我来答
志在必得6642
2018-06-30 · 超过28用户采纳过TA的回答
知道答主
回答量:37
采纳率:70%
帮助的人:23.4万
展开全部

看右边的数字应该是斐波那契数序列,即,序列中的第1个和第2个元素均为1,其他的元素的值是其前两个元素的和。本题是对该数列求和到144.

Option Base 1

Private Sub Form_Click()

    Dim x() As Integer

    Dim i As Integer

    Dim sum As Integer

    ReDim x(2)

    x(1) = 1: x(2) = 1 '斐波那契数序列前两个要素

    

    Do While x(UBound(x)) < 144 '利用循环求得小于等于144的各个元素

        ReDim Preserve x(UBound(x) + 1)

        x(UBound(x)) = x(UBound(x) - 1) + x(UBound(x) - 2)

    Loop

    

    sum = 0

    For i = 1 To UBound(x)

        Print x(i); Space(5);

        sum = sum + x(i)

    Next i

    Print

    Print "sum为"; sum

End Sub
--
2022-12-05 广告
图形化编程简单理解为用积木块形式编程,scratch和python也是其中的一种,属于入门级编程,以其简单生动的画面获得无数学生的喜爱,深圳市创客火科技有限公司是一家做教育无人机的公司,旗下有编程无人机,积木无人机及室内外编队,每款飞机含有... 点击进入详情页
本回答由--提供
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式