本帖最后由 foboy 于 2010-6-20 16:19 编辑
楼主意思是从5个数理任意拿出三个数来,看他们的和是不是能被10整除吗?
如果是这个意思的话,我写的这个函数可以满足你:
这个函数可以检查任意多个数中是不是有三个的和能被10整除。有的话就会返回一个包含这三个数的数组。没有的话返回空字符串,并且设置@error为1
Func _check_data($_data)
For $_i_a = 0 To UBound($_data) - 1
For $_i_b = 0 To UBound($_data) - 1
If $_i_b == $_i_a Then ContinueLoop
For $_i_c = 0 To UBound($_data) - 1
If $_i_c == $_i_a Or $_i_c == $_i_b Then ContinueLoop
If Mod($_data[$_i_a] + $_data[$_i_b] + $_data[$_i_c], 10) == 0 Then
Local $_nums[3] = [$_data[$_i_a], $_data[$_i_b], $_data[$_i_c]]
Return $_nums
EndIf
Next
Next
Next
Return SetError(1, 0, "no data")
EndFunc ;==>_check_data
使用例子:
Global $data[5] = [56, 23, 569, 236, 55]
_check_data($data) |