新浪微博上的一道算术题

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

 

 

 

编程有意思吧，嘿嘿嘿