求关于平均数的VBS代码

Dim a,b,c,d,max,s,e,i,min
a=inputbox("Enter the first number:")
b=inputbox("Enter the second number:")
c=inputbox("Enter the third number:")
d=inputbox("Enter the fourth number:")
e=inputbox("Enter the fiveth number:")
i=inputbox("输入难度系数")
if a>=b and a>=c and a>=d and a>=e then
max=a
elseif b>=a and b>=c and b>=d and b>=e then
max=b
elseif c>=a and c>=b and c>=d and c>=e then
max=c
elseif d>=a and d>=b and d>=c and d>=e then
max=d
elseif e>=a and e>=b and e>=c and e>=d then
max=e
end if
if a<=b and a<=c and a<=d and a<=e then
min=a
elseif b<=a and b<=c and b<=d and b<=e then
min=b
elseif c<=a and c<=b and c<=d and c<=e then
min=c
elseif d<=a and d<=b and d<=c and d<=e then
min=d
elseif