比较任意N个数大小的VB代码

窗体代码：PrivateSubCommand1_Click()Dimn%n=InputBox(请输入n的值)Ifn100ThenMsgBoxn的值过大程序溢出,5+48,Dima!(100)Fori=1Tona(i)=InputBox(请依次输入各个数值)NextiFori=1TonForj=i+1TonIfa(i)a(j)Thent=a(i)a(i)=a(j)a(j)=tEndIfNextjNextiPrinta(1);Fori=2TonPrint&a(i);NextiEndSub