VB 排序！

private sub form_click()
dim a(6) as string,i as integer,j as integer
form1.autoredraw=true
print "输入的六个英语单词是："
for i=1 to 6
a(i)=inputbox("";;"","")
print a(i);
next
print
print "排序后的结果是："
i=1
do while i<= 5
j=i+1
if a(i)>a(j) then
a(0)=a(i)
a(i)=a(j)
a(j)=a(0)
end if
j=j+1
next
print a(i)
i=i+1
next
print a(6)
end sub

很简单喽。直接用插入排序就可以搞定了