18数组、函数练习.docVIP

数组、函数练习递归编写的难点和重点主要包括以下几个方面：递归方程式、递归结束条件、函数参数。数组通常和循环结合起来命题。难点和重点可参考以前的练习。 ? 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 该选