>>420
リストが空の場合はちゃんと例外が起こるようになってるぞ：
public function maxItem(byref i() as integer) as integer
dim k as long
maxItem=i(lbound(i))
for k=lbound(i,1)+1 to ubound(i,1)
  if maxItem<i(k)) then maxItem=i(k)
next
end function