用VF编写如下程序：任给3个实数，求其中间数（即其值大小居中者）

clear
dime a(3)
input "请输入第1个数值" to a(1)
for i=2 to 3
input "请输入第"+alltrim(str(i))+"个数值" to a(i)
endfor
if a(1)>a(2)
t=a(1)
a(1)=a(2)
a(2)=t
endif
if a(1)>a(3)
t=a(1)
a(1)=a(3)
a(3)=t
endif
if a(2)>a(3)
t=a(2)
a(2)=a(3)
a(3)=t
endif
?"中间数是:",alltrim(str(a(2)))