急！VBA编程过程提问

来源：百度知道 编辑：UC知道 时间：2024/05/25 08:08:15
把9786表示为两个加数之和，使其中一个加数能被91整除，而另一个加数能被87整除。请求出：在这两个加数中，能被91整除的加数等于多少？
最好在今天 回答出来，拜托了 各位高手！
我要的是 设计图里的 实践生成器的 编程

俺来帮你回答一下：
Sub JiShuang()
Dim x, y As Long
For x = 1 To 10000
y = 9786 - x
If (x Mod 91) = 0 And (y Mod 87) = 0 Then
MsgBox "这两个数分别是：" & x & "和" & y & "!"
End If
Next
End Sub

计算结果为：4914 4872

能被91除尽的数是: 4914
能补87除尽的数是: 4872
两数之和:9786

补充:只有这一组数满足要求.