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

我想写这么一个函数：

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

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

请问该如何写这个函数？

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

如果参数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"}