当前位置: 高中信息技术 / 综合题
  • 1. (2016高三上·杭州期中) 编写VB程序,界面设计如图所示,使其具有下列功能:在文本框Text1中输入一个小于20的正整数n,单击“计算”按钮Command1,计算斐波那契数列中第n项的值,并在标签Label2中输出结果;若输入错误,则在标签Label2中显示相应的提示信息。(斐波那契数列是指这样的数列:1,1,2,3,5,8,13…。即:第1项和第2项的值均为1,从第3项开始,每一项的值是它前面两项之和)

    1. (1) 代码“Private Sub Command1_Click()”中的Command1 是       。(单选,填字母)
      A . 对象名 B . 属性名 C . 属性值 D . 事件名
    2. (2) 为实现上述功能,请在划线处填入合适的代码。

      Private Sub Command1_Click()

      Dim n As Long, k As Integer

      Dim f1 As Long, f2 As Long, f As Long

      =Val(Text1.Text)

          If n >= 20 Or n <= 0 Then

              Label2.Caption = "输入的数据有误"

          Else

              If n <= 2 Then         ' 第1,2个元素的值都为1

                  f = 1

              Else

                  f1 = 1

                  f2 = 1

                  For k = 3 To n

                      f = f1 + f2

                      f1 = f2

                      f2 = f

                  Nextk

              End If

              Label2.Caption = "斐波那契数列第" + Str(n) + "项的值为" +  

          End If

      End Sub

    3. (3) 若在文本框Text1.Text输入21,则标签Label2显示的内容为

微信扫码预览、分享更方便