VB 急 馬上要答案>

Question

主程式:輸入一個整數 傳給程序副程式 並輸出傳回的結果
程序副程式: 程序副程式將主程式傳過來的數，判斷其為奇數或偶數傳回去

Answer 1

主程式:
dim n as integer
input n
if Evenodd(n) then
print str(n);" 為偶數"
else
print str(n);" 為奇數"
endif

副程式:
function Evenodd(n as integer) as boolean
if (n mod 2)=0 then
Evenodd=true
else
Evenodd=false
endif
end function