湖南省计算机二级VB程序改错部分题库

湖南省计算机二级VB程序改错部分题库
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
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
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 答案： 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) 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
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("d:"))
n = Val(InputBox("n:"))
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)
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 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
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 * 100
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
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()
s = 0: n = 1
Do While n <= 20
s = s + 1 / n * (n + 1)
n = n + 1
Loop
Print Format(s, "##0.##")
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, "0.####")
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
If x Mod i = 0 Then
x = x - 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
Next x
Print num1
End Sub
答案： a * b * c * d Mod 60 = 0 And b <> 0 And
c <> 0 An
d 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()
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
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
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
s = Abs(x) + Abs(y)
If s > Max Then Max = s
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 Select
Next x
Print s
End Sub
答案：Select Case y
51.程序功能：求字符串"87IM&2345kjwdssdcf"中数，字
母字符的ASCII码之和。

程序中有一行错误，改正错误，使程序能输出正确的结果。

1113
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
答案：Len(st)
52.求字符串“This is my Basic”所有字符的ASCII码
之和。

程序中有一行有错误。

改正错误，使程序能输出正确结果。

1436
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
答案：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
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。