回复:计算机程序题 投机取巧的办法(VB)

来源: 2007-12-22 06:16:22 [旧帖] [给我悄悄话] 本文已被阅读:

function nextint(int a)
for i=a to a*2
if i>a then
return i
endif
next
end function