今有物不知其数今有物不知其数，三三数之剩二，五五数之剩三，七七数之剩二，问物几何？

答案是23，代码如下：

该代码的功能是从1开始往上枚举，直到发现符合条件的数值

Private Sub Command1_Click()

Dim I '定义一个变量I

Do '执行DO循环，每次循环I+1

I = I + 1

Loop Until I Mod 3 = 2 And I Mod 5 = 3 And I Mod 7 = 2 '直到这个数除3余2，除5余3，除7余2即符合条件退出循环

MsgBox I

End Sub