一个正整数除以2余1

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

全部回答

2005-11-01

0 0

Private Sub Command1_Click() Dim i As Integer For i = 1 To 9999 If i Mod 2 = 1 And i Mod 3 = 2 And i Mod 4 = 3 Then MsgBox "This numger is " & i Exit For End If Next i End Sub

提交

S***

2005-11-02

94 0

完全可以简化一下，因为这个数只要满足除以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循环，更科学一些。
。

提交