2017年江苏省信息技术学业水平试卷（8）

一、操作题（每题10分，6题共60分）

• 1．打开“考生文件夹\388\工程1．vbp”，完善程序并保存。
  实现功能：用递归法求5!+6!+7!的值。
  Public Function Fac（a As Long） As Integer
  If a=1Then
  Fac=①
  Else
  Fac=a*②（a-1）
  End If
  End Function
  Private Sub Command1_Click （　　）
  Dim S   As Long
  S=Fac（5）+Fac（③）+Fac（7）
  Print“S=“& CStr（S）
  End Sub。
  组卷：0引用：1难度：0.9

  解析

• 2．打开文件“考生文件夹\178\工程1．vbp”，完善Command1_Click事件及fac函数并保存。
  实现功能：用递归法求3!+5!+7!的值，将结果输出到窗体上。
  Public Function Fac（a As Long） As Integer
  If a=1Then
  Fac=①
  Else
  Fac=a*②（a-1）
  End If
  End Function
  Private Sub Command1_Click （　　）
  Dim S   As Long
  S=Fac（3）+Fac（③）+Fac（7）
  Print“S=“& CStr（S）
  End Sub。
  组卷：0引用：1难度：0.5

  解析

一、操作题（每题10分，6题共60分）

• 5．打开文件“考生文件夹\851\工程1．vbp”，完善程序实现如下功能并保存：
  花果山上有一洞，小猴每次采取跳1阶或者跳3阶的办法从山下跳跃上台阶进洞，编程在Text1中输入台阶数，在Label1中显示有多少种不同的跳法。正确的运行结果如下图所示，调试时输入的台阶数最大不要超过35！
  Function s（n As Integer） As Long
  If n=1Or n=2Then
  s=①
  Else
  If n=3Then
  s=2
  Else
  s=s（n-1）+s（n-3）
  End If
  End If
  End Function
  Private Sub Command1_Click （　　）
  Dim n As Integer
  n=Val（②）
  Label1．Caption=Str（③）
  End Sub。
  组卷：0引用：1难度：0.5

  解析

• 6．打开文件“考生文件夹\861\年龄问题。vbp”，完善程序实现如下功能并保存：
  有5个人坐在一起，第5个人说他比第4个人小3岁；第4个人说他比第3个人小3岁；第3个人说他比第2个人小3岁；第2个人又说他比第1个人小3岁；第1个人说他是38岁。编写程序，计算出第5个人的年龄并显示。
  Private Sub cmdDisplay_Click （　　）
  Print“第5人的年龄：“； age（①）
  End Sub
  Function age（n As Integer） As Integer
  If n=1Then
  age=②
  Else
  age=age（n-1）-3
  ③
  End Function。
  组卷：1引用：1难度：0.5

  解析