const Z=0.05 as single
const PAI=3.14 as single
const MAX=100 as integer
dim p(MAX),q(MAX) as single
dim n=0,m=0 as integer
private sub main()
dim D,u,VR,C0,VB,VT,a,Vz,qz,f,Ht,qt,Hz,tz,tf,Qz,vz as single
print "请输入D(cm)、u(m/h)、VR(mL)："
D=val(text1.text)
u=val(text1.text)
VR=val(text1.text)
qz=sum()
qz=cut(qz,1000)
C0=q(m-1)
VB=p(0)
VT=p(n-1)
Vz=VT-VB
a=PAI/4*D*D
Qz=C0*Vz/1000
f=qz/Qz
f=cut(f,1000)
Ht=cut(VR/a,10)
qt=(VT-(1-f)*Vz)*C0/VR
Hz=Ht*Vz/(VT-(1-f)*Vz)
tz=Vz*1000/(u*a*100)
tf=(1-f)*tz
vz=Hz/(tz*100)
print "C0="
print C0
print "mg/L，VB="
print VB
print "L，VT="
print VT
print "L。"
print "打印计算结果："
print "qt="
print qt
print "g/L，Hz="
print Hz
print "cm，tz="
print tz
print "h，tf="
print tf
print "h，vz="
print vz
print "m/h。"
end sub
function sum() as single
sum=0
dim i as integer
print "请输入y组数据直到它成为负数："
do
p(n)=val(text1.text)
n=n+1
loop while p(n-1)>=0
n=n-1
print "请输入c组数据直到它成为负数："
do
q(m)=val(text1.text)
m=m+1
loop while q(m-1)>=0
m=m-1
for i=1 to n-1
sum=sum+(q(i)+q(i+1))/2*(p(i+1)-p(i))
next i
sum=((p(n-1)-p(0))*q(m-1)-sum)/1000
end function
function cut(x as single,y as integer) as single
dim a as integer
dim sub as single
a=x*y
sub=x*y-a
if sub>=0.5 then
cut=(a+1)/y
else
cut=a/y
end if
end function
真的不知道哪里错了、。。