最好是数组,例如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)
太难了
不会啊