"孙子问题"代码 |
2005年4月6日 『99100IT园地』 浏览选项:
出处: |
|
|
|
|
| |
|
Sub  孙子问题() 10 m=2 20 If m Mod 3<>2 then goto 70 30 If m Mod 5<>3 then goto 70 40 If m Mod 7<>2 then goto 70 50 MsgBox"不定方程的一个解为"&m 60 Goto 90 70 m=m+1 80 Goto 20 90 End Sub (本文已被浏览 2535 次) |
|
| |
|
|
|
|
|
|
|
|
|
|