以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  分享一下数组循环列队  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=102398)
--  作者：ljh29206
--  发布时间：2017/6/19 11:25:00
--  分享一下数组循环列队
再百度找了循环算法,一大堆代码,

感觉还是 foxtable 好用 几行就搞掂 


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
val = str.split("|")
Dim v(val.Length -1) As String
v(0) = val(p -1 )
For a As Integer  = 0 To val.Length
    If a > val.Length -1 Then
        Exit For
    End If
    v(a) = val (( a + p + val.Length -1)   Mod val.Length)    
Output.Show(v(a))
Next

 
--  作者：有点色
--  发布时间：2017/6/19 12:19:00
--  

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

 

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