Цикл в функции

[SET777]

Здравствуйте! Мне нужна функция которая от 0 до числа которое передано в функцию, в цикле выбирает четные числа и возвращает каждое из чисел. Процедура, которая проверяет исходящий параметр функции на четность и выводит каждое число сообщением.

Global $iX
$iY = 7
Func myfunc($iY)
For $iX = 0 To $iY
    If Mod ($iX,2) = 0 Then
        Return $iX
EndIf
	Next
		EndFunc

If Mod ($iX,2) = 0 Then
		MsgBox(0,"",$ix)
	EndIf

 

[madmasles]

SET777
Можно так попробовать:

$iY = 7
MsgBox(64, 'Info', myfunc($iY))

Func myfunc($iY)
	Local $sReturn
	For $i = 0 To $iY
		If Not Mod($i, 2) Then
			$sReturn &= $i & @CRLF
		EndIf
	Next
	Return StringTrimRight($sReturn, 2)
EndFunc   ;==>myfunc

Или в массив четные значения сложить:

#include <Array.au3>

$iY = 17
$aArray = _MyFunc($iY)
_ArrayDisplay($aArray)
Func _MyFunc($i_Y)
	Local $a_Return[$i_Y], $j
	For $i = 0 To $i_Y
		If Not Mod($i, 2) Then
			$j += 1
			$a_Return[$j] = $i
		EndIf
	Next
	ReDim $a_Return[$j + 1]
	$a_Return[0] = $j
	Return $a_Return
EndFunc   ;==>_MyFunc

 

[SET777]

А как сделать так что бы функция возвращала числа по отдельности, а не одним сообщением. т.е. мне нужен выходящий параметр функции (четные числа, каждое число отдельно) который еще раз можно будет проверить на четность и вывести сообщением каждое число.