函数过程练习.docVIP

函数过程练习： 给一个数列前三项的值，其他项的计算方法，写函数过程，求前n项的和（或者前n项的和的平均值、第n项的值等） 比如：有一个数列，前三项都是2，从第四项开始，每一项都是其相邻前三项之和的1/2。试编写函数过程，求数列前n项的平均值。要求调用该过程，计算并输出n=20时前n项的平均值（保留4位小数）。 （结果：21.2685） 参考主程序： Function f(ByVal n As Integer) As Double Dim f1, f2, f3, fn, s As Double f1 = 2 f2 = 2 f3 = 2 s = f1 + f2 + f3 For n = 4 To n fn = (f1 + f2 + f3) / 2 s = s + fn f1 = f2 f2 = f3 f3 = fn Next f = s / (n - 1) End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer n = 20 MsgBox(Format(f(n), 0.0000)) End Sub 回文数、最大公约数、最小公倍数 回文数：正反读数据相同的数 关于取数 1.使用MOD函数 2.使用MID函数（推荐使用） 比如：编写判断一个正整数是否为回文数的函数过程。在事件过程中调用该过程，统计并逐行显示（每行10个数）在区间[10000，60000]上的回文数及个数（或者和）。 （结果：个数500） 参考主程序： Function hws(ByVal i As Integer) As Boolean Dim a, b, d, f As Integer a = Val(Mid(i, 1, 1)) b = Val(Mid(i, 2, 1)) d = Val(Mid(i, 4, 1)) f = Val(Mid(i, 5, 1)) If a = f And b = d Then hws = True End If End Function Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click Dim m, i As Integer Dim s As String For i = 10000 To 60000 If hws(i) Then s += i.ToString + Space(2) m += 1 If m Mod 10 = 0 Then s += vbCrLf End If End If Next MsgBox(s + vbCrLf + m.ToString) End Sub 公约数：把能够整除某一个数的数，叫做这个数的约数。几个数所公有的约数叫这几个数的公约数。公约数中最大的一个叫做这几个数的最大公约数。 解题思路：使用辗转相除求最大公约数（较为简单的方法：辗转相除法－－－始??用较大数除以较小数，然后用余数代替较大数。整除时的除数就是最大公约数。） 比如：编写一个求两个数的最大公约数的函数过程。在事件过程中输入两个数5664和144（要求从键盘输入），调用该过程求出它们的最大公约数。 （结果：48） 参考主程序： Function gcd(ByVal x As Integer, ByVal y As Integer) As Integer Dim r As Integer While y 0 r = x Mod y