新浪微博上的一道算术题

http://blog.csdn.net/tu_tustudio/article/details/8544991

在新浪微博上看到一个题目：



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

编程有意思吧，嘿嘿嘿