按键精灵的大师们.有5个数a.b.c.d.e取出其中3个数,要求这3个数相加等于10的倍数如果有就枚举出每种情况的数组.没有就结束.我知道取余数的方法,ifx+y+zmod10=0

Question

按键精灵的大师们.
有5个数 a.b.c.d.e
取出其中3个数,要求这3个数相加等于10的倍数
如果有就枚举出每种情况的数组.
没有就结束.
我知道取余数的方法,if x+y+z mod 10 = 0

Answer 1

最好是数组,例如A（0）到A（10）这样
给你个参考
Dim aa(10)
For a = 0 To 10
For b = a + 1 To 10
For c = b + 1 To 10
If (aa(a) + aa(b) + aa(c)) mod 10 = 0 Then
TracePrint a & "," & b & "," & c
End If
Next
Next
Next
x+y+z mod 10 = 0 这样是不对的,学过初中数学你也应该知道乘除运算优于加减
这就变成了 x+y+(z mod 10)