Question

从键盘输入10个数，输出其中的最大值，最小值和平均值。VB语言程序。

Answer 1

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