源代码及答案Word格式文档下载.docx

1、 i = i + 1 Loop fun = tEnd Function0.365016程序功能：已知24有8个正整数因子（即:1,2,3,4,6,8,12,24），而24正好被其因子个数8整除。求100,300之间能被其因子数目整除的数中最大的数。Dim N As IntegerDim s As IntegerDim i As IntegerFor N = 300 To 100 step -1For i = 1 To NIf N Mod i = 0 Thens = s + 1End IfNext iIf s Mod N = 0 Then N Mod s=0Print NExit ForNext

2、 N296求四位偶数中，各位数字之和是30的倍数的数之和。程序中有错误，改正错误，使程序能输出正确结果。Dim x%, a%, b%, c%, d%Dim num1&num1 = 0For x = 1000 To 9999 a = Int（x / 1000）b = Int（x / 100） - a * 10c = Int（x / 10） - a * 100 - b * 10d = x - a * 1000 - b * 100 - c * 10If a + b + c + d Mod 30 = 0 Thennum1 = num1 + xNext xPrint num1288840修改如下：For

3、 x = 1000 To 9999 Step 2a = Fix（x / 1000）b = Fix（x - a * 1000） / 100）c = Fix（x - a * 1000 - b * 100） / 10）If （a + b + c + d） Mod 30 = 0 Then3000为止。 3000 S3000 i = i + 1 I=I+23025根据整型参数m的值，计算公式t=1-1/（2*2）-1/（3*3）-1/（m*m）的值（m=123）。 Print Format（fun（123）, Private Function fun（n As Integer） As Integer 0

4、.363163改为：Private Function fun（n As Integer） As Single求100200之间的素数个数，程序中有错误。Private Sub Form_Click（）Number = 0For x = 101 To 199 Step 2 i = 2k = Int（x / 2）Do While i = kIf x Mod i = 0 Then Exit For Exit Doi = i + 1If i k ThenNumber = Number + 1Print Number21求满足以下条件的（a，b，c）的组数：（1） 1/（a2）+1/（b2）=1/（c2

5、） ；（2）abc ；（3）a+b+c100。程序中有错误，改正错误，使程序能输出正确的结果。Dim c%, b%, a%, s$For c = 1 To 100For b = 1 To 100For a = 1 To 100If a + b + c b） And （b c） Then s=s+1计算s=2!+4!+8!。Dim k As Integer, i As IntegerDim s As Long, t As Long= 3 k = 1 While k c） Then s = s + 1+6!= 3 I=4= 2 I k=2*i41066用公式pi/4=1-1/3+1/5-1/7+求

6、pi（pi为圆周率） 的近似值，直到最后一项的绝对值小于指定的数（参数num）为止。程序的fun（）函数中有一行有错误。 Print Format（fun（0.0001）, #.#Private Function fun（num As Single） As Single pi = 1: t = 1: s = 1: n = 1 Do s = -s n = n + 2 t = s * 1 / n pi = pi + t Loop Until t num Loop Until Abs（t） num pi = pi * 4 fun = pi3.1418求水仙花的个数（所谓水仙花数是指一个三位数，该数的

7、各位数字立方之和等于该数本身。例如153是一个水仙花数，因为13+53+33=153）程序中有错误。Option ExplicitDim number As IntegerDim n As Integer, i As Integer, j As Integer, k As IntegerFor n = 100 To 999i = n / 100 I=n100j = Int（n / 10） - i * 10 j=（n-I*100）10k = n Mod 10 If （n = i * i * i + j * j * j + k * k * k） Thennumber = numbre + 1 nu

8、mber=number+1Next nPrint number4求四位奇数中，所有各位数字之积（积不为0）是60的倍数的数之和。For x = 1001 To 9999 a = Int（x / 1000） If a * b * c * d Mod 60 = 0 Then3456254For x = 1001 To 9999 step 2a = x 1000b = （x - a * 1000） 100c = （x - a * 1000 - b * 100） 10If a * b * c * d Mod 60 = 0 And a * b * c * d 0 Then求200到400间，能被整除但不

9、能被整除的数的个数。Dim count As IntegerDim x As Integercount = 0x = 200While x = 400 If x Mod 3 = 0 Or x Mod 7 eps） t = t * n / （2 * n + 1） n = n + 1 fun = s fun=2*s3.140578求数列2/1，3/2，5/3，13/8，的前10项之和。Dim i As Integer, t As Integer, n As IntegerDim a As Integer, b As IntegerDim s As Singlea = 2: b = 1: n = 1

10、0s = s + a / bt = b t=aa = a + ba = t b=t16.47991所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。求100200之间所有回文数之和。Dim a%, b%, c%, x%, s%For x = 100 To 200a =x / 100 a = x 100b = x / 10- a * 10 b=（z-a*100）10c = x - a * 100 - b * 10If a = c Then s = s + xNext1460求200到500间，能被13整除但不能被17整除的数的个数。= 500 If x Mod 13 =

11、 0 Or x Mod 17 0 Then and计算两个数的最小公倍数。程序中有两行有错误，改正错误，使程序能输出正确结果。 Print fun（248, 848）Private Function fun（u, v） t = u Do While t Mod u 0 and t Mod v sum = sum * 2day = day - 13070sum = （sum+1）* 2求10010000之间每位数字之和等于5的整数的个数。Dim k%, i%, i1%, i2%, i3%, i4%k = 0For i = 100 To 5000Select Case iCase 104 To 5

12、00i1 = Int（i / 100） i2 = Int（i - i1 * 100） / 10） i3 = i - i1 * 100 - i2 * 10If i1 + i2 + i3 = 5 Then k = k + 1Case 1004 To 5000i1 = Int（i / 1000）i2 = Int（i - i1 * 1000） / 10）i3 = Int（i - i1 * 1000 - i2 * 100） / 10）i4 = i - i1 * 1000 - i2 * 100 - i3 * 10If i1 + i2 + i3 + i4 = 5 Then k = k + 1End case

13、 End SelectPrint k50Int 全改为Fix 答案有误，应为20求1到400间，同时能被3和7整除的数的个数。For x = 1 To 400 if mod（x,3）=0 and mod（x,7）=0 then end ifNext countprint count19 If x Mod 3 = 0 And x Mod 7 = 0 ThenPrint fun（482, 248）t = uDo While t Mod u t = t + 1fun = u59768Fun=t一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。这样的另一个两位数有多少个。程序中有错误（从键盘输入的两位数为46）改正错误，使它能输出正确的结果。Dim x As Integer, y As Integer，number as IntegerDim xf As Integer, yf As IntegerDox = Val（InputBox（请输入一个2位正整数：Loop While （x 9） Or