2017年江蘇省信息技術(shù)學(xué)業(yè)水平試卷（8）
發(fā)布：2024/4/20 14:35:0
一、操作題（每題10分，6題共60分）
-
1．打開“考生文件夾\388\工程1．vbp”，完善程序并保存。
實(shí)現(xiàn)功能：用遞歸法求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 （ ?。?br />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函數(shù)并保存。
實(shí)現(xiàn)功能：用遞歸法求3!+5!+7!的值，將結(jié)果輸出到窗體上。
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”，完善程序?qū)崿F(xiàn)如下功能并保存：
花果山上有一洞，小猴每次采取跳1階或者跳3階的辦法從山下跳躍上臺階進(jìn)洞，編程在Text1中輸入臺階數(shù)，在Label1中顯示有多少種不同的跳法。正確的運(yùn)行結(jié)果如下圖所示，調(diào)試時輸入的臺階數(shù)最大不要超過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 （ ?。?br />Dim n As Integer
n=Val（②）
Label1．Caption=Str（③）
End Sub。組卷：0引用：1難度：0.5 -
6．打開文件“考生文件夾\861\年齡問題。vbp”，完善程序?qū)崿F(xiàn)如下功能并保存：
有5個人坐在一起，第5個人說他比第4個人小3歲；第4個人說他比第3個人小3歲；第3個人說他比第2個人小3歲；第2個人又說他比第1個人小3歲；第1個人說他是38歲。編寫程序，計算出第5個人的年齡并顯示。
Private Sub cmdDisplay_Click （ ?。?br />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