源代码及答案.docx

1、源代码及答案问题、源代码及答案问题、源代码及答案问题、源代码及答案问题、源代码及答案 程序功能：求s=1+3+5+7+.直到s2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Dim i As Integer, s As Longs = 0i = 1Do Until s 2000 s = s + i i = i + 1 I=I+2LoopPrint sEnd Sub 答案：2025 程序功能：根据整型参数m的值，计算公式t=1-1/(2*2)-1/(3*3)-1/(m*m)的值(m=100)。程序的函数fun()中有一行有

2、错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Print Format(fun(100), 0.#)End Sub Private Function fun(n As Integer) As Integer Single Dim t As Single Dim i As Integer i = 2: t = 1 Do While i 3000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Dim i As Integer, s As Longs = 0i = 1Do Until

3、 s 3000 s = s + i i = i + 1 I=I+2LoopPrint sEnd Sub 答案：3025 程序功能：根据整型参数m的值，计算公式t=1-1/(2*2)-1/(3*3)-1/(m*m)的值(m=123)。程序的函数fun()中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Print Format(fun(123), 0.#)End Sub Private Function fun(n As Integer) As Integer Dim t As Single Dim i As Integer i = 2:

4、 t = 1 Do While i =n t = t - 1 / (i * i) i = i + 1 Loop fun = tEnd Function 答案：0.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 E

5、xit Doi = i + 1LoopIf i k ThenNumber = Number + 1End IfNext xPrint NumberEnd Sub答案：21程序功能：求满足以下条件的（a，b，c）的组数：（1） 1/(a2)+1/(b2)=1/(c2) ；（2）abc ；（3）a+b+c100。程序中有错误，改正错误，使程序能输出正确的结果。Private Sub Command1_Click()Dim c%, b%, a%, s$s = 0For c = 1 To 100For b = 1 To 100For a = 1 To 100If a + b + c 100 Or 1

6、/ (a 2) + 1 / (b 2) = 1 / (c 2) Then s = s + 1Next a, b, cPrint sEnd Sub答案：2改为：If a + b + c b) And (b c) Then s=s+1 程序功能：计算s=2!+4!+8!。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Dim k As Integer, i As IntegerDim s As Long, t As Longs = 0i = 1Do While i = 3 t = 1 k = 1 While k bc ；（3）a+b+c5

7、0。程序中有错误，改正错误，使程序能输出正确的结果。Private Sub Command1_Click()Dim c%, b%, a%, s$s = 0For c = 1 To 50For b = 1 To 50For a = 1 To 50If a + b + c 50 Or 1 / (a 2) + 1 / (b 2) = 1 / (c 2) Then s = s + 1Next a, b, cPrint sEnd Sub答案：1改为：If a + b + c b) And (b c) Then s = s + 1 程序功能：计算s=2!+4!+6!+8!。程序中有两行有错误。改正错误，使

8、它能输出正确的结果。Private Sub Command1_Click()Dim k As Integer, i As IntegerDim s As Long, t As Longs = 0i = 1Do While i = 3 I=4 t = 1 k = 1 While k = 2 I k=2*i t = t * k k = k + 1 Wend s = s + t i = i + 1Wend loopPrint sEnd Sub 答案：41066 程序功能：用公式pi/4=1-1/3+1/5-1/7+求pi(pi为圆周率) 的近似值，直到最后一项的绝对值小于指定的数（参数num）为止。

9、程序的fun()函数中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Print Format(fun(0.0001), #.#)End Sub 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 = piEnd Function 答案：3.1

10、418程序功能：求水仙花的个数（所谓水仙花数是指一个三位数，该数的各位数字立方之和等于该数本身。例如153是一个水仙花数，因为13+53+33=153）程序中有错误。改正错误，使它能输出正确的结果。Option ExplicitPrivate Sub Form_Click()Dim 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

11、 10 If (n = i * i * i + j * j * j + k * k * k) Thennumber = numbre + 1 number=number+1End IfNext nPrint numberEnd Sub答案：4程序功能：求四位奇数中，所有各位数字之积（积不为0）是60的倍数的数之和。程序中有错误，改正错误，使程序能输出正确的结果。Private Sub Command1_Click()Dim x%, a%, b%, c%, d%Dim num1&num1 = 0For x = 1001 To 9999 a = Int(x / 1000) b = Int(x /

12、100) - a * 10c = Int(x / 10) - a * 100 - b * 10d = x - a * 1000 - b * 100 - c * 10If a * b * c * d Mod 60 = 0 Thennum1 = num1 + xEnd IfNext xPrint num1End Sub答案：3456254For x = 1001 To 9999 step 2a = x 1000b = (x - a * 1000) 100c = (x - a * 1000 - b * 100) 10d = x - a * 1000 - b * 100 - c * 10If a *

13、b * c * d Mod 60 = 0 And a * b * c * d 0 Then 程序功能：求200到400间，能被整除但不能被整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Dim count As IntegerDim x As Integercount = 0x = 200While x = 400 If x Mod 3 = 0 Or x Mod 7 0 Then and count = count + 1 End If x = x + 1Loop wendPrint countEnd Sub 答案：5

14、7 程序功能：根据以下公式pi/2=1+1/3+1/3*2/5+1/3*2/5*3/7+1/3*2/5*3/7*4/9+求pi(pi为圆周率)的值。当最后一项的值小于0.0005时停止计算。程序的fun()函数中有一行有错误，改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Print fun(0.0005)End Sub Private Function fun(eps As Single) As Single s = 0: t = 1 :n = 1 While (t eps) s = s + t t = t * n / (2 * n + 1) n

15、= n + 1 Wend fun = s fun=2*sEnd Function 答案：3.140578程序功能：求数列2/1，3/2，5/3，13/8，的前10项之和。程序中有错误。改正错误，使它能输出正确的结果。Private Sub Form_Click()Dim i As Integer, t As Integer, n As IntegerDim a As Integer, b As IntegerDim s As Singlea = 2: b = 1: n = 10For i = 1 To ns = s + a / bt = b t=aa = a + ba = t b=tNext

16、iPrint sEnd Sub答案：16.47991程序功能：所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。求100200之间所有回文数之和。程序中有错误，改正错误，使程序能输出正确的结果。Private Sub Command1_Click()Dim a%, b%, c%, x%, s%s = 0For 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 + xNextPrint sEnd Sub

17、答案：1460 程序功能：求200到500间，能被13整除但不能被17整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Command1_Click()Dim count As IntegerDim x As Integercount = 0x = 200While x = 500 If x Mod 13 = 0 Or x Mod 17 0 Then and count = count + 1 End If x = x + 1Loop wendPrint countEnd Sub 答案：21 程序功能：计算两个数的最小公倍数。程序中有两行有错误，改正错

18、误，使程序能输出正确结果。Private Sub Command1_Click() Print fun(248, 848)End Sub Private Function fun(u, v) t = u Do While t Mod u 0 and t Mod v 0 t = t + u Loop fun = uEnd Function 答案：26288改为：Do Until t Mod u = 0 And t Mod v = 0t=t+uLoopfun=t程序功能：猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共

19、摘了多少桃子。程序中有错误。改正错误，使它能输出正确的结果。Private Sub Form_Click()Dim day As Integer, sum As Integerday = 10; sum = 1Do While day 0sum = sum * 2day = day - 1LoopPrint sumEnd Sub答案：3070改为：sum = (sum+1)* 2程序功能：求10010000之间每位数字之和等于5的整数的个数。程序中有错误，改正错误，使程序能输出正确的结果。Private Sub Command1_Click()Dim k%, i%, i1%, i2%, i3%

20、, i4%k = 0For i = 100 To 5000Select Case iCase 104 To 500i1 = 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 -

21、 i3 * 10If i1 + i2 + i3 + i4 = 5 Then k = k + 1End case End SelectNext iPrint kEnd Sub答案：50改为：Int 全改为Fix 答案有误，应为20 程序功能：求1到400间，同时能被3和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。Private Sub Form_Click()Dim count As IntegerDim x As IntegerFor x = 1 To 400 if mod(x,3)=0 and mod(x,7)=0 then count = count + 1 en

22、d ifNext countprint countEnd Sub 答案：19 If x Mod 3 = 0 And x Mod 7 = 0 ThenNext x 程序功能：计算两个数的最小公倍数。程序中有两行有错误，改正错误，使程序能输出正确结果。Private Sub Command1_Click()Print fun(482, 248)End Sub Private Function fun(u, v)t = uDo While t Mod u 0 and t Mod v 0 t = t + 1Loopfun = uEnd Function 答案：59768Do Until t Mod u

23、 = 0 And t Mod v = 0Fun=t程序功能：一个两位数的正整数，如果将其个位数与十位数字对调所生成的数称为其对调数，如28是82的对调数。现给定一个两位的正整数，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。这样的另一个两位数有多少个。程序中有错误（从键盘输入的两位数为46）改正错误，使它能输出正确的结果。Private Sub Form_Click()Dim x As Integer, y As Integer，number as IntegerDim xf As Integer, yf As IntegerNumber = 0Dox = Val(InputBox(请输入一个2位正整数：)Loop While (x 9) Or