主题：分享一下数组循环列队

 任何一种语言，写的都是一样的。

Dim str As String = "1|2|3|4|5|6|7|8|9|10|11|12"
Dim p As Integer = 5    '这个是测试用的开关
Dim val() As String = str.split("|")
For a As Integer  = 0 To val.Length-1
    Output.Show(val((a+p-1) Mod val.length))
Next