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

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

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