vb 编程 有物不知多少,三三数余1,五五数余三。七七数余二,问此物有多少

用VB中的穷举法 用各位高手回答一下 在线等 谢谢谢谢～～

Dim i As Long
Dim MAX As Long
MAX = 2048
Print "1至" & MAX& "之间符合要求的数字为:"
For i = 1 To MAX
If (i Mod 3 = 1) And (i Mod 5 = 3) And (i Mod 7 = 2) Then Print i
Next

这样的数很多，你又没有限定范围。以1000以内为例： dim n as integer for n = 1 to 1000 if n mod 3 = 2 and n mod 5 = 3 and n mod 7 = 2 then print n end if next 第一个符合的是23。 如果只要找第一个符合的数则： dim n as integer for n = 1 to 1000 if n mod 3 = 2 and n mod 5 = 3 and n mod 7 = 2 then print n exit for end if next