湖南省计算机二级题库2程序改错

1、  【1】程序功能：已知24有8个正整数因子(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求100,300之间能被其因子数目整除的数中最大的数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim N As Integer Dim s As Integer Dim i As Integer For N = 300 To 100 s = 0 For i = 1 To N If N Mod i = 0 Then s = s + 1 End If Next i If s Mod N =

2、0 Then Print N Exit For End If Next N End Sub  【296 】   【2】程序功能：求这样的一个三位数，其个位数不大于2。若将个位数移动到百位之前（如：321移成132），新三位数大于原三位数的两倍。程序中有两行错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() For i = 0 To 9 For j = 0 To 9 For k = 0 To 9 n = 100 * i + 10 * j + k m = 100 * k + 10 * i + j If m &g

3、t;= 2 * n Then Print n Next k Next j Next i End Sub  【102】   【3】程序功能：有一堆桃子（个数不超过1000），如果分成4个一组余2个；7个一组余3个； 9个一组余5个。求这堆桃子的个数有几种可能。程序中有错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() For x = 1 To 1000 If x Mod 4 = 2 Or x Mod 7 = 3 Or x Mod 9 = 5 Then i = i + 1 End If Next x Print

4、 i End Sub  【4】   【4】程序功能：求个位数是6，且能被3整除的所有四位数之和。程序中有错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() Dim i% Dim s& s = 0 For i = 1000 To 9999 If i Mod 3 = 0 Or i Mod 1000 = 6 Then s = s + i End If Next i Print s End Sub  【1653300 】   【5】程序功能：求四位奇数中，各位数字之积

5、（积不为0）是60的倍数的数之和。程序中有一行错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() num1 = 0 For x = 1001 To 9999 Step 2 a = Int(x / 1000) 千位 b = Int(x / 100) - a * 10 百位 c = Int(x / 10) - a * 100 - b * 10 十位 d = x - a * 1000 - b * 100 - c * 10 个位 If a * b * c * d Mod 60 = 0 Then num1 = num1 + x End If Next x

6、Print num1 End Sub  【3456254】   【6】程序功能：求满足以下条件的（a，b，c）的组数：（1）1/(a2)+1/(b2)=1/(c2) ；（2）a>b>c ；（3）a+b+c<80。程序中有错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() s = 0 For c = 1 To 80 For b = 1 To 80 For a = 1 To 80 If a + b + c < 80 Or 1 / (a 2) + 1 / (b 2) = 1 / (c 2)

7、 Then s = s + 1 Next a, b, c Print s End Sub  【1】   【7】程序功能：求满足以下条件的（a，b，c）的组数：（1） 1/(a2)+1/(b2)=1/(c2) ；（2）a>b>c ；（3）a+b+c<100。程序有错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() s = 0 For c = 1 To 100 For b = 1 To 100 For a = 1 To 100 If a+b+c<100 Or 1/(a2)+1/(b2)

8、= 1/(c2) Then s = s + 1 Next a Next b Next c Print s End Sub  【2】   【8】程序功能：求四位偶数中，各位数字之和是30的倍数的数之和。程序中有错误，改正错误，使程序能输出正确结果。 Private Sub Command1_Click() s2 = 0 For x = 1001 To 9999 Step 2 s1 = 0 a = Int(x / 1000) b = Int(x / 100) - a * 10 c = Int(x / 10) - a * 100 - b * 10 d = x

9、- a * 1000 - b * 100 - c * 10 s1 = a + b + c + d If s1 Mod 30 = 0 Then s1 = s1 + x End If Next x Print s2 End Sub 【288840】   【9】程序功能：求四位偶数中，所有各位数字之和是25的倍数的数之和。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() s2 = 0 For x = 1001 To 9999 Step 2 s1 = 0 a = Int(x / 1000) b = I

10、nt(x / 100) - a * 10 c = Int(x / 10) - a * 100 - b * 10 d = x - a * 1000 - b * 100 - c * 10 s1 = a + b + c + d If mod(s1,25)=0 Then s2 = s2 + x End If Next x Print s2 End Sub  【1112360 】   【10】程序功能：求字符串"87IM&2345kjwdssdcf"中数，字母字符的ASCII码之和。程序中有一行错误，改正错误，使程序能输出正确的结果。

11、Private Sub Command1_Click() alpha = 0 st = "87IM&2345kjwdssdcf" For i = 1 To st ch = Mid$(st, i, 1) Select Case ch Case "a" To "z" alpha = alpha + Asc(ch) Case "A" To "Z" alpha = alpha + Asc(ch) End Select Next i Print alpha End Sub  【1113】

12、   【11】程序功能：求字符串“This is my Basic”所有字符的ASCII码之和。程序中有一行有错误。改正错误，使程序能输出正确结果。 Private Sub Command1_Click() sum = 0 s = "This is my Basic" For i = 1 To s sum = sum + asc(Mid$(s, i, 1) Next i Print sum End Sub  【1436 】   【12】程序功能：将50元兑换成5元、2元和1元的方法的种数（每种面额至少2张

13、）。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() For x = 2 To 10 For y = 2 To 25 For z = 2 To 50 If x+ y + z = 50 Then n = n + 1 Exit for End If Next z Next y Next x Print n End Sub  【7】   【13】程序功能：求100，999之间满足以下条件的数的个数：其个位数字与十位数字之和除以10所得的余数等于百位数字。程序中有两行有错误。改正错误，使程序能输出正确

14、的结果。 Private Sub Command1_Click() For x = 100 To 999 a = x / 100 b = x / 10 - a * 10 c = x - a * 100 - b * 10 If (b + c) Mod 10 = a Then s = s + 1 End If Next x Print s End Sub  【90】   【14】程序功能：将50元兑换成5元、2元和1元的方法的种数（每种面额至少2张）。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click(

15、) For x = 2 To 10 For y = 2 To 25 For z = 2 To 50 If x+ y + z = 50 Then n = n + 1 Exit for End If Next z Next y Next x Print n End Sub  【7】   【15】程序功能：求1900年2003年所有闰年年号之和。程序中有一行有错误。改正错误，使程序能输出正确的结果。（年号能被400整除的是闰年，或者被4整除但不能被100整除的是闰年） Private Sub Command1_Click() For Y = 1900 To 2

16、003 If (Y Mod 400 = 0) and (Y Mod 4 = 0 or Y Mod 100 <> 0) Then s = s + Y End If Next Y Print s End Sub  【48800 】   【16】程序功能：计算两个数的最大公约数。程序中有一行有错误，改正错误，使程序能输出正确结果。 Private Sub Command1_Click() Print fun(1248, 25736) End Sub Private Function fun(u, v) As Integer If u < v

17、Then temp = u: u = v: v = temp End If While (v <> 0) t = u Mod v u = v v = t Wend fun = v End Function 【8】   【17】程序功能：百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。程序中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() s = 0 cock = 1 Do While cock <= 1

18、00 / 5 hen = 1 Do While hen <= 100 / 3 - cock chick = 100 - cock - hen If cock + hen + chick = 100 Then s = s + 1 End If hen = hen + 1 Loop cock = cock + 1 Loop Print s End Sub  【3】   【18】程序功能：计算两个数的最小公倍数。程序中有两行有错误，改正错误，使程序能输出正确结果。 Private Sub Command1_Click() Print fun(1248,

19、888) End Sub Private Function fun(u, v) If u < v Then temp = u: u = v: v = temp End If t = u Do While t Mod u <> 0 and t Mod v <> 0 t = t + u Loop fun = u End Function 【153】   【19】程序功能：求当N=20时，1/(1*2)+1/(2*3)+1/(3*4)+.+1/(N*(N+1)的值。要求：按四舍五入的方式精确到小数点后第二位。程序中有一行有错误。改

20、正错误，使它能输出正确的结果。 Private Sub Command1_Click() s = 0 n = 1 Do While n <= 20 s = s + 1 / n * (n + 1) n = n + 1 Loop Print format(s,”#0.#”) End Sub  【0.95】   【20】程序功能：计算两个数的最小公倍数。程序中有两行有错误，改正错误，使程序能输出正确结果。 Private Sub Command1_Click() Print fun(248, 848) End Sub Private Function f

21、un(u, v) t = u Do While t Mod u <> 0 and t Mod v <> 0 t = t + u Loop fun = u End Function  【26288】   【21】程序功能：已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。问100,300之间有多少个这样的数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim n1 As Integer, n2 As Integer D

22、im x As Integer Dim i As Integer n2 = 0 For x = 100 To 300 n2 = 0 For i = 1 To 100 If x Mod i = 0 Then n1 = n1 + 1 End If Next i If x Mod n1 = 0 Then n2 = n2 + 1 End If Next x Print n2 End Sub  【19】   【22】程序功能：求444,666中最大的素数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click()

23、 Dim x As Integer Dim i As Integer For x = 666 To 444 k = Int(Sqr(x) For i = 2 To k If x Mod i = 0 Then Exit Do End If Next i If i > k Then Print x Exit For End If Next x End Sub  【661】   【23】程序功能：根据整型参数m，计算1-123的平方根的倒数之和。程序的函数fun()中有一行有错误，改正错误，使它能输出正确的结果。 Private Sub Command1

24、_Click() Print Format(fun(123), "#.#") End Sub Private Function fun(m As Integer) As single y = 0 For i = 1 To m t = 1 / Sqr(i) y = y + t Next i fun =t End Function  【20.76577】   【24】程序功能：求351,432之间既不能被3整除,也不能被8整除的正整数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_C

25、lick() Dim c As Integer Dim x As Integer For x = 351 To 432 If x Mod 3 <> 0 or x Mod 8 <> 0 Then c = c + 1 End If Next c Print c End Sub  【47】   【25】程序功能：求3000以内能被17或23整除的正整数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim x As Integer Dim count As Inte

26、ger For x = 1 To 3000 step -1 If x Mod 17 = 0 and x Mod 23 = 0 Then count = count + 1 End If Next x Print count End Sub  【299】   【26】程序功能：求四位奇数中，所有各位数字之和是36的倍数的数之和。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() s2 = 0 For x = 1000 To 9999 Step 2 s1 = 0 a = Int(x / 1000)

27、b = Int(x / 100) - a * 10 c = Int(x / 10) - a * 100 - b * 10 d = x - a * 1000 - b * 100 - c * 10 s1 = a + b + c + d If mod(s1,36)=0 Then s2 = s2 + x End If Next x Print s2 End Sub  【9999】   【27】程序功能：统计11000中能被3整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim co

28、unt As Integer Dim i As Integer i = 3 count = 0 Do While I>= 1000 If x mod 3 = 0 Then count = count + 1 End If i = i + 1 Loop Print count End Sub  【333 】   【28】程序功能：求所有符合算式ij*ji=1300的最大数ij。其中i、j是19之间的一位整数。程序中有三行错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() For i = 9 To 1 Fo

29、r j = 9 To 1 If ij*ji = 1300 Then Print 10 * i + j Exit sub End If Next j Next i End Sub  【52】   【29】程序功能：求所有符合算式ij*ji=1300的最小数ij。其中i、j是19之间的一位整数。 程序中有三行错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() For i = 1 To 9 For j = 1 To 9 If ij*ji = 1300 Then Print 10 * i + j Exit sub E

30、nd If Next i Next j End Sub  【25】   【30】程序功能：求共有几组i、j、k符合算式ijk+kji=1534，其中i、j、k是09之间的一位整数。程序中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() n = 0 For i = 0 To 9 For j = 0 To 9 For k = 0 To 9 If ijk+kji = 1534 Then n = n + 1 End If Next k Next j Next i Print n End Sub  

31、【5】   【31】程序功能：求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是09之间的一位整数。程序中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() n = 0 For i = 0 To 9 For j = 0 To 9 For k = 0 To 9 If ijk+kji = 1333 Then n = n + 1 End If Next k Next j Next i Print n End Sub  【6】   【32】程序功能：求351,

32、432之间既不能被3整除,也不能被8整除的正整数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim c As Integer Dim x As Integer For x = 351 To 432 If x Mod 3 <> 0 or x Mod 8 <> 0 Then c = c + 1 End If Next c Print c End Sub  【47】   【33】程序功能：求199的平方根的和并输出结果。（保留小数点两位），程序中有两行有错误。改

33、正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim x As Integer Dim sum As Integer x = 1 Do While x <= 99 sum = sum + Sqrt(x) x = x + 1 Loop Print Round(sum, 2) End Sub  【661.46】   【34】程序功能：求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是09之间的一位整数。程序中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Comma

34、nd1_Click() n = 0 For i = 0 To 9 For j = 0 To 9 For k = 0 To 9 If ijk+kji = 1333 Then n = n + 1 End If Next k Next j Next i Print n End Sub  【6 】   【35】程序功能：求500以内最大的10个能被13或17整除的自然数之和。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() s = 0: n = 0 x = 500 Do While x >= 1

35、 If x Mod 13 = 0 and x Mod 17 = 0 Then s = s + x n = n + 1 End If If n = 10 Then Exit Do x = x +1 Loop Print s End Sub  【4622】   【36】程序功能：百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。程序中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() s = 0 cock = 1 Do Whil

36、e cock <= 100 / 5 hen = 1 Do While hen <= 100 / 3 - cock chick = 100 - cock - hen If cock + hen + chick = 100 Then s = s + 1 End If hen = hen + 1 Loop cock = cock + 1 Loop Print s End Sub  【3】   【37】程序功能：求最小的水仙花的个数（所谓水仙花数是指一个三位十进制数，该数的各位数字立方之和等于该数本身。例如371是一个水仙花数，因为33+73+13=

37、371）。程序中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Form_Click() For n = 100 To 999 i = n 100 百位 j = Int(n / 10) - i * 10 十位 k = n Mod 10 个位 If (n = i * i * i + j * j * j + k * k * k) Then print n exit for End If Next n End Sub  【407 】   【38】程序功能：求1到5000之间的能被5整除的前若干个偶数之和，直到和大于500为止。程序中有两

38、行错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() n = 0 s = 0 For x = 2 To 5000 If mod(x,5) = 0 Then s = s + x End If If s > 500 Then Exit For Next x Print s End Sub  【550 】   【39】程序功能：求3000以内能被17或23整除的正整数的个数。程序中有两行错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim x As Inte

39、ger Dim n As Integer n = 0 x = 1 Do While x <= 3000 If x Mod 17 = 0 And x Mod 23 = 0 Then n = n + 1 End If x = x + 1 wend Print n End Sub  【299】   【40】程序功能：求10,1000之间满足除以7余5、除以5余3、除以3余1的所有整数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim x As Integer Dim n As I

40、nteger n = 0 For x = 10 To 1000 If x Mod 7 = 5 Or x Mod 5 = 3 Or x Mod 3 = 1 Then n = n + 1 End If Loop Print n End Sub  【9】   【41】程序功能：求最小的水仙花的个数（所谓水仙花数是指一个三位十进制数，该数的各位数字立方之和等于该数本身。例如371是一个水仙花数，因为33+73+13=371）。程序中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Form_Click() For n = 100 To 99

41、9 i = n / 100 百位 j = Int(n / 10) - i * 10 十位 k = n Mod 10 个位 If (n = i * i * i + j * j * j + k * k * k) Then print n exit for End If Next n End Sub  【153】   【42】程序功能：回文数是指正读和反读都一样的正整数。例如3773是回文数。求1000，9999之间的奇数回文数的个数。程序中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() n = 0 F

42、or x = 1000 To 9999 a = Int(x / 1000) b = Int(x / 100) - a * 10 c = Int(x / 10) - a * 100 - b * 10 d = x - a * 1000 - b * 100 - c * 10 If a = b Or d = c And x Mod 2 <> 0 Then n = n + 1 End If Next x Print n End Sub  【50】   【43】程序功能：求当N=20时，1/(1*2)+1/(2*3)+1/(3*4)+.+1/(N*(N+

43、1)的值。要求：按四舍五入的方式精确到小数点后第二位。程序中有一行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() s = 0 n = 1 Do While n <= 20 s = s + 1 / n * (n + 1) n = n + 1 Loop Print format(s,”#0.#”) End Sub  【0.95】   【44】程序功能：计算y=1+2/3+3/5+4/7+n/(2*n-1)(n=50), 要求：按四舍五入的方式精确到小数点后第二位。程序中有两行有错误。改正错误，使它能输

44、出正确的结果。 Private Sub Command1_Click() Dim s As Single Dim n As Integer s = 0 For n = 1 To 50 s = s + n / 2 * n 1 Next n Print round(s) End Sub  【26.47 】   【45】程序功能：求100-200之间的所有素数个数，程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Number = 0 For x = 101 To 199 Step 2 i = 2

45、k = Int(x / 2) Do While i <= k If x Mod i = 0 Then Exit For i = i + 1 Loop If i < k Then Number = Number + 1 End If Next x Print Number End Sub  【21】   【46】程序功能：解百马百瓦古题。大、小马和马驹共100匹，共驮100片瓦。大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合? 程序中有三行有错误。改正错误，使它能输出正确的结果。 Private Sub Form_Cl

46、ick() Dim x As Integer, y As Integer, z As Integer Dim s As Integer s = 0 For x = 1 To 33 For y = 1 To 50 z = 100 - x - y If 3 * x + 2 * y + z / 2 <> 100 Then s = s + 1 End If Next x Next y Print s End Sub  【6】   【47】程序功能：求3333，6666之间所有能被5和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果

47、。 Private Sub Command1_Click() n = 0 x = 3333 While x <= 6666 If x Mod 5 = 0 Or x Mod 7 = 0 Then n = n + 1 End If x = x + 1 Loop Print n End Sub  【95】   【48】程序功能：求200到500间，能被13整除但不能被17整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim count As Integer Dim x As

48、 Integer count = 0 x = 200 While x <= 500 If x Mod 13 = 0 Or x Mod 17 <> 0 Then count = count + 1 End If x = x + 1 Loop Print count End Sub  【21 】   【49】程序功能：求200到400间，能被整除但不能被整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() Dim count As Integer Dim x As I

49、nteger count = 0 x = 200 While x <= 400 If x Mod 3 = 0 Or x Mod 7 <> 0 Then count = count + 1 End If x = x + 1 Loop Print count End Sub  【57 】   【50】程序功能：求3333，6666之间所有能被5和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() n = 0 x = 3333 While x <= 6666

50、If x Mod 5 = 0 Or x Mod 7 = 0 Then n = n + 1 End If x = x + 1 Loop Print n End Sub  【95】   【51】程序功能：计算两个数的最大公约数。程序中有一行有错误，改正错误，使程序能输出正确结果。 Private Sub Command1_Click() Print fun(14339, 507) End Sub Private Function fun(u, v) m = u For i = m To 1 Step -1 If v Mod i = 0 And u Mod i

51、 = 0 Then fun = i Exit sub End If Next i fun = 1 End Function  【13】   【52】程序功能：求这样的一个三位数，其个位数不大于2。若将个位数移动到百位之前（如：321移成132），新三位数大于原三位数的两倍。程序中有两行错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() For i = 0 To 9 For j = 0 To 9 For k = 0 To 9 n = 100 * i + 10 * j + k m = 100 * k + 10

52、* i + j If m >= 2 * n Then Print n Next k Next j Next i End Sub  【102】   【53】程序功能：有一堆零件（零件个数不超过1000），如果分成4个零件一组余2个；7个一组余3个； 9个一组余5个。求这堆零件的个数有几种可能。程序中有错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() For x = 1 To 1000 If x Mod 4 = 2 Or x Mod 7 = 3 Or x Mod 9 = 5 Then i = i + 1

53、 End If Next x Print i End Sub  【4】   【54】程序功能：求个位数是6，且能被3整除的所有四位数之和。程序中有错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() Dim i% Dim s& s = 0 For i = 1000 To 9999 If i Mod 3 = 0 Or i Mod 1000 = 6 Then s = s + i End If Next i Print s End Sub  【1653300 】   

54、【55】程序功能：求四位奇数中，各位数字之积（积不为0）是60的倍数的数之和。程序中有一行错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() num1 = 0 For x = 1001 To 9999 Step 2 a = Int(x / 1000) 千位 b = Int(x / 100) - a * 10 百位 c = Int(x / 10) - a * 100 - b * 10 十位 d = x - a * 1000 - b * 100 - c * 10 个位 If a * b * c * d Mod 60 = 0 Then num1 = n

55、um1 + x End If Next x Print num1 End Sub  【3456254】   【56】程序功能：求满足以下条件的（a，b，c）的组数：（1）1/(a2)+1/(b2)=1/(c2) ；（2）a>b>c ；（3）a+b+c<50。程序中有错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() s = 0 For c = 1 To 50 For b = 1 To 50 For a = 1 To 50 If a + b + c < 100 Or 1 / (a 2)

56、 + 1 / (b 2) = 1 / (c 2) Then s = s + 1 Next a, b, c Print s End Sub  【2】   【57】程序功能：求满足以下条件的（a，b，c）的组数：（1） 1/(a2)+1/(b2)=1/(c2) ；（2）a>b>c ；（3）a+b+c<100。程序有错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() s = 0 For c = 1 To 100 For b = 1 To 100 For a = 1 To 100 If a+b+c

57、<100 Or 1/(a2)+1/(b2) = 1/(c2) Then s = s + 1 Next a Next b Next c Print s End Sub  【2】   【58】程序功能：求四位偶数中，各位数字之和是30的倍数的数之和。程序中有错误，改正错误，使程序能输出正确结果。 Private Sub Command1_Click() s2 = 0 For x = 1001 To 9999 Step 2 s1 = 0 a = Int(x / 1000) b = Int(x / 100) - a * 10 c = Int(x / 10)

58、 - a * 100 - b * 10 d = x - a * 1000 - b * 100 - c * 10 s1 = a + b + c + d If s1 Mod 30 = 0 Then s1 = s1 + x End If Next x Print s2 End Sub  【288840】   【59】程序功能：求四位偶数中，所有各位数字之和是25的倍数的数之和。程序中有两行有错误。改正错误，使它能输出正确的结果。 Private Sub Command1_Click() s2 = 0 For x = 1001 To 9999 Step 2 s1

59、 = 0 a = Int(x / 1000) b = Int(x / 100) - a * 10 c = Int(x / 10) - a * 100 - b * 10 d = x - a * 1000 - b * 100 - c * 10 s1 = a + b + c + d If mod(s1,25)=0 Then s2 = s2 + x End If Next x Print s2 End Sub  【1112360 】   【60】程序功能：求字符串"87IM&2345kjwdssdcf"中数，字母字符的ASCII码之和

60、。程序中有一行错误，改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() alpha = 0 st = "87IM&2345kjwdssdcf" For i = 1 To st ch = Mid$(st, i, 1) Select Case ch Case "a" To "z" alpha = alpha + Asc(ch) Case "A" To "Z" alpha = alpha + Asc(ch) End Select Next i Prin

61、t alpha End Sub  【1113】   【61】程序功能：求字符串“This is my Basic”所有字符的ASCII码之和。程序中有一行有错误。改正错误，使程序能输出正确结果。 Private Sub Command1_Click() sum = 0 s = "This is my Basic" For i = 1 To s sum = sum + asc(Mid$(s, i, 1) Next i Print sum End Sub  【1436 】   【62】程序功能：一个

62、数出现在该数的平方数的右边，称这个数为“同构数”。例如，5出现在平方数25的右边，25出现在平方数625的右边，则5、25都是“同构数”。求1，1000之间的所有“同构数”的个数。程序中有两行有错误。改正错误，使程序能输出正确的结果。 Private Sub Command1_Click() For x = 1 To 1000 y = x 2 Select Case x Case 1 To 9 If x = Val(Right(Trim(Str(y), 1) Then s = s + 1 Case 10 To 99 If x = Val(Right(Trim(Str(y), 2) Then s = s + 1 Case 100 To 999 If x = Val(Right(Trim(Str(y), 4) Then s =