打開"存放txt文件的路徑。txt”作為#1輸入。
線路輸入#1，x
Dim arry()作為字符串
Dim arrx()為整數
arry() = Split(x，"，")
m =欠載(arry)
ReDim arrx(0到m)為整數
對於i = 0至下界(arry)
arrx(i) = CInt(Mid(arry(i)，2，Len(Trim(arry(i))) - 2))
然後
對於i = 0至UBound(arrx)
如果i = 0，那麽
打印數組(I)
如果…就會結束
如果我& gt那麽1
如果i = UBound(arrx ),則
打印數組(I)
其他
如果arrx(I)& gt；arrx(i - 1)和arrx(i)>arrx(i + 1)然後
打印數組(I)
如果…就會結束
如果arrx(I)& lt；arrx(i - 1)和arrx(I)& lt；arrx(i + 1)然後
打印數組(I)
如果…就會結束
如果…就會結束
如果…就會結束
然後
末端接頭