主题：求助怎么写这个函数？

我想写这么一个函数：

我通过参数1传进去一个数组，通过参数2的值计算，通过参数3 确定正反。

比如我传进去这么一个数组，

请问该如何写这个函数？

如果我参数2的值是5，参数3为0代表正转，那么返回的数组是以下内容：

{"财帛","子女","夫妻","兄弟","命宫","父母","福德","田宅","官禄","仆役","迁移","疾厄"}

没看懂，结果怎么来的，和参数2有啥关系？

Dim s1() As string = Args(0) \\这是传进去的数组参数 比如Dim s1() As String = {"子","丑","寅","卯","辰","巳","午","未","申","酉","戌","亥"}

Dim s1() As String = {"命宫","父母","福德","田宅","官禄","仆役","迁移","疾厄","财帛","子女","夫妻","兄弟"}

如果我参数2的值是5，参数3为0代表正转，那么返回的数组是以下内容：

{"财帛","子女","夫妻","兄弟","命宫","父母","福德","田宅","官禄","仆役","迁移","疾厄"}

如果是5代表数组的第4个参数 引用的是s1(4），那么s1(4）不用应该是"官禄"？和上面的第二个结果有什么关系？

如果参数2的值是5，顺时针。结果是把传入进来的数组第一个值放到第5个位置，然后其他的统一向后移过去，首位相连。就是这个意思

可能这样表达更直观一点：

这个是传进去的数组

Dim s1() As String = {"1","2","3","4","5","6","7","8","9","10","11","12"}

我想要实现的返回值顺时针（假设参数2的值是5）结果是：

{"9","10","11","12","1","2","3","4","5","6","7","8"}

逆时针的结果是：

{"5","4","3","2","1","12","11","10","9","8","7","6"}