VB练习题a及答案..docVIP

A1. 编写程序，计算并输出下面数列前n项的和 (设n=15,结果取4位小数)。 数列为： 2/1,3/2,5/3,8/5,13/8,21/13,…… （结果：24.5701） main: Dim a, b, t, I As Integer Dim sum, q As Single a = 1 : b = 2 : sum = 0 For I = 1 To 15 q = b / a sum = sum + q t = a a = b b = b + t Next I sum = Format(sum, #.0000) MsgBox(Str(sum)) A2. 编写程序，计算并输出所有六位正整数中同时能被3和7整除的数的个数及它们的平方根的和。 （结果：个数：42858 平方根和4533428） Main: Dim n, I As Integer Dim s As Double n = 0 : s = 0 For I = 100000 To 999999