VB程序设计题库(2)

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

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说综合文库VB程序设计题库(2)在线全文阅读。