VB程序设计多试题及答案(3)

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

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