VB排序 急！！！！！

private sub form_click()
dim a(3) as single,i as integer,j as integer
a(1)=val(inputbox("请输入x"))
a(2)=val(inputbox("请输入y"))
a(3)=val(inputbox("请输入z"))
print "三个数依次是："
print a(1),a(2),a(3)
for i=1 to 2
for j=i+1 to 3
If a(i) > a(j) Then
a(0) = a(j)
a(j) = a(i)
a(i) = a(0)
next
next
print "从大到小的顺序是："
print a(1),a(2),a(3)
end sub

dim a(3) as string
dim x,y,z as integer
x=a(1)=inputbox("请输入x")
y=a(2)=inputbox("请输入y")
z=a(3)=inputbox("请输入z")
for i=1 to 2
for j=i+1 to 3
If a(i) > a(j) Then
temp = a(j)
a(j) = a(i)
a(i) = temp
next
next
text1.text=a(1),a(2),a(3)