湖南省计算机二级Visual Basic考试.docVIP

Visual Basic编程题 分类稿 题型一：根据文字提示，找出数列的组成规律，即如何由已知项求出下一项，这样，经过若干次更迭，可求出数列中任何项，也可以求出前若干项的和。 已知数列前3项为0、0、1，以后每项为前3项的和，求此数列的第36项。（334745777） 方法一： Private Sub Form_Click() Dim a, b, c, d, n% a = 0: b = 0: c = 1 For n = 1 To 33 Step 1 d = a+b+c a = b b = c c =d Next n Print d End Sub 方法二： Private Sub Form_Click() Dim d(36) As Double, n As Integer d(1) = 0 d(2) = 0 d(3) = 1 For n = 4 To 36 d(n) = d(n - 1) + d(n - 2) + d(n - 3) Next n Print d(36) End Sub计算y=1+2/3+3/5+4/7+…+n/(2*n-1) (n=50), 要求：按四舍五入的方式精确到小数点后第二位。 (26.47) Private Sub Form_Click() Dim s As Single, n as integer s = 0 For n = 1 To 50 s = s + n / (2 * n - 1) Next n Print Round(s, 2) End Sub 求数列2/1,3/2,5/3,8/5,……，的前10项的和。（16.47991） 方法一： private sub form_click() dim I%,a%,b%,t%,s! a=2:b=1 for I=1 to 10 step 1 s=s+a/b t=a a=a+b b=t next I print s end sub 方法二： Private Sub Form_Click() Dim d(10) As Single, n As Integer, s As Single d(1) = 2 / 1 s = 2 / 1 For n = 2 To 10 d(n) = 1 + 1 / d(n - 1) s = s + d(n) Next n Print s End Sub 编程求fibonacci数列：1，1，2，3，5，8……的前30个数方法一： Private Sub Form_Click() Dim a, b, c, s a = 1:b = 1:s = 2 For i = 3 To 30 c = a + b s = s + c a = b b = c next i print s End Sub 方法二： Private Sub Form_Click() Dim d(30) As Double, n As Integer, s As Double d(1) = 1 d(2) = 1 s = 2 For n = 3 To 30 d(n)=d(n-1)+d(n-2) Next i Print s End sub Next n Print s End sub 编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26、之积是880。 （4720） Private Sub Form_Click() Dim a%, b% For a = 0 To 6 For b = 0 To 3 If a + (a + b) + (a + 2 * b) + (a + 3 * b) = 26 And a * (a + b) * (a + 2 * b) * (a + 3 * b) = 880 Then Print a ^ 3 + (a + b) ^ 3 + (a + 2 * b) ^ 3 + (a + 3 * b) ^ 3 + (a + 4 * b) ^ 3 End If Next b Next a End Sub 猴子吃桃问题：猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。 (1534) 方法一： Private Sub Form_Click() Dim day As Integer, sum As Integer day = 10: sum = 1 Do While day 1 sum = (sum + 1) * 2 day = day - 1 Loop Print sum End Sub 方法二： Private Sub For