新浪微博下的一道算术题
在新浪微博上看到一个题目：
001.png
xy
x
-------
zzz
根据题目列出条件为：
mod(x*y,10)=z
mod(x*y\10+x*x,10)=z
(x*y\10+x*x)\10=z
|
Dim x,y,z
'MsgBox 12 Mod 10 'MsgBox 9\4
For x=0 to 9 For y=0 to 9 For z=0 to 9 'mod(x*y,10)=z 'mod(x*y\10+x*x,10)=z '(x*y\10+x*x)\10=z If (x*y Mod 10=z) And ((x*y\10+x*x) Mod 10=z) And (x*y\10+x*x)\10=z Then MsgBox "x=" & x & " y=" & y & " z=" & z End If Next Next Next |
结果：
|
x=0 y=0 z=0 x=0 y=1 z=0 x=0 y=2 z=0 x=0 y=3 z=0 x=0 y=4 z=0 x=0 y=5 z=0 x=0 y=6 z=0 x=0 y=7 z=0 x=0 y=8 z=0 x=0 y=9 z=0 x=3 y=7 z=1 |
编程有意思吧，嘿嘿嘿