زیر روال

[Salam ay doost]

دوستان اگه ميشه يکي اينو برام حل کنه
2 عدد را گرفته و بزرگترين عدد را با استفاده از سابروتين( زير روال ) بدست آورد

[mormorbaba]

Function جالب تر بود

ولي



Private Sub Max(a:integer,b:integer)
if a<b then
msgbox b
else
msgbox a
end if
End Sub