$str=''
For $i=1 To Round(1000/12)
$z=(1000-12*$i)/5
If IsInt((1000-12*$i)/5) Then
$str=$str&10*$i&', '&$i&', '&$z&@CR
EndIf
Next
MsgBox(0,0,'1分,2分和5分的张数'&@CRLF&$str)
$str=''
For $i=1 To Round(1000/12)
$z=(1000-12*$i)/7
If IsInt($z) Then
$str=$str&10*$i&', '&$i&', '&$z&@CR
EndIf
Next
MsgBox(0,0,'1分,2分和7分的张数'&@CRLF&$str)