Question

vb输入n个数,求最大值和最小值

Answer 1

dim a(),cont as integer,i as integer,max1 as string ,min1 as string
cont = val(inputbox("n=")
if cont>=1 then
redim a(cont-1)
for i=0 to cont-1
    a(i)=val(inputbox("请输入第" & i & "个数"))
    if max1="" then max1=a(i)
    if min1="" then min1=a(i)
    if max1<>"" then max1=iif(val(max1)<a(i),a(i),max1) 
    if min1<>"" then min1=iif(val(min1)>a(i),a(i),min1)    
next
end if
 
print "max:" & max1 '最大
print "min:" & min1'最小
'所有的数据存在数组 a() 里面