Foxtable(狐表)用户栏目专家坐堂 → 求助怎么写这个函数?


  共有1590人关注过本帖树形打印复制链接

主题:求助怎么写这个函数?

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 13:51:00 [显示全部帖子]

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

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


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


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 14:41:00 [显示全部帖子]

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

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

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


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


 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/10 15:56:00 [显示全部帖子]

Dim s1() As String = {"1","2","3","4","5","6","7","8","9","10","11","12"}
Dim i1 As Integer = 5
Dim i2 As Integer = 0
Dim lst As new List(of String)
If i2 = 0 Then
    For i As Integer = 0 To s1.Length - i1
        lst.Add(s1(i))
    Next
    For i As Integer = s1.Length - 1 To s1.Length - i1 + 1 Step -1
        lst.Insert(0,s1(i))
    Next
Else
    For i As Integer = i1-1 To 0 Step -1
        lst.Add(s1(i))
    Next
    For i As Integer = s1.Length - 1 To i1 Step -1
        lst.Add(s1(i))
    Next
End If

Output.Show(String.Join(",",lst.ToArray))

 回到顶部