'**************************************************

'[判断是否奇数]

'函数名：Is_JS

'作 用：判断是否奇数

'参 数：num ---- 要判断的数

'返回值：返回True,否则False

'**************************************************

Public Function Is_JS(ByVal num)

n=num mod 2

if n=1 then

Is_JS=true

else

Is_JS=false

end if

end function