新浪微博上的一道算术题

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

 

 

 

编程有意思吧，嘿嘿嘿