计算机VB考试题.docVIP

过程函数： 501. 有一个数列，前三项都是1，从第四项开始，每一项都是其相邻前三项之和的1/2。试编写函数过程，求数列前n项的平均值。要求调用该过程，计算并输出n=20时前n项的平均值（保留4位小数）。 结果：10.1278 Function f(ByVal n As Integer) As Double Dim f1, f2, f3, fn, s As Double f1 = 1 f2 = 1 f3 = 1 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 End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer Dim a As Double n = 20 a = Format(f(n), 0.0000) MsgBox(Str(a)) End Sub 502. 有一个数列，其前三项分别为3、5、7，从第四项开始，每一项都是其相邻前三项之和的1/3。试编写函数过程，求数列前n项的和。要求调用该过程，计算并输出n=40时前n项的和（保留4位小数）。 结果：224.1111 Function fs(ByVal n As Integer) As Double Dim f1, f2, f3, fn, s As Double f1 = 3 f2 = 5 f3 = 7 s = f1 + f2 + f3 For n = 4 To n fn = (f1 + f2 + f3) / 3 s = s + fn f1 = f2 f2 = f3 f3 = fn Next fs = s End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer Dim s As Double n = 40 s = Format(fs(n), 0.0000) MsgBox(s) End Sub 503. 有一个数列，前三项都是1，从第四项开始，每一项都是其相邻前三项之和的1/2。试编写函数过程，求数列第n项的值。要求调用该过程，计算并输出n=30时前n项的和。(保留3位小数） 结果：1756.372 Function f(ByVal n As Integer) As Double Dim f1, f2, f3, fn As Double f1 = 1 f2 = 1 f3 = 1 For n = 4 To n fn = (f1 + f2 + f3) / 2 f1 = f2 f2 = f3 f3 = fn Next f = fn End Function Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim n As Integer Dim s As Double For n = 1 To 30 s = s + f(n) Next