mmin.inc

来自「一个软件工程的软件质量web跟踪管理系统」· INC 代码 · 共 14 行

<%
Function MMin(A,intDim)
	dim B(20)
	B=A
	intTmp0=B(1)
	for i=1 to intDim
		intTmp=B(i)
		if intTmp0>intTmp then
			intTmp0=intTmp
		end if
	next
	MMin=intTmp0
end function
%>