VB一个问题啊..

#define max((a),(b)) ((a)>(b)?(a):(b)) //2个数中的最大值
#define min((a),(b)) ((a)<(b)?(a):(b)) //2个数中的最小值

int max3(int a, int b, int c) //3个数中的最大值
{
return max(max(a,b),c);
}

int min3(int a, int b, int c) //3个数中的最小值
{
return min(min(a,b),c);
}

int max5(int a, int b, int c, int d, int e) //5个数中的最大值
{
return max3(max3(a,b,c),d,e);
}

int min5(int a, int b, int c, int d, int e) //5个数中的最小值
{
return min3(min3(a,b,c),d,e);
}

int max7(int a, int b, int c, int d, int e, int f, int g) //7个数中的最大值
{
return max3(max3(max3(a,b,c),d,e),f,g);
}

int min7(int a, int b, int c, int d, int e, int f, int g) //7个数中的最小值
{
return min3(min3(min3(a,b,c),d,e),f,g);
}

function mymax(innumber() as double,n as long) as double
t as double
b as long