输入任意正数，以0或负数结束，求正数的平均值、最大值和最小值，用vb做。 跪求啊！！！！

别跪了,起来吧!
很简单的东西,看基础书就行了
dim x() as integer

dim i as integer
dim n as integer
dim s as string

do
s=inputbox("输入正数,0和负数结束","输入" )
if isnumic(s) then
n=cint(s)
if n<=0 then exit do
redim preserve x(i)
x(i)=n
i=i+1
end if
loop

dim sm as integer,mx as integer,mn as integer
n=i-1
if n>=0 then
mn=x(0)
else
msgbox "没有输入正数"
endif
for i = 0 to n
sm =sm +x(i)
if mx<x(i) then mx=x(i)
if mn>x(i) then mn=x(i)
next

dim v as single
v=s
v=v/(n+1)
msgbox "平均:" & v & vbcrlf & "最大:" & mx" & vbcrlf & "最小:" & mn

楼上那位同志写了哪么多连个悬赏都没有，楼主真吝啬