End Sub
2、 编写程序，统计200~300之间的所有满足三个数字之积为24，三个数字之和为10的数的个数。（2） private sub form_click() dim I%,a%,b%,c%,n% n=0
for I =200 to 300 step 1
a=Int(i/100) ‘百位 b=int((I-a*100)/10) ‘十位 c=I mod 10 ‘个位 if a*b*c=24 and a+b+c=10 then n=n+1 end if next I print n end sub
3、 编写程序，计算1000以内有多少个这样的数，其十位数为6且能被8整除。（15） Private Sub Form_Click() Dim n%,i%,a%,b% n = 0
For i = 1 To 1000 a = i \\ 100 b = (i - a * 100) \\ 10
If b = 6 And i Mod 8 = 0 Then n = n + 1 End If Next i Print n End Sub
4、 \水仙花数\是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至999的范围内有多少个水仙花数。（4） Private Sub Form_Click() Dim i%, n%, a%, b%, c% n = 0
For i = 100 To 999 a = i \\ 100 b = (i - a * 100) \\ 10 c = i Mod 10
If i = a ^ 3 + b ^ 3 + c ^ 3 Then n = n + 1 End If Next i Print n End Sub
5、 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2位数等
于第2位数加上第3位数。（110） Private Sub Form_Click() Dim i%, n%, a%, b%, c% n = 0
For i = 1000 To 9999
11
方法二：
a = i \\ 100 '百位 b = (i mod 100) \\ 10 '十位 c = i Mod 10 '个位
a = i \\ 1000
b = (i - a * 1000) \\ 100 c = (i - a * 1000 - b * 100) \\ 10 If i Mod 8 = 0 And a + b = b + c Then n = n + 1 End If Next i Print n End Sub
6、 所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，计算从1981年开始到3000年
为止，共有多少个年号是回文数年号。（11） Private Sub Form_Click() Dim I%, a%, b%, c%, d%, n% For I = 1981 To 3000 Step 1 a = Int(I / 1000)
b = Int((I - a * 1000) / 100) c = Int((I - a * 1000 - b * 100) / 10) d = I Mod 10
If a = d And b = c Then n = n + 1 End If Next I Print n
End Sub 五位数回文数必为这样的格式：abcba。因为回文数是偶数，所以a为偶数，并且a在最高位，不能为零，因此a有4种选择：2、4、6、8，b有10种选择：1、2、3、4、5、6、7、8、9、0，c有10种选择：1、2、3、4、5、6、7、8、9、0。4×10×10=400（个） 求
7、 计算在0至99的范围内有多少个数，其每位数的乘积大于每位数的和。（63） Private Sub Form_Click() Dim i%, n%, a%, b% n = 0 For i = 0 To 99 a = i \\ 10 b = i Mod 10 If a * b > a + b Then n = n + 1 End If Next i Print n End Sub
8、 有一个三位数满足下列条件: (1)三位数字各不相同; (2)此数等于它的各位数字的立方和。 Private Sub Form_Click() Dim i%, n%, a%, b%, c% n = 0
For i = 100 To 999 a = i \\ 100 b = (i - a * 100) \\ 10 c = i Mod 10
12
10000~99999之间的奇数回文数的个数？ 500
If a <> b And b <> c and a<>c And a ^ 3 + b ^ 3 + c ^ 3 = i Then n = n + 1 End If Next i Print n End Sub
1、 求方程8x－5y=3在|x|<=150,|y|<=200内的 (1)整数解的组数;(50) (2)|x|*|y|的最大值;(24676) Private Sub Form_Click() Dim x%, y%, n%, max& n = 0: max = 1 For x = -150 To 150 For y = -200 To 200 If 8 * x - 5 * y = 3 Then n = n + 1
If Abs(x) * Abs(y) > max Then max = Abs(x) * Abs(y) End If End If Next y Next x Print n, max End Sub
2、 把50元钱分成一元、二元和五元的纸币且纸币张数共为20张的分法有多少种？（注：在兑换中，一元、二元、五元的纸币
张数可以为0） 4 Private Sub Form_Click() Dim i%, j%, k%, n% n = 0 For i = 0 To 20 For j = 0 To 20 For k = 0 To 20
If 1 * i + 2 * j + 5 * k = 50 And i + j + k = 20 Then n = n + 1 End If Next k Next j Next i Print n End Sub
3、 百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至
少要买1只)。（3） Private Sub Form_Click() Dim i%, j%, k%, n% n = 0
For i = 1 To 100 For j = 1 To 100
13
For k = 1 To 100
If 5 * i + 3 * j + k / 3 = 100 And i + j + k = 100 Then n = n + 1 End If Next k Next j Next i Print n End Sub
4、 求共有几组i、j、k符合算式ijk+kji=1534，其中i、j、k是0~9之间的一位整数。（5） private sub form_click() Dim i%, j%, k%, n% n = 0 for i = 0 to 9 for j = 0 to 9
for k = 0 to 9
if i * 100 + j * 10 + k + k * 100 + j * 10 + i = 1534 then
n = n + 1
end if next k next j next i print n end sub
5、 有30个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、中、小学
生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？（9） Private Sub Form_Click() Dim i%, j%, k%, n% n = 0 For i = 1 To 30 For j = 1 To 30 For k = 1 To 30
If 3 * i + 2 * j + k = 50 And i + j + k = 30 Then n = n + 1 End If Next k Next j Next i Print n End Sub
6、 求方程9x+4y=1000的正整数解的组数以及|x-y|的最大值。（27，237） Private Sub Form_Click() Dim x%, y%, n%, max& n = 0: Max = 0 For x = 1 To 111 For y = 1 To 250
If 9 * x + 4 * y = 1000 Then n = n + 1
14
If Abs(x - y) > Max Then Max = Abs(x - y) End If End If Next y Next x Print n, Max End Sub
7、 有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱861，求鸡值多少钱？ （23）
题型四：也是求某范围内满足条件的数的和，但不能遍历给定范围的所有数，因为题目要求在满足另一条件时强制结束循环。 1、 求1到5000之间的能被5整除的前若干个偶数之和，直到和大于500为止。（550） 方法一：
Private Sub Form_Click() Dim s%, x% s = 0
For x = 2 To 5000 Step 2 If x Mod 5 = 0 Then s = s + x End If
If s > 500 Then
Exit For
End if Next x Print s End Sub
2、 已知：S=1+3+5+7+9+?，求S不大于750的最大值。（729） 方法一：
Private Sub Form_Click() Dim s%, x% s = 1 x = 1
Do While s <= 750 x = 2 + x s = s + x Loop s = s - x Print s End Sub
方法二：
Private Sub Form_Click() Dim s%, x% s = 0 x = 1
Do While 1 '1恒为true s = s + x If s > 750 Then
s = s - x 's此时已经>750,必须减去刚加上去的x Exit Do '跳出do while?loop循环 End If x = x + 2 Loop Print s End Sub 方法二：
Private Sub Form_Click() Dim s%, x% s = 0 x = 1
Do While s <= 500
If x Mod 5 = 0 And x Mod 2 = 0 And x <= 5000 Then s = s + x End If x = x + 1 Loop Print s End Sub
S=1+(1+3)+(1+3+5)+……+(1+3+5+7+……+99) 求S>20000的最小值 S是前N项平方和，由公式可得，n取39时即为所求。答案20540
3、 已知：S=2+4+8+16+32+?，求S不大于1500的最大值。（1022）
15
9、Visual Basic程序改错
1. 程序功能：求s=1+3+5+7+...直到s>2000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 (2025) 平方和
Private Sub Form_Click()
Dim i As Integer, s As Long s = 0 : i = 1
Do Until s < 2000 s = s + i i = i + 1 Loop Print s End Sub
答案：s>2000 ; i+2
2. 程序功能：计算s=2!+4!+8!。程序中有两行有错误。
改正错误，使它能输出正确的结果。 (40346) Private Sub Command1_Click()
Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 i = 1
Do While i <= 3 t = 1 k = 1
While k <= 2*i t = t * k k = k + 1 Wend s = s + t i = i + 1 wend Print s End Sub
答案：k<=2^i ; loop
3. 程序功能：计算s=2!+4!+6!+8!。程序中有错误。改正错误，使它能输出正确的结果。 (41066) Private Sub Command1_Click()
Dim k As Integer, i As Integer Dim s As Long, t As Long s = 0 : i = 1
Do While i <= 4 t = 1 k = 1
While k <= 2^i
t = t * k k = k + 1 Wend s = s + t i = i + 1 wend Print s End Sub
答案：k<=2*i ; loop
4. 程序功能：求200到400间，能被３整除但不能被７整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(57) Private Sub Command1_Click()
Dim count As Integer Dim x As Integer count = 0 x = 200
While x <= 400
If x Mod 3 = 0 or x Mod 7 <> 0 Then count = count + 1 End If Loop
x = x + 1
Print count End Sub
答案： and ; wend
5. 程序功能：求1到400间，同时能被3和7整除的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(19) Private Sub Form_Click()
Dim count As Integer Dim x As Integer For x = 1 To 400
if mod(x,3)=0 and mod(x,7)=0 then count = count + 1 end if Next count Print count End Sub
答案：x Mod 3 = 0 And x Mod 7= 0; x
6. 程序功能：求能被3整除且至少有一位数字为5的三位数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(85) Private Sub Command1_Click()
Dim count As Integer
Dim a As Integer, b As Integer, c As Integer Dim x As Integer x = 100
do While x <= 999 If x Mod 3 = 0 Then a = Int(x / 100)
b = Int((x - a * 100) / 10) c = x - a * 100 - b * 10
If a = 5 and b = 5 and c = 5 Then count = count + 1 End If End If x = x + 1 wend Print count End Sub
答案：a = 5 or b = 5 or c = 5 ; loop
7. 程序功能：求三位偶数中，个位数字与十位数字之和除以10所得的余数是百位数字的数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。(45) 奇数都是45
Private Sub Command1_Click()
Dim count As Integer
Dim a As Integer, b As Integer, c As Integer Dim x As Integer count = 0 x = 100
While x <= 999
a = Int(x / 100)
b = Int(x / 10) - a * 10 c = x - a * 100 - b * 10
If Mod(x,2) = 0 or mod(b + c,10) = a Then count = count + 1 End If x = x + 1 loop
Print count End Sub
答案：x Mod 2 = 0 And (b + c) Mod 10 = a; wend 8. 程序功能：求平方和小于2000的最大自然数。程序中有两行有错误。改正错误，使它能输出正确的结果。(18)
Private Sub Form_Click() Dim x As Integer Dim s As Integer s = 0 x = 0
Do While s >= 2000 x = x + 2 s = s + x * x
1
loop Print x End Sub
答案：s<=2000 ; x = x + 1
9. 程序功能：解百马百瓦古题。大、小马和马驹共100匹，共驮100片瓦。大马一驮三，小马一驮二，马驹二驮一，一次驮完，三种马都驮，共有多少种组合? 程序中有三行有错误。改正错误，使它能输出正确的结果。( 6 )
Private Sub Form_Click()
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
答案：3 * x + 2 * y + z / 2 = 100; Next y; Next x
10. 程序功能：求100-200之间的所有素数个数，程序中有两行有错误。改正错误，使它能输出正确的结果。( 21)
Private Sub Command1_Click() Number = 0
For x = 101 To 199 Step 2 i = 2
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
答案：exit do ;i>k
11. 程序功能：sum=d+dd+ddd+??+ddd..d(d为1-9的
数字)。例如：3+33+333+3333（此时d=3,n=4）。从键盘上输入d 的值为8，n的值为9，求sum的值。程序中有两行有错误。改正错误，使它能输出正确的结果。 987654312
Private Sub Form_Click()
Dim d As Integer, n As Integer, i As Integer Dim sum As Long sum = 0
d = Val(InputBox(\n = Val(InputBox(\For i = 1 To n
tn = tn + d sum = sun + tn Next i Print sum End Sub
答案：tn = tn * 10 + d；sum=sum+tn
12. 程序功能：输出水仙花的个数（所谓水仙花数是指一
个三位十进制数，该数的各位数字立方之和等于该数本身。例如153是一个水仙花数，因为
1^3+5^3+3^3=153）程序中有两行有错误。改正错误，使它能输出正确的结果。 4 Private Sub Form_Click() Dim number As Integer
Dim n As Integer, i As Integer, j As Integer, k As Integer
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 number = numbre + 1 End If Next n
Print number End Sub
答案：j = Int((n - i * 100) / 10); number=number+1
13. 程序功能：求数列2/1，3/2，5/3，8/5，13/8，??
的前10项之和。程序中有两行有错误。改正错误，使它能输出正确的结果。 16.47991 Private Sub Form_Click()
Dim i As Integer, t As Integer, n As Integer Dim a As Integer, b As Integer Dim s As Single
a = 2: b = 1: n = 10: s = 0 For i = 1 To n s = s + a / b t =b a = a + b a = t Next i Print s End Sub
答案：t = a ; b = t 14. 程序功能：猴子第1天摘下若干桃子，当即吃掉一半，
又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，到第10天只剩余1个。问第1天共摘了多少桃子。程序中有两行有错误。改正错误，使它能输出正确的结果。 1534 Private Sub Form_Click()
Dim day As Integer, sum As Integer day = 10 ; sum = 1 Do While day > 1 sum = sum * 2 day = day - 1 Loop
Print sum End Sub
答案：day = 10 : sum = 1 ; sum = (sum + 1) * 2
15. 程序功能：求1～200之间的能被7整除的数的平方
和。程序有两处错误。改正错误，使它能输出正确的结果。 377986
Private Sub Command1_Click()
Dim x As Integer Dim sum As Integer x = 1 sum = 0
While x <= 200 If x Mod 7 = 0 sum = sum + x ^ 2 End If x = x + 1 Wend Print sum End Sub
答案：Dim sum As Double ; If x Mod 7 = 0 Then
16. 程序功能：求1~99的平方根的和并输出结果。（保
留小数点两位），程序中有两行有错误。改正错误，使它能输出正确的结果。 661.46 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
答案：Dim sum As Single; sum = sum + Sqr(x)
2
17. 程序功能：求[1,5000]内能被5整除的前若干个偶数
之和，直到和大于50000为止。程序中有两行有错误。改正错误，使它能输出正确的结果。 50500 Private Sub Command1_Click()
Dim x As Integer Dim s As Long x = 2
Do While x <= 5000 If x Mod 5 = 0 Then s = s + x
If s > 50000 Then Exit for End If End If x = x + 2 Loop Print s End Sub
答案：exit do (只有一处有错)
18. 程序功能：求3000以内能被17或23整除的正整数
的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 299
Private Sub Command1_Click() Dim x As Integer
Dim count As Integer
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
答案：1;or
19. 程序功能：已知一个数列的前3项为0，0，1，以后
每项为前3项的和，求此数列的第36项。程序中有两行有错误。改正错误，使它能输出正确的结果。 334745777
Private Sub Command1_Click()
Dim a As Long Dim b As Long Dim c As Long Dim d As Long Dim i As Integer a = 0: b = 0: c = 1 For i = 1 To 36 d = a a = b b = c
c = a + b + c Next i Print c End Sub
答案：33;c=a+b+d
20. 程序功能：求数列2,4,8,16,32,?前若干项之和。
当和大于9000时，终止求和并输出结果。程序中有两行有错误。改正错误，使它能输出正确的结果。 16382 Private Sub Command1_Click() Dim s As Integer Dim x As Integer x = 1 Do
x = x+ 2 s = s + x Until s > 9000 Print s End Sub
答案：x=x*2;loop until s>9000
21. 程序功能：已知24有8个正整数因子(即：
1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。问[100,300]之间有多少个这样的数。程序中有两行有错误。改正错误，使它能输出正确的结果。 19 Private Sub Command1_Click()
Dim n1 As Integer, n2 As Integer Dim x As Integer Dim i As Integer n2 = 0
For x = 100 To 300 n1 = 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
答：n1 = 0; x
22. 程序功能：我国今年的国民生产总值为45600亿元,
若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?程序中有两行有错误。改正错误，使它能输出正确的结果。 9 Private Sub Command1_Click() Dim p As Long, p1 As Long Dim n As Integer n = 0
p1 = 45600 p = p1 Do
p = p * (1 + 9) n = n + 1
Loop Until p < 2 * p1 Print n End Sub
答案：p = p * (1 + 0.09); >=
23. 程序功能：已知24有8个正整数因子
(即:1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。求[100,300]之间能被其因子数目整除的数中最大的数。程序中有两行有错误。改正错误，使它能输出正确的结果。 296
Private Sub Command1_Click()
Dim N As Integer Dim s As Integer Dim i As Integer
For N = 300 To 100 Step -1 s = 0
For i = 1 To N
If N Mod i = 0 Then s = s + 1 End If Next i
If s Mod N = 0 Then Print N Exit For End If Next N End Sub
答案：N mod s=0(只有一处错误)
24. 程序功能：有一个三位数满 足下列条件: (1)三位数
字各不相同; (2)此数等于它的各位数字的立方和。求这种三位数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 4 153 370 371 407 Private Sub Command1_Click()
Dim x As Integer,a As Integer,b As Integer Dim c As Integer,n As Integer n = 0 x = 100
Do While x >= 999 a = Int(x / 100)
b = Int(x / 10) - a * 10 c = x - a * 100 - b * 10
3
If a <> c And b <> c And a <> b And x = a ^ 3 + b ^ 3 + c ^ 3 Then
n = n + 1 End If x = x + 1 Loop Print n End Sub
答案：x <= 999；将or全部换成and
25. 程序功能：求[3，500]内所有素数之和。程序中有一
行错误，改正错误，使它能输出正确的结果。 21534 Private Sub Command1_Click() Sum = 0
For x = 3 To 500 flag = True
For i = 2 To x - 1 If x Mod i = 0 Then flag = False Exit For End If Next i
If not flag Then Sum = Sum + x End If Next x Print Sum End Sub 答案：flag
26. 程序功能：求[3-1000]之间最大的五个素数之和。程
序中有两行有错误。改正错误，使它能输出正确的结果。4919
Private Sub Command1_Click() n = 0:Sum = 0 x = 1000 Do
flag = True
For i = 2 To x - 1 If x Mod i = 0 Then flag = False Exit do End If Next i
If flag Then Sum = Sum + x n = n + 1
If n = 5 Then Exit Do End If x = x - 1
Loop While x <= 3 Print Sum End Sub
答案：exit for;x>=3
27. 程序功能：把一张一元钞票,换成一分、二分和五分
硬币,每种至少8枚,求方案数。程序中有两行有错误。改正错误，使它能输出正确的结果。 80 Private Sub Command1_Click()
n = 0
For x = 1 To 100 For y = 8 To 50 For z = 8 To 20
If x + y * 2 + z * 5 = 100 Then n = n + 1 Next z Next y Next x Print n End Sub
答案：8;x + y * 2 + z * 5 = 100
28. 程序功能：求区间[500，2500]中按递增顺序的第25
个素数。程序中有两行有错误。改正错误，使它能输出正确的结果。 659
Private Sub Command1_Click() n = 0
For x = 500 To 2500 flag = False
For i = 2 To x - 1 If x Mod i = 0 Then
flag = True Exit For End If Next i
If flag Then n = n + 1
If n = 25 Then Exit For End If Next x Print x End Sub
答案：not flag (只有一处错误) 29. 程序功能：设某四位数的千位数字与十位数字的和等
于百位数字与个位数字的积，例如，对于四位数：9512，9+1=5*2，求所有这样的四位数之和。程序中有一行有错误。改正错误，使它能输出正确的结果。 1078289 Private Sub Command1_Click() Sum = 0
For 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 + c = b * d Then
Sum = Sum + x End If Next x Print Sum End Sub
答案：b = Int(x / 100) - a * 10 这样的数：207 9992 30. 程序功能：求 [200,300]之间的有奇数个不同因子的
最大整数。程序中有两行有错误。改正错误，使它能输出正确的结果。 289
Private Sub Command1_Click()
For x = 300 To 200 Step -1 n = 0
For i = 1 To x
If x Mod i = 0 Then
n = n + 1 End If Next i
If n/2 <> 0 Then Print x Exit For End If Next x End Sub
答案：x = 300 To 200 Step –1; n Mod 2 <> 0 31. 程序功能：计算
y=1+2/3+3/5+4/7+?+n/(2*n-1)(n=50), 要求：按四舍五入的方式精确到小数点后第二位。程序中有两行有错误。改正错误，使它能输出正确的结果。 26.47 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
答案：s = s + n /(2 * n-1);round(s,2) 32. 程序功能：求当N=20时，
1/(1*2)+1/(2*3)+1/(3*4)+?.+1/(N*(N+1))的值。要求：按四舍五入的方式精确到小数点后第二位。程序中有一行有错误。改正错误，使它能输出正确的结果。 0.95
Private Sub Command1_Click()
4
s = 0: n = 1
Do While n <= 20
s = s + 1 / n * (n + 1) n = n + 1 Loop
Print Format(s, \End Sub
答案：s = s + 1 / (n * (n + 1)) 33. 程序功能：求m＝50时，表达式
t=1-1/(2*2)-1/(3*3)-?-1/(m*m)的值。要求：按四舍五入的方式精确到小数点后第四位。程序中有两行有错误。改正错误，使它能输出正确的结果。 0.3749 Private Sub Command1_Click()
Dim t As Single Dim m As Integer m = 2 t = 1
Do While m <= 50 t = t - 1 / m * m m = m + 1 wend
Print Format(t, \End Sub
答案：(m * m);loop
34. 程序功能：求[10,1000]之间满足除以7余5、除以5
余3、除以3余1的所有整数的个数。程序中有两行有错误。改正错误，使它能输出正确的结果。 9 Private Sub Command1_Click()
Dim x As Integer Dim n As Integer 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
答案：将所有的or改成and; next x
35. 程序功能：求1到5000之间的能被5整除的前若干
个偶数之和，直到和大于500为止。程序中有两行错误。改正错误，使它能输出正确的结果。550 Private Sub Command1_Click()
n = 0 : s = 0
For x = 2 To 5000 step 2 If x mod 5 = 0 Then s = s + x End If
If s > 500 Then Exit For Next x Print s End Sub
36. 程序功能：百钱百鸡问题。用100钱买100只鸡，公
鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。程序中有一行有错误。改正错误，使它能输出正确的结果。 3 Private Sub Command1_Click() s = 0 cock = 1
Do While 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
答案：cock * 5 + hen * 3 + chick / 3 = 100(一处错) 37. 程序功能：求500以内最大的10个能被13或17整
除的自然数之和。程序中有两行有错误。改正错误，使它能输出正确的结果。 4622 Private Sub Command1_Click() s = 0: n = 0 x = 500
Do While x >= 1
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
答案：Or;x = x - 1
38. 程序功能：求 [10，1000]之间的所有完数之和。各
真因子之和（不包括自身）等于其本身的正整数称为完数。例如：6=1+2+3，6是完数。程序中有有错误。改正错误，使它能输出正确的结果。524 Private Sub Command1_Click() Dim sum As Integer
Dim x As Integer, k As Integer Dim i As Integer sum = 0
For x = 10 To 1000 k = x
For i = 1 To x-1 If x Mod i = 0 Then K = K - i End If Next i
If k = 0 Then sum = sum + x End If Next x Print sum End Sub
答案： x-1;k=k-i
39. 程序功能：求满足以下条件的（a，b，c）的组数：
（1） 1/(a^2)+1/(b^2)=1/(c^2) ；（2）a>b>c ；（3）a+b+c<100。程序有错误，改正错误，使程序能输出正确的结果。 (2)
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 / (a ^ 2) + 1 / (b ^ 2) = 1 / (c ^ 2) Then s = s + 1
Next a Next b Next c Print s End Sub
答案：If a + b + c < 100 And 1 / (a ^ 2) + 1 / (b ^ 2) = 1 / (c ^ 2) And a > b And b > c Then s = s + 1
40. 程序功能：求四位奇数中，各位数字之积（积不为0）
是60的倍数的数之和。程序中有一行错误，改正错误，使程序能输出正确的结果。 3456254 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
5
Next x Print num1 End Sub 答案： a * b * c * d Mod 60 = 0 And b <> 0 And c <> 0 And d <> 0 41. 程序功能：有一堆零件（零件个数不超过1000），如果分成4个零件一组余2个；7个一组余3个； 9个一组余5个。求这堆零件的个数有几种可能。程序中有错误，改正错误，使程序能输出正确的结果。 4 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 i 答：将or变成 and End Sub 42. 程序功能：百钱百鸡问题。用100钱买100只鸡，公鸡一只五钱，母鸡一只三钱，雏鸡三只一钱，编程计算共有几种买法(要求每种鸡至少要买1只)。程序中有一行有错误。改正错误，使它能输出正确的结果。 3 Private Sub Command1_Click() s = 0 cock = 1 Do While 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 答案：cock * 5 + hen * 3 + chick / 3 = 100 43. 程序功能：求共有几组i、j、k符合算式ijk+kji=1534，其中i、j、k是0~9之间的一位整数。程序中有一行有错误。改正错误，使它能输出正确的结果。 5 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 答案：i*100+j*10+k+k*100+j*10+i=1534 44. 程序功能：求所有符合算式ij*ji=1300的最小数ij。其中i、j是1~9之间的一位整数。程序中有三行错误。改正错误，使它能输出正确的结果。 25 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 End If Next i Next j End Sub 答案：(i * 10 + j) * (j * 10 + i);j;i
45. 程序功能：求[444,666]中最大的素数。程序中有两行有错误。改正错误，使它能输出正确的结果。661 Private Sub Command1_Click()
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 答案：For x = 666 To 444 Step -1;exit for
46. 程序功能：将50元兑换成5元、2元和1元的方法的种数（每种面额至少2张）。程序中有两行有错误。改正错误，使它能输出正确的结果。 72 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 答案：5 * x + 2 * y + z = 50；去掉exit for 47. 程序功能：求这样的一个三位数，其个位数不大于2。若将个位数移动到百位之前（如：321移成132），新三位数大于原三位数的两倍。程序中有两行错误，改正错误，使程序能输出正确的结果。 102
Private Sub Command1_Click() For i = 0 To 9 For j = 0 To 9 For k = 0 To 2
N = 100 * i + 10 * j + k m = 100 * k + 10 * i + j If m >= 2 * N Then Print N Next k Next j Next i End Sub 答案：For i = 1 To 9; For k = 1 To 2 48. 编程求方程5X+4Y=2，在|X|<=50,|Y|<=100内的整数
解，X+Y最大值是多少？ 112 (填空题)
Private Sub Form_click() Max = 0 For x = -50 To 50 For y = -100 To 100
If 5 * x - 4 * y = 2 Then s = x + y If s > Max Then Max = s Next y Next x Print Max End Sub 49. 求方程5X-4Y=2，在|X|<=100,|Y|<=50内的整数解中|X|+|Y|最大值？ 86 (填空题) Private Sub Form_click() Max = 0 For x = -100 To 100 For y = -50 To 50 If 5 * x - 4 * y = 2 Then 6
s = Abs(x) + Abs(y) If s > Max Then Max = s End If Next y Next x Print Max End Sub
50. 找出1-1000之间的全部同构数的和。同构数是指一
个数，它出现在它的平方数的右端。例如，5的平方是25，5是25中右端的数，5就是一个同构数。同理，25也是一个同构数。 1114
Private Sub Command1_Click()
s = 0
For x = 1 To 1000
y = Len(Trim(Str(x))) i = x * x Select y Case 1
If x = Val(Right(Trim(Str(i)), 1)) Then s = s + x End If Case 2
If x = Val(Right(Trim(Str(i)), 2)) Then s = s + x End If Case 3
If x = Val(Right(Trim(Str(i)), 3)) Then s = s + x End If Case 4
If x = Val(Right(Trim(Str(i)), 4)) Then s = s + x End If End Select Next x Print s End Sub
答案：Select Case y
51. 程序功能：求字符串\中数，字
母字符的ASCII码之和。程序中有一行错误，改正错误，使程序能输出正确的结果。1113 Private Sub Command1_Click() alpha = 0
st = \For i = 1 To st
ch = Mid$(st, i, 1) Select Case ch Case \
alpha = alpha + Asc(ch) Case \
alpha = alpha + Asc(ch) End Select Next i
Print alpha End Sub
答案：Len(st)
52. 求字符串“This is my Basic”所有字符的ASCII码
之和。程序中有一行有错误。改正错误，使程序能输出正确结果。1436
Private Sub Command1_Click() Sum = 0
s = \For i = 1 To s
Sum = Sum + Asc(Mid$(s, i, 1)) Next i Print Sum End Sub
答案：Len(s)
53. 求在 1,2,3,...,100中, 任选两个不同的数,要求它
们的和能被3和7整除的数的对数(注意:3+5和5+3认为是同一对数)。 2121
Private Sub Form_Click()
Dim n As Integer, i As Integer n = 0 i = 1
Do While i <= 100 j = 1
Do While j <= 100
If mod((i+j,3)=0 or mod((i+j,7)=0 Then n = n + 1 End If j = j + 1 Loop
i = i - 1 Loop
Print n / 2 End Sub
答案：If ((i + j) Mod 3 = 0 Or (i + j) Mod 7 = 0) And i <> j Then;i=i+1 54. 一个两位数的正整数，如果将其个位数与十位数字对
调所生成的数称为其对调数，如28是82的对调数。现给定一个两位的正整数46，请找到另一个两位的整数，使这两个数之和等于它们的各自的对调数之和。这样的另一个两位数有多少个。程序中有两行有错误。改正错误，使它能输出正确的结果。8 Private Sub Form_Click()
Dim x As Integer, y As Integer, number As Integer Dim xf As Integer, yf As Integer number = 0 x = 46
xf = (x Mod 10) * 10 + Int(y/ 10) For y = 10 To 99
yf = (y Mod 10) * 10 + Int(y / 10) If x + y = xf + yf Then number = number + 1 End If Next y
Print number End Sub
答案：x(只有一处错误) 55. 程序功能：若某整数N的所有因子之和等于N的倍数，
则N称为多因子完备数,如数28,其因子之和
1+2+4+7+14+28=56=2*28,28是多因子完备数。求[1,200]之间有多少个多因子完备数。改正错误，使它能输出正确的结果。 4 Private Sub Command1_Click() Dim N As Integer Dim s As Integer Dim i As Integer Dim c As Integer c = 0
For N = 1 To 200 s = 0
For i = 1 To N
If i Mod N <> 0 Then s = s + i End If Next i
If N Mod s = 0 Then c = c + 1 End If Next N Print c End Sub
答案：i Mod N = 0; s Mod N = 0
56. 若一个四位正整数是另一个正整数的平方，且各位数
字的和是一个平方数，则称该四位正整数是“四位双平方数”。例如： 由于7396=86^2，且7+3+9+6=25=5^2，则称7396是“四位双平方数”。求最小的 “四位双平方数”。程序中有行一有错误。改正错误，使它能输出正确的结果。1521 Private Sub Command1_Click() For x = 1000 To 9999
7
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 Sqr(x) = Int(Sqr(x)) And Int(Sqr(a + b + c + d)) = Sqr(a + b + c + d) Then Print x Exit For End If Next x End Sub
答案：Int(Sqr(a + b + c + d)) = Sqr(a + b + c + d) 57. 程序功能：求10的阶乘，程序中有一行有错误。改
正错误，使它能输出正确的结果。3628800 Private Sub Command1_Click() Print fun(10) End Sub
Private Function fun(n As Integer) As Long If n > 0 Then fun = 1
Else: fun = n * fun(n - 1) End If
End Function 答案：n=0
58. 程序功能：求整数2310的所有质因子（即所有为素
数的因子）之和。程序的Isprime()函数中有一行有错误。改正错误，使它能输出正确的结果。28 Private Sub Command1_Click() s = 0 k = 2310
For j = 2 To k
If (k Mod j = 0 And Isprime(j)) Then s = s + j End If Next j Print s End Sub
Private Function Isprime(n) Dim flag As Boolean flag = True If n = 2 Then Isprime = True Else
For i = 2 To n - 1 If n Mod i = 0 Then flag = False Exit For End If Next i Isprime = true End If
End Function 答案：flag
59. 计算两个数的最大公约数。程序中有一行有错误，改
正错误，使程序能输出正确结果。27 Private Sub Command1_Click() Print fun(1107, 2889) End Sub
Private Function fun(u, v) As Integer While (v <> 0) t = u Mod v u = v v = t Wend fun = v End Function
答案：t;同时将现有的t = u Mod v分移到while之前和v=t之后。（不只一个错误）
60. 程序功能： 建立一个过程来计算12的阶乘，程序中
有错误，改正错误，使程序能输出正确的结果。479001600
Private Sub Command1_Click() Call n(12) End Sub
Public Sub n(a As Integer) Dim i As Integer Dim f As integer f = 0
For i = 1 To a f = f * i Next i Print f End Sub
答案：long;f=1
61. 程序功能：计算两个数的最小公倍数。程序中有两行
有错误，改正错误，使程序能输出正确结果。26288 Private Sub Command1_Click() Print fun(248, 848) End Sub
Private Function fun(u, v) t = u
Do While t Mod u <> 0 Or t Mod v <> 0 t = t + u Loop fun =u
End Function 答案：fun=t
8
10、Visual Basic编程题
1、 已知数列前3项为0、0、1，以后每项为前3项的和，求此数列的第36项。（334745777） 方法一：
方法二：
Private Sub Form_Click() Private Sub Form_Click() Dim a&, b&, c&, d&, n% Dim d(36) As Double, n As Integer a = 0: b = 0: c = 1 d(1) = 0 For n = 1 To 33 Step 1 d(2) = 0 d = a d(3) = 1 a = b For n = 4 To 36
b = c d(n) = d(n - 1) + d(n - 2) + d(n - 3) c =a+b+d Next n Next n Print d(36) Print d End Sub
End Sub
2、 计算y=1+2/3+3/5+4/7+?+n/(2*n-1) (n=50), 要求：按四舍五入的方式精确到小数点后第二位。 (26.47) Private Sub Form_Click() Dim s As Single, n as integer s = 0
For n = 1 To 50 s = s + n / (2 * n - 1) Next n
Print Round(s, 2) End Sub
3、 求数列2/1,3/2,5/3,8/5,??，的前10项的和。（16.47991） 方法一：
方法二：
private sub form_click() Private Sub Form_Click()
dim I%,a%,b%,t%,s! Dim d(10) As Single, n As Integer, s As Single a=2:b=1
d(1) = 2 / 1 for I=1 to 10 step 1 s = 2 / 1 s=s+a/b For n = 2 To 10 t=a d(n) = 1 + 1 / d(n - 1) a=a+b s = s + d(n) b=t Next n next I Print s print s End Sub end sub
4、 编程求fibonacci数列：1，1，2，3，5，8……的前30个数的和。(2178308) 方法一：
print s Private Sub Form_Click() End Sub Dim a&, b&, c&, s& 方法二：
a = 1:b = 1:s = 2 Private Sub Form_Click()
For i = 3 To 30 Dim d(30) As Double, n As Integer, s As Double c = a + b d(1) = 1 s = s + c d(2) = 1 a = b s = 2
b = c For n = 3 To 30 next i d(n)=d(n-1)+d(n-2)
9
Next i Print s End sub
Private Sub Form_Click() Dim a%, b% For a = 0 To 6 For b = 0 To 3
Next n Print s End sub
5、 编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26、之积是880。 （4720）
If a + (a + b) + (a + 2 * b) + (a + 3 * b) = 26 And a * (a + b) * (a + 2 * b) * (a + 3 * b) = 880 Then Print a ^ 3 + (a + b) ^ 3 + (a + 2 * b) ^ 3 + (a + 3 * b) ^ 3 + (a + 4 * b) ^ 3 End If Next b Next a End Sub
6、 猴子吃桃问题：猴子第1天摘下若干桃子，当即吃掉一半，又多吃一个，第二天将剩余的部分吃掉一半还多一个；以此类推，
到第10天只剩余1个。问第1天共摘了多少桃子。 (1534) 方法一：
Private Sub Form_Click() Dim day As Integer, sum As Integer day = 10: sum = 1 Do While day > 1 sum = (sum + 1) * 2 day = day - 1 Loop Print sum End Sub
7、 我国今年的国民生产总值为45600亿元,若今后每年以9%的增长率增长,计算多少年后能实现国民生产总值翻一番?（9） Private Sub Command1_Click() Dim s&, n% n=0 s = 45600
Do While s < 45600 * 2 s = s * 1.09 n = n + 1 Loop Print n End Sub
1、 编写程序，编写程序，求在10~1000之间所有能被4除余3，被7除余4，被9除余4的数的平方和。 (1109620) Private Sub Form_Click() Dim s#, n% s=0
For n = 10 To 1000
If n Mod 4 = 3 And n Mod 7 = 4 And n Mod 9 = 4 Then s = s + n ^ 2 End If Next n Print s
10
方法二：
Private Sub Form_Click() Dim day As Integer, sum As Integer day = 10: sum = 1 For day = 9 To 1 Step -1 sum = (sum + 1) * 2 Next day Print sum End Sub
Private Sub Form_Click() Dim s%, x% s = 2 x = 2
Do While s <= 1500 x = 2 * x s = s + x Loop s = s - x Print s End Sub
1、 统计1000~9999之间的完全平方数的个数，如：25=5^2，25就是一个完全平方数。（68） 方法一：
Private Sub Form_Click() Dim i%, n%, j% n = 0
For i = 1000 To 9999
For j = 30 To 100 If i = j * j Then n = n + 1 End If Next j Next i Print n End Sub
第2位与第4位数字之积为24。（1） Private Sub Form_Click() Dim i%, n% n = 0
方法二：
Private Sub Form_Click() Dim i%, n% n = 0
For i = 1000 To 9999
If Sqr(i) = Int(Sqr(i)) Then n = n + 1 End If Next i Print n End Sub
2、 统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1位与第3位数字之和为12，
方法二：
a = i \\ 1000 a = i \\ 1000 '千位
b = i\\100 mod 10 '百位 b = (i - 1000 * a) \\ 100
c = i\\10 mod 10 '十位 c = (i - 1000 * a - 100 * b) \\ 10
d = i mod 10 '个位 d = i Mod 10
For i = 1000 To 9999
If Sqr(i) = Int(Sqr(i)) And a + c = 12 And b * d = 24 Then n = n + 1 End If Next i Print n End Sub
1、 求[100,200]间有奇数个不同因子的整数的个数。（5） Private Sub Form_Click()
m = 0 ‘保存有奇数个不同因子的整数的个数 For i = 100 To 200
n = 0 ‘保存i的不同因子的个数
16
For j = 1 To i
If i Mod j = 0 Then n = n + 1 End If Next j
If n Mod 2 = 1 Then ‘判断i的不同因子的个数是否是奇数 m = m + 1 End If Next i Print m End Sub
2、 求 [200,300]之间的有奇数个不同因子的最大整数。（289）方法一：
Private Sub Form_Click() Dim m%,i%,n%,j%,max% m = 0: Max = 1 For i = 200 To 300 n = 0 For j = 1 To i
If i Mod j = 0 Then n = n + 1 End If Next j
If n Mod 2 = 1 Then Max = i End If Next i Print Max End Sub
3、 已知24有8个正整数因子(即：1,2,3,4,6,8,12,24)，而24正好被其因子个数8整除。问[100,300]之间有多少个这样的数。（19） Private Sub Form_Click() Dim m%,i%,n%,j% m = 0
For i = 100 To 300 n = 0 For j = 1 To i If i Mod j = 0 Then n = n + 1
的所有完数之和。(34) Private Sub Form_Click() Dim s%,i%,t%,j%
s = 0 '保存完数的和 For i = 1 To 400
t = 0 '保存i的所有小于它本身的因子之和
For j = 1 To i - 1 If i Mod j = 0 Then
t = t + j End If Next j
If t = i Then '判断i是否符合完数的条件 s = s + i End If Next i Print s
17
End If Next j
If i Mod n = 0 Then m = m + 1 End If Next i Print m End Sub 方法二：
Private Sub Form_Click() Dim i%, j%, n% For i = 300 To 200 step -1 n = 0 For j = 1 To i
If i Mod j = 0 Then n = n + 1 End If Next j
If n Mod 2 = 1 Then Print i Exit For End If Next i End Sub
4、 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出400以内
End Sub
1、 [3，500]内所有素数之和。（21534） 方法一：
Private Sub Form_Click() dim i%,s%
s=0 ‘保存素数的和 for i=3 to 500
for j=2 to i-1 ‘若内循环正常结束，说明i是素数，此
时j的值为i；否则i不是素数，此时j的值小于等于i-1
if i mod j =0 then exit for end if next j
if j=i then ‘根据j的取值，判断i是否为素数
s=s+i end if next i print s end sub 方法二：
Private Sub Form_Click() Dim i%, s%
s = 0 '保存素数的和 For i = 3 To 500
n = 0 'n用来统计i的因子的个数 For j = 2 To i - 1 If i Mod j = 0 Then n = n + 1 End If Next j
If n = 0 Then s = s + i End If Next i Print s End sub
18
求[1，1000]之间有多少个同构数。同构数是这样一个数，它出现在它的平方数的右侧，例如：5的平方是25，25的平方是625，故5和25都是同构数。 (7) Private sub form_click( ) Dim i&,n% n=0
For i=1 to 1000 j=i*i
If i=(j mod 10 ) or i=(j mod 100) or i=(j mod 1000) then ‘i有可能为1位数、2位数、3位数,所以三个条件中
只要满足一个条件即可。
n=n+1 End if Next i Print n End sub
3、 编写程序，求出3到200之间的所有非偶数非素数的数的个数。（54） Private Sub Form_Click() Dim s%, n%, i% s = 0
For n = 3 To 200 Step 2 For i = 2 To n - 1 If n Mod i = 0 Then s = s + 1
Exit For 'i是n的一个因子，所以n是非素数，exit for 调出内层循环，去取下一个n End If Next i Next n Print s End Sub
Fibonacci数列前35 项的求和
Dim a(1 To 35) As Long Dim s As Long Me.AutoRedraw = True Print 1 Print 1 a(1) = 1 a(2) = 1 s = 2
For i = 3 To 35 a(i) = a(i - 1) + a(i - 2) Print a(i) s = s + a(i) Next
Print \前30项的和为： \
19
Dim i As Integer For i = 1 To 1000 If i Mod 9 = 0 Then k = k + 1 End If Next i Print k 杨辉三角 Dim a() As Single
n = Val(InputBox(\请输入行数\杨辉三角\ReDim a(n + 1, n + 1) For i = 1 To n For j = 1 To i a(i, 1) = 1 a(i, i) = 1
a(i + 1, j + 1) = a(i, j) + a(i, j + 1) Print a(i, j); Next j Print Next i 1. 2. 3. 4. 5. 6. 7. 8. 9.
编写程序，求共有几组i、j、k符合算式ijk+kji=1333，其中i、j、k是0~9之间的一位整数。 6 编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的和。1592376 编写程序，求三位数的偶数中，所有各位数字之和是15的倍数的数的和。 20454 编写程序，求三位数的奇数中，所有各位数字之和是15的倍数的数的和。19731 编写程序，求三位数的奇数中，所有各位数字之和是12的倍数的数的和。 20292 编写程序，求三位数的奇数中，所有各位数字之和是12的倍数的数的个数。 38 编写程序，求在四位数的奇数中，所有各位数字之和是25的倍数的数的和。1298515 编写程序，求三位数的偶数中，所有各位数字之和是15的倍数的数的个数。34 编写程序，求在四位数的偶数中，所有各位数字之和是30的倍数的数的和。 288840
10. 编写程序，求1到5000之间的能被5整除的前若干个偶数之和，当和值大于500时退出，输出该和值。 550 11. 编写程序，求在3000以内能被17或者23整除的正整数的个数。 299 12. 编写程序，求在1000以内能被17或者23整除的正整数的个数。99
13. 一个数如果刚好与它所有的因子之和相等，则称该数为一个\完数\，如：6=1+2+3，则6就是一个完数。求出200
到500之间所有的完数之和。 496
14. 编写程序，求在5000以内能被17或者23整除的正整数的个数。 499
15. 一个数如果刚好与它所有的因子之和相等，则称该数为一个\完数\，如：6=1+2+3，则6就是一个完数。求出1000
以内的所有的完数之和。 530
16. 编写程序，求四位数的偶数中，所有各位数字之和是15的倍数的数的个数。 306
17. 一个数如果刚好与它所有的因子之和相等，则称该数为一个\完数\，如：6=1+2+3，则6就是一个完数。求出1000
以内的完数的个数。 3
18. 已知一个数列的前3个数为0，0，1，以后每个数为前3个数的和，编程序求此数列的第36个数。 334745777 19. 一个数如果刚好与它所有的因子之和相等，则称该数为一个\完数\，如：6=1+2+3，则6就是一个完数。求出10000
20
以内的完数的个数。 4
20. 编写程序，求四位数的偶数中，所有各位数字之和是24的倍数的数的个数。 187
21. 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3，则6就是一个完数。求出
400以内的所有完数之和。 34
22. 编写程序，求四位数的偶数中，所有各位数字之和是24的倍数的数的和。 1298328 23. 编写程序，计算在0~50的范围内有多少个数，其每位数的乘积大于每位数的和。 23 24. 编写程序，求出1~7000以内能被3或者7整除的数的个数。 3000
25. 编写程序，计算在0~50的范围内有多少个数，其每位数的乘积小于每位数的和。 26 26. 编写程序，求出1~3000以内能被3或者5整除的数的个数。 1400
27. 用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为50枚，问共有多少种换法？(注：在兑换中，一
分、两分或五分的硬币数可以为0枚) 13
28. 编写程序，求出1~5000以内能被3或者7整除的数的个数。 2142
29. 用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为30枚，问共有多少种换法？(注：在兑换中，一
分、两分或五分的硬币数可以为0枚) 4
30. 编写程序，求出1~6000以内能被3或者5整除的数的个数。 2800
31. 用一元纸币兑换一分、两分和五分的硬币，要求兑换硬币的总数为60枚，问共有多少种换法？(注：在兑换中，一
分、两分或五分的硬币数可以为0枚) 11
32. 把18元钱分成一元、二元和五元的纸币且纸币张数共为10张的分法有多少种？（注：在兑换中，一元、二元、五
元的纸币张数可以为0） 3
33. 把50元钱分成一元、二元和五元的纸币且纸币张数共为20张的分法有多少种？（注：在兑换中，一元、二元、五
元的纸币张数可以为0） 4
34. 编写程序，求出1~4000以内能被3或者11整除数的个数。 1575
35. 编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的个数。 12 36. 编写程序，求出100到500之间同时满足除5余4和除7余2条件的数的和。 3678
37. 编写程序，求四位数的奇数中，所有各位数字之积（且不为0）是125的倍数的数的和。 161095 38. 编写程序，求出100到400之间同时满足除3余2和除5余3条件的数的个数。 20
39. 编写程序，求四位数的奇数中，所有各位数字之积（且不为0）是60的倍数的数的和。 3456254 40. 编写程序，求出100到400之间同时满足除3余2和除5余3条件的数的和。 5110 41. 编写程序，求出100到200之间同时满足除3余2和除5余3条件的数的个数。 6
42. 所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100-900之间
的所有回文数的个数。 80
43. 所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求出100-200的范
围内所有回文数的和。 1460
44. 所谓回文数是从左至右与从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100-900的范
围内所有能被3整除的回文数的个数。 26
45. 编写程序，求出1到300之间同时满足除3余2和除5余3条件的数的个数。 20 46. 编写程序，求出100到500之间同时满足除3余2和除5余3条件的数的个数。 26
47. 所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，求在100-900的范
围内所有能被3整除的回文数的和。 12987
48. 编写程序，求出1到400之间同时满足除3余2和除5余3条件的数的个数。 27 49. 编写程序，求出100到600之间同时满足除3余2和除5余3条件的数的个数。 33 50. 编写程序，求出1到600之间同时满足除3余2和除5余3条件的数的个数。 40 51. 编写程序，已知：S=2+4+8+16+32+?，求S不大于2500的最大值。 2046
52. 有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱
861，求鸡值多少钱？ 23
53. 有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱
21
861，求兔值多少钱？ 29
54. “水仙花数”是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至400的范围内有多少个水仙花
数。 3
55. 编写程序，求在四位数的偶数中，所有各位数字之积（且不为0）是30的倍数的数的和。 3415206 56. 编写程序，求在四位数的偶数中，所有各位数字之积（且不为0）是18的倍数的数的和。 8638596 57. 编写程序，求在四位数的偶数中，所有各位数字之和是6的倍数的数的和。 4135248
58. \水仙花数\是指这样的数，其各位数字的立方和等于该数本身。编写程序，计算从100年开始到2000年为止，共
有多少个年号是水仙花数年号。 4
59. 所谓回文数是从左至右或从右至左读起来都是一样的数字，如：121是一个回文数。编写程序，计算从1981年开
始到3000年为止，共有多少个年号是回文数年号。 11
60. 所谓素数是指这样的自然数，除1和它本身外不再有其它因子。编写程序，计算从1981年开始到3000年为止，我
们将遇到多少个素数年号。 131
61. 编写程序，计算[1，1000]以内有多少个这样的数，该数既能被6整除又能被8整除。 41 62. 编写程序，求出3到200之间的所有非偶数非素数的数之和。 5774 63. 编写程序，求出3到100之间的所有非偶数非素数的数之和。 1441 64. 编写程序，求出3到100之间的所有非偶数非素数的数的个数。 25 65. 编写程序，求出3到200之间的所有非偶数非素数的数的个数。 54
66. 编写程序，计算在0至99的范围内有多少个数，其每位数的乘积大于每位数的和。 63 67. 编写程序，计算在0至99的范围内有多少个数，其每位数的乘积小于等于每位数的和。 37
68. \水仙花数\是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至500的范围内有多少个水仙花数。
4
69. 编写程序，求在10~1000之间所有能被4除余3，被7除余5，被9除余2的数之和。 1700 70. 编写程序，求在200~1000之间所有能被4除余3，被7除余5，被9除余2的数之和。 1653 71. 编写程序，计算1000以内有多少个这样的数，其个位数为6且该数能被9整除。 11 72. 编写程序，计算1000以内有多少个这样的数，其十位数为6且能被8整除。 15
73. 编写程序，求出1到5000之间的能被7整除的前若干个数之和，当和值大于等于1500时退出并输出和值。 1617 74. \水仙花数\是指这样的数，其各位数字的立方和等于该数本身。编写程序求100至999的范围内有多少个水仙花数。
4
75. 编写程序，求出1到3000之间的能被3整除的前若干个数之和，当和值大于600时退出并输出和值。 630 76. 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，求出600以内的所有完数的平方和。
246836
77. 编写程序，求出1到2000之间的能被9整除的前若干个数之和，当和值大于500时退出并输出和值。 594 78. 编写程序，求在10~1000之间所有能被4除余3，被7除余4，被9除余4的数之和。 1780
79. 编写程序，求出1到6000之间的能被5整除的前若干个偶数之和，当和值大于650时退出并输出和值。 660 80. 编写程序，求在200~1000之间所有能被4除余3，被7除余4，被9除余4的数之和。 1713
81. 编写程序，求出1到7000之间的能被5整除的前若干个偶数之和，当和值大于500时退出并输出和值。 550 82. 编写程序，求在200~1000之间所有能被5除余3，被7除余5，被9除余7的数之和。 1884
83. 编写程序，求出1到4000之间的能被5整除的前若干个偶数之和，当和值大于400时退出并输出和值。 450 84. 编写程序，求在500~1000之间所有能被5除余3，被7除余5，被9除余7的数的平方和。 1283633 85. 编写程序，求出1到8000之间的能被5整除的前若干个偶数之和，当和值大于750时退出并输出和值。 780 86. 编写程序，求在10~1000之间所有能被4除余3，被7除余4，被9除余4的数的平方和。 1109620
87. 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，如：6=1+2+3。求出10000以内的所有完
数之和。 8658
88. 一个数如果刚好与小于它的所有因子之和相等，则称该数为一个“完数”，求出1000以内的所有完数的平方和。
246836
89. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+B=B+C，即第1位数加上第2
22
位数等于第2位数加上第3位数。 110
90. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是18的倍数，且D=6 ,A+B=B+C，即第1位数加
上第2位数等于第2位数加上第3位数。 10
91. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是16的倍数，且B=8，,A+B=B+C，即第1位数加
上第2位数等于第2位数加上第3位数。 5
92. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是18的倍数，且C=7，A+B=C+D，即第1位数加
上第2位数等于第3位数加上第4位数。 9
93. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+D=B+C，即第1位数加上第4
位数等于第2位数加上第3位数。 77
94. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是15的倍数，且A+D=B+C，即第1位数加上第4
位数等于第2位数加上第3位数。 45
95. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是9的倍数，且A= B+C，即第2位数加上第3位
数等于第1位数。 64
96. 编写程序，求在200~2000之间所有能被4除余2，被7除余3，被9除余5的数之和。 7910 编写程序，求在10~1000之间所有能被4除余2，被7除余3，被9除余5的数之和。 2000
97. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是11的倍数，且A=B+C，即第2位数加上第3位
数等于第1位数。 49
98. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是8的倍数，且A+C=B，即第1位数加上第3位
数等于第2位数。 57
99. 编写程序，求满足下列条件的所有四位数ABCD的个数，该四位数是5的倍数，且A+D=B+C，即第1位数加上第4
位数等于第2位数加上第3位数。 123
100. 编写程序，求一正整数等差数列的前六项的平方和，该数列的前四项之和是26、之积是880。 699 101. 编写程序，统计200~400之间的所有满足三个数字之积为42，三个数字之和为12的数的个数。 4 102. 编写程序，统计200~300之间的所有满足三个数字之积为24，三个数字之和为10的数的个数。 2
103. 编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1位与
第3位数字之和为10，第2位与第4位数字之积为12。 2
104. 已知一个数列的前3个数为0，1，2，以后每个数为前3个数的和，编写程序求此数列的第30项。 24548655 105. 编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1位与
第3位数字之和为12，第2位与第4位数字之积为24。 1
106. 已知一个数列的前3个数为0，1，1，以后每个数为前3个数的和，编程序求此数列的第20项。 35890 107. 编写程序，求一正整数等差数列的前六项的和，该数列前四项之和是26，四项之积是880。 57
108. 已知一个数列的前3个数为0，1，2，以后每个数为前3个数的和，编程序求此数列的第25项。 1166220 109. 有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱
861，求羊值多少钱？ 177
110. 已知一个数列的前3个数为1，2，3，以后每个数为前3个数的和，编程序求此数列的第20项。 101902 111. 有5羊4犬3鸡2兔值钱1496，4羊2犬6鸡3兔值钱1175，3羊1犬7鸡5兔值钱958，2羊3犬5鸡1兔值钱
861，求犬值多少钱？ 121
112. 已知一个数列的前3个数为0，1，2，以后每个数为前3个数的和，编程序求此数列的第35项。 516743378 113. 编写程序，计算在[0，60]的范围内有多少个数，其每位数的乘积大于每位数的和。 31
114. 已知一个数列的前3个数为1，2，3，以后每个数为前3个数的和，编程序求此数列的第35项。 950439251 115. 编写程序，求一正整数等差数列的前三项的和，该数列前四项之和是26、之积是880。 15
116. 已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，编程序求此数列的第28项。 25527448 117. 编写程序，求一正整数等差数列的前五项的和，该数列前四项之和是26、之积是880。 40
118. 已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，编程序求此数列的第33项。 537346739 119. 编写程序，求一正整数等差数列的前三项的平方和，该数列前四项之和是26、之积是880。 93
120. 已知一个数列的前3个数为3，4，5，以后每个数为前3个数的和，编程序求此数列的第26项。 7545856
23
121. 编写程序，求一正整数等差数列的前五项的平方和，该数列前四项之和是26、之积是880。 410 122. 编写程序，已知：S=2+4+8+16+32+?，求S不大于1500的最大值。 1022
123. 编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该四位数是一个完全平方数，且其第1、3
位数字之和为6，第2、4位数字之积为24。 1
124. 编写程序，已知：S=2+4+8+16+32+?，求S不大于980的最大值。 510
125. 有30个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、
中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？ 9 126. 编写程序，已知：S=2+4+8+16+32+?，求S不大于3000的最大值。 2046
127. 有50个学生一起买小吃，共花钱100元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、
中、小学生的人数分配共有多少种不同的解（去掉某类学生数为0的解）？ 24 128. 编写程序，已知：S=2+4+8+16+32+?，求S不大于5000的最大值。4096
129. 编写程序，求一正整数等差数列的前五项的立方和，该数列前四项之和是26、之积是880。 4720 130. 编写程序，已知：S=1+3+5+7+9+?，求S不大于750的最大值。 729
131. 编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该数是一个完全平方数，且第1、2位数字
之和为12，第3、4位数字之积为24。 1
132. 编写程序，已知：S=1+3+5+7+9+?，求S不大于1200的最大值。 1156
133. 编写程序，统计1000~9999之间的所有满足以下条件的四位数的个数。该数是一个完全平方数，且其第1、2位数
字之和为10，第3、4位数字之积为18。 1
134. 编写程序，已知：S=2+4+8+16+32+?，求S不大于9000的最大值。 8190 135. 编写程序，求四位数的奇数中，每位数字之和是15的倍数的数的和。 1533459 136. 编写程序，已知：S=1+3+5+7+9+?，求S不大于1300的最大值。1296
137. 有40个学生一起买小吃，共花钱100元，其中每个大学生花5元，每个中学生花3元，每个小学生花1元，问大、
中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？ 14 138. 编写程序，已知：S=1+3+5+7+9+?，求S不大于9000的最大值。 8836
139. 有36个学生一起买小吃，共花钱100元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、
中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？ 3 140. 编写程序，已知：S=1+3+5+7+9+?，求S不大于1000的最大值。 961
141. 有50个学生一起买小吃，共花钱200元，其中每个大学生花5元，每个中学生花3元，每个小学生花2元，问大、
中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？ 8
142. 有50个学生一起买小吃，共花钱120元，其中每个大学生花4元，每个中学生花3元，每个小学生花2元，问大、
中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？ 9
143. 有60个学生一起买小吃，共花钱100元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、
中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？ 19
144. 有50个学生一起买小吃，共花钱120元，其中每个大学生花4元，每个中学生花2元，每个小学生花1元，问大、
中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？ 13
145. 有20个学生一起买小吃，共花钱50元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、
中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的）？ 4 146. 编写程序，求[1，1000]既能被6整除又能被7整除的数的个数。 23
147. 有48个学生一起买小吃，共花钱120元，其中每个大学生花3元，每个中学生花2元，每个小学生花1元，问大、
中、小学生的人数分配共有多少种不同的解（去掉某类学生为0的解）？ 11 148. 编写程序，求[1，500]既能被3整除又能被5整除的数的个数。 33 149. 编写程序，求[1，500]既能被6整除又能被7整除的数之和。 2772 150. 编程序求出1-200以内的能被7整除的数的平方和。 377986
151. 181已知：非等腰三角形最长边是60，其它两边的长度都是正整数，且三边之和能被3整除，试编程求取这类三角
形的个数（注意：两边的长度交换构成的三角形算作同一个三角形，如：其它两边的长度为30,40的三角形与长度为40,30的三角形视为同一个三角形）。 271
24
152.100-200之间的勾股玄数 54 其中最大的197
25