vb程序设计复习资料.doc

数列问题 数列问题（例如求1+2+3+4+5+···+100的和）其关键在于根据的数列的规律求出该数列的每个数列项（虽然很多时候并不是要求数列项，但是如果数列的每一项都能求出来，我们可以说该数列的所有问题都能迎刃而解！） 数列中的数据项可能和项数有关，也可能跟前面的数据项有关。我们曾学过：1+2+3+4+5+···+100和 10!(10的阶乘)问题的编程方法，分析过这两个数列的规律，那就是每一数据项等于该项的项数，因此，我们可利用For Next循环语句中的循环变量来表示项数和数据项。在数列1,1,2,3,5,8,。。。。中从第三项开始每一项都是前两项的和，所以，在解决该数列问题时，每求出一个数据项后都要将它保存下来，为求下一个数据项做准备。 1．已知Fibonacci数列：1,1,2,3,5,8,……,它可由下面公式表述： F(1)=1 if n=1 F(2)=1 if n=2 F(n)=F(n-1)+F(n-2) if n2 试求F(n)10000中，n的最小值。 这个数列，我们可以从其通式中找到其规律，F(n)=F(n-1)+F(n-2)，我们可设置三个变量f，x，y（f为F(n)；x为F(n-1)；y为F(n-2)），则有f=x+y。 项数 x y f 1 1 2 1 3 1 1 2 4 1 2 3 5 2 3 5 … … … … n F(n-2) F(n-1) F(n) 从上面这个表中，我们可以分析，f的值和项数的关系不是很大，却为前面两项x和y的和；根据题意我们知道应该逐步求出数列中的每一项，并判断数据项是否大于10000，如果某数据项大于1000，那么他的项数即为问题的解。因为判断的次数是未知的，也就是说我们将用的循环是未知循环次数的，那么应该考虑用”Do … Loop Until” 或”Do … Loop While”语句来实现。 具体实现如下： Private Sub Form_Click() Dim f As Integer, x As Integer, y As Integer 用f保留从3项开始数列项 Dim n As Integer x = 1 x保留数列的第一项 y = 1 y保留数列的第二项 n = 2 n保留数列的项数，从2开始；根据循环体的设计，考虑为什么要从2开始？ Do Until f 10000 n = n + 1 先确认是第几项。 f = x + y 计算第n项的值 x = y 把y的值赋值给x y = f 把f的值赋值给y Loop Print n End Sub 2．试求以上Fibonacci数列F(n)中，当n=20时，所有数据项的和（和的值可能比较大，最好使用双精度型保存）。 Private Sub Form_Click() Dim f As Integer, x As Integer, y As Integer, s As Double ‘ s保存数据项的和 用f保留从第3项开始的数列项 Dim n As Integer x = 1 x保留所求数据项的前面第二个数据项，初始值为数列的第一项 y = 1 y保留所求数据项的前面第一个数据项，初始值为数列的第二项 n = 2 n保留数列的项数，从2开始；根据循环体的设计，考虑为什么要从2开始？ S=2 ‘s保存数据项的和，它的初始值为前两个数据项的和 Do Until n 19（或 While n=19） n = n + 1 先确认是第几项。 f = x + y 计算第n项的值 s = s + f ‘将第n项的值累加到S ‘以下两行语句为求下一个数据项做准备 x = y 把y的值赋值给x y = f 把f的值赋值给y Loop Print s End Sub 3．求1/(1*2)+1/(2*3)+1/(3*4)+....+1/(N*(N+1))的值（N=20）, 要求：按四舍五入的方式精确到小数点后第二位。 （答案：0.95） 此题的规律如下： 项数 数值 1 1/（1*2） 2 1/（2*3） 3 1/（3*4） … … n 1/（n*（n+1）） 由上面我们应该可以看出，数据项和项数有关，通过项数可求出数据项，已知加法一共要做20次，所以应