这个输最小是多少 ？

一个正整数除以2余1,除以3余2

完全可以简化一下，因为这个数只要满足除以4余三，必然满足除以2余一，所以只需这样： Private Sub Command1_Click() Dim i As Integer i=3 '3是第一个满足除以4余三的数 do if i mod 2 = 1 then exit do i=i+4 '每加上4就满足条件 loop msgbox "this number is " & i End Sub 虽然同样是九行但运行起来步骤要少得多，而且用的是do-loop循环，更科学一些 。

  完全可以简化一下，因为这个数只要满足除以4余三，必然满足除以2余一，所以只需这样： Private Sub Command1_Click() Dim i As Integer i=3 '3是第一个满足除以4余三的数 do if i mod 2 = 1 then exit do i=i+4 '每加上4就满足条件 loop msgbox "this number is " & i End Sub 虽然同样是九行但运行起来步骤要少得多，而且用的是do-loop循环，更科学一些 。
  收起