Question

求解：两道计算机VB编程题目

枚举法：
2、一个4位整数分为前后两个两位数，若该数等于所分两个两位数和的平方，则称该数为分段和平方数，如2025=（20+25）2，找出有几个这样的分段和平方数。
（1）写出解决这一问题主要采用什么算法思想？________________。
（2）计算结果：_____________。
（3）写出解决此问题使用的具体程序。

3、求1001-29999以内能同时被32和47整除的自然数的个数。
（1）写出解决这一问题主要采用什么算法思想？________________。
（2）你可以用什么方法让程序来判别某个数是否能被32和47整除？____________________。
（3）计算结果是： 。（可利用你学习过的程序设计语言环境解决）

Answer 1

2、
(1)
穷举法，列出从1000到9999所有的4位数，分别测试其是否等于所分两个两位数和的平方。

(2)
计算结果：
2025=(20+25)^2
3025=(30+25)^2
9810=(98+10)^2

(3)
代码如下：
Private Sub Command1_Click()
For i = 1000 To 9999
If ((i \ 100) + (i Mod 100)) ^ 2 = i Then
Print i; "=("; i \ 100; "+"; i Mod 100; ")^2"
End If
Next i
End Sub

3、
(1)
穷举法，列出从1001到29999所有的自然数，分别测试其是否能同时被32和47整除。

(2)
由于47是质数，所以判断这个数是否能被32和47的最小公倍数1504整除，如果能整除那么这个数能同时被32和47整除。
代码如下：
For i = 1001 To 29999
a = 32 * 47
If i Mod a = 0 Then
Print i
End If
Next i

(3)
计算结果：
1504 3008 4512 6016 7520 9024 10528 12032 13536 15040 16544 18048 19552 21056 22560 24064 25568 27072 28576

================
希望对你有所帮助！