一個正整數除以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循環，更科學一些