dim max ,min,ave,sum,inputValue
dim i
for i=1 to 10
inputValue=inputbox("请输入第" & i & "个数")
if max="" then max= inputValue
if min="" then min= inputValue
if ave="" then ave= inputValue
sum=val(sum)+inputValue
max=iif(val(max)<val(inputValue),inputValue,max)
min=iif(val(min)>val(inputValue),inputValue,min)
ave=sum/i
next
print max,min,ave
温馨提示:答案为网友推荐,仅供参考