一个正整数除以2余1

一个正整数除以2余1,除以3余2,,除以4余3,求满足关系的最小值.

热心网友

Private Sub Command1_Click()Dim i As IntegerFor i = 1 To 9999If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 ThenMsgBox "This numger is " & iExit ForEnd IfNext iEnd Sub

热心网友

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