VB累加.docVIP

VB累加 三、求累加和编成题 第一部分：求整数区间范围内满足条件的整数的和 1、编写程序，计算出3000到7000之间能被7整除但不能被17整除的所有整数的平方根的和。 要求：运行程序，将结果四舍五入保留4位小数，并采用适当的方式输出。 答案： Private Sub Form_Click() Sum# = 0 For i% = 3000 To 7000 If I Mod 7 = 0 And I Mod 17 0 Then Sum = Sum + Sqr(i) Next i Sum = Round(Sum, 4) Print sum End sub 2、编写程序，计算出3000到9990之间所有能同时被11和17整除的整数的平方根的和。 要求：运行程序，将结果四舍五入保留4位小数，并采用适当的方式输出。 答案： Private Sub Form_Click() Sum# = 0 For i% = 3000 To 9990 If i Mod 11 = 0 And i Mod 17 =0 Then Sum = Sum + Sqr(i) Next i Sum = Round(Sum, 4) Print sum End sub 3、编写程序，计算出100到500之间所有满足下列条件的整数和：整数能被其每位数字的和整除。 要求：在运行程序时，采用适当的方式输出计算结果。 答案： Private Sub Form_Click() Sum=0 For i% = 100 To 500 a%=i\100 b%=(i-a*100)\10 c%=(i-a*100) mod 10 If i mod (a+b+c) =0 then sum=i+sum Next i Print sum End sub 4、编写程序，计算出2000到9990之间所有能同时被11和17整除的整数之和。 要求：在运行程序时，采用适当的方式输出计算结果。 答案： Private Sub Form_Click() Sum = 0 For i% = 2000 To 9990 If i Mod 11 = 0 And i Mod 17 = 0 Then Sum = Sum + i Next i Print Sum End Sub 第二部分：求指定项数的数列的和 1、编写程序，计算并输出下面数列前n项(设n=50)的和。 1×2,-2×3,3×4,-4×5,……,(-1)^(n-1)×n×(n+1),…… （其中，^ 表示幂运算） 要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 Private Sub Form_Click() n% = InputBox(请输入求和的数列的项数：) Sum= 0 P = 0 For i% = 1 To n p = (-1) ^ (i - 1) * i * (i + 1) Sum = Sum + p Next i Print sum End Sub 2、编写程序，计算并输出下面数列前n（设n=75）项中所有偶数项的和。 1×2×3,3×4×5,5×6×7,……,(2n-1)×2n×(2n+1),…… 要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果 答案： Private Sub Form_Click() n% = InputBox(请输入求和的数列的项数：) Sum = 0 P = 0 For i = 2 To n step 2 p = （2*i-1）*(2*i)*(2*i+1) Sum = Sum + p Next i Print sum End Sub 3、编写程序,计算并输出下面数列前65项的和。 -1×2×3,2×3×4,-3×4×5,……,(-1)^n×(n×(n+1)×(n+2)),…… （其中，(-1)^n 表示-1的n次方） 要求：在运行程序时，使用文本框或InputBox函数输入n值，并用适当的方法输出运算结果。 答案： Private Sub Form_Click() n% = InputBox(请输入求和的数列的项数：) Sum = 0 P = 0 For i = 1 To n p =(-1)^i*(i*(i+1)*(i+2)) Sum = Sum + p Next i Print sum End Sub 4、编写程序，计算并输出下面数列前n（设n=69）项中所有奇数项的和。 1×2×3,2×3×4,3×4×5,……,n×(n+1)×(n+2),…… 要求：