18数组、函数练习.doc
文本预览下载声明
数组、函数练习递归编写的难点和重点主要包括以下几个方面：递归方程式、递归结束条件、函数参数。数组通常和循环结合起来命题。难点和重点可参考以前的练习。
?
1、有5人，问第5人年龄，说比前面第4人小3岁。问第4、3、2人，都说比前面人小3岁，问第1人，说他的年龄是38岁。问第5人的年龄多大？
Public Function age(n As Integer) As Long
?If n = 1 Then
??? age = 38??
?Else
??? age = age(n - 1)-3
?End If
End Function
Private Sub form_click()
Print 第5人的年龄：; age(5)
End Sub
?
2、编写递归函数求10！的值。
Public Function s(n As Integer) As Long
?If n = 1 Then
??? s = 1
?Else
??? s = n * s(n - 1)
?End If
End Function
Private Sub form_click()
Print s(10)=; s(10)
End Sub
?
（1）编写递归函数求1+2+3+……+100
Private Function s(n As Integer) As Integer
?If n = 1 Then
??? s = 1
??? Exit Function
?End If
?s = n + s(n - 1)
End Function
Private Sub form_Click()
?Print s(100)=; s(100)
End Sub
?
?
（2）求1！+2！+3！+……+10！
Public Function jc(n As Integer) As Long
??? If n = 1 Then
??????? jc = 1
??? Else
??????? jc = n * jc(n - 1)
??? End If
End Function
Private Sub Command1_Click()
?? Dim i As Integer
?? Dim s As Long
????? s = 0
????? For i = 1 To 10
????????? s = s + jc(i)
????? Next i
?? Print s
End Sub
?
3、随机生成10个（10）自然数并打印输出，计算这10个数的平均值并打印输出。
dim a(1 to 10) as integer
dim i,s as integer
cls????????? ’清除屏幕命令
s=0
Randomize
for i=1 to 10 step 1
?a(i)=int(rnd*10)
?print a(i)
next i
for i=1 to 10 step 1
?s=s+a(i)
next i
print “这10个自然数的平均值=”; s/10
?
4、随机生成10个（10）自然数并输出，求这10个数中最大的数并打印输出。
dim a(1 to 10) as integer
dim i, max as integer
cls???????????????? ’清除屏幕命令
randomize??? ’随机数生成器
for i = 1 to 10 step 1
?a(i) = int(rnd * 10)
??print a(i)
next i
max = a(1)
for i = 2 to 10 step 1
?if a(i) max then
???? max = a(i)
?end if
next i
print “这10个自然数中的最大值=”;max
（1）青年歌手大奖赛有10名选手参加，并请了12名评委，为了减少极端分数的影响，通常去掉一个最高分和一个最低分后再求平均分。请编程，用随机函数生成12个[80，100]的自然数作为评委打的分数，根据运算规则，输出该歌手的成绩。
dim a(1 to 12) as integer
dim i,s, max, min as integer
cls
randomize
for i = 1 to 12 step 1
?a(i) = int(rnd * 21) + 80
?print a(i)
next i
max = a(1)
min = a(1)
s = a(1)
for i = 2 to 12
?if a(i) max then
???? max = a(i)
?end if
?if a(i) min then
???? min = a(i)
?end if
?s = s + a(i)
next i
print 该选
显示全部