Dim Myint
整數形式的Dim iLb、iUb、iTmp
Myint = Array(textbox 1。文本,文本框2。文本,文本框3。文字)
iLb = LBound(Myint)
iUb = UBound(Myint)
對於i = iUb至iLb + 1步長-1
對於ii = iLb至i - 1
if Myint(ii)& lt;Myint(ii+1)然後
iTmp = Myint(ii)
Myint(ii)= Myint(ii+1)
Myint(ii+1)= iTmp
如果…就會結束
下壹個ii
接下來我
標簽1。caption = Join(Myint,“》;)
末端接頭