新浪微博上的一道算术题

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

编程有意思吧，嘿嘿嘿